Hãy cho biết giá trị của S sau khi thực hiện xong đoạn lệnh, nếu nhập n = 6:
Write('Nhap n = '); Readln(n);
S:=0;
For i:= 1 To n Do S:= S + 2*i;
A. 21
B. 42
C. 6
D. 0
Câu 43: Cho biết khi thực hiện đoạn lệnh sau kết quả s bằng bao nhiêu với n=4 trong các phương án cho dưới đây?
Var n, i , s:integer;
Begin
Clrscr;
Write('Nhap vao gia tri cua n :'); Readln(n);
s:=2;
For i:=1 to n do s:=s+1;
End;
a. 6.
b. 8.
c. 10.
d. 12.
cho đoạn lệnh, hãy thực hiện các lệnh trong đoạn chương trình và cho biết sau khi thực hiện giá trị biến s,i bằng bao nhiều có bap nhiều vòng lặp trong câu lệnh s:=0;
for i:=1 to 10 do s:=s+1;
Hãy tìm hiểu đoạn lệnh sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp và khi kết thúc giá trị của S bằng bao nhiêu ?
S:= 1;
For i:= 1 to 3 do S:= S * 2
thêm câu này nữa mn ạ:
Câu lệnh For i:= 3 to 10 do begin write(i); end; khi thực hiện xong sẽ viết ra số 13 7 10 14câu cuối ạ Cho câu lệnh sau: s:=0; For i:=1 to 5 do if i mod 2 = 0 then s:=s+i else s:= s+i; cho biết kết quả s ?
c1: i = 1 i = 3 i = 5 i = 7 i = 9
c2: S = 14
c3: giá trị của i tăng lên 3 đơn vị
Em hãy hoàn thành đoạn chương trình nhập chiều cao của N bạn trong lớp bằng cách sắp xếp các câu lệnh sau theo đúng thứ tự (1) readln(N); (2)write('nhap chieu cao cua tung ban tinh theo m'); (3)write('hay nhap so hoc sinh trong lop :'); (4)begin (5)end; (6)for i:=1 to N do (7)read (a[i]); (8)write (a'[',i,']=') Giúp tôi với
(2) write(‘hay nhap so hoc sinh trong lop :’);
(1) readln(N);
(3) write(‘nhap chieu cao cua tung ban tinh theo m’);
(6) for i:=1 to N do
(4) begin
(7) read (a[I]);
(8) write (a’[‘,i,’]=')
(5) end;
cho đoạn chương trình:
S:=0;n:=0
While S <=6 do
Begin
n:=n+1
S:=S+n
End
cho biết giá trị của biến S và n sau khi thực hiện đoạn chương trình trên
4. Câu hỏi bài tập:
4.1/ Tìm hiểu câu lệnh lặp dưới đây và cho biết khi kết thúc câu
lệnh giá trị của biến S và biến n bằng bao nhiêu?
S:=0; n:=0;
While S<=10 do
Begin
n:=n+1;
S:=S+n;
End;
Trả lời:
Giá trị của biến S sau khi thực hiện
=...............
Giá trị của biến n sau khi thực hiện
=...............
4.2/ Gạch dưới chỗ sai của các câu lệnh sau và viết lại câu lệnh đúng:
a) While X:= 10 do X:= X+1;→............................................................
b) While X > 5 for X:= X-1→ .............................................................
c) While X< 10 do X = 5 ;→.................................................................
d) While X <> 0 ; do X:=X-1;→...........................................................
Sửa lại chương trình
Var a : integer;
Begin
a:=5;
While a<6 do begin
writeln(‘A’);
a := a + 1 ;
end;
end.
5. Bài tập thực hành:
Bài 1: Viết chương trình : “BAI8B1” tính tổng của các số tự nhiên liên
tiếp cho đến khi tổng lớn hơn 1000 thì dừng. Cho biết tổng tìm được và
con số cuối cùng được cộng vào:
Hướng dẫn Chương trình
1. Khai báo tên chương trình
2. Khai báo thư viện
3. Khai báo biến: S,n : số nguyên
4. Bắt đầu chương trình
5. Xóa màn hình
6. Gán S 0;n 1;
7. Trong khi S<=1000 thực hiện:
bắt đầu
SS+n
n n+ 1
kết thúc
8. In ra tổng S
9. In ra số n cuối cùng được cộng
10. Tạm dừng chương trình
11. Kết thúc chương trình
1....................................................................
2....................................................................
3....................................................................
4....................................................................
5....................................................................
6....................................................................
7....................................................................
......................................................................
......................................................................
......................................................................
......................................................................
8....................................................................
9....................................................................
10..................................................................
11..................................................................
Câu 17. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình n:=16; T:=T -n; end;
A.2 B.3 C.4 D.5
Câu 18: Cho đoạn chương trình sau:
S:=10; x:=0,5;
While >=6,2 do
S:=S-x;
Hãy cho biết giá trị của S sau đoạn chương trình trên:
A. 5 B. 4 C.6 D.7
Câu 19. Sau khi thực hiện đoạn chương trình sau:
j:=0; s:=1;
for i:=1 to 3 do
j:=j+1;
s:=j+1;
Gía trị của biến j, biến s bằng?
A. j=4, s=3 B.j:=3; s=4 C.j:=1; s=2 D.j:=2; s:=3
Câu 21. Gỉa sử có dòng lệnh :
for i:=0 to 9 do
a:=1+i;
Số lần lặp của lệnh gán a:=1+i là:
A.11 B.0 C.10 D.9
: Cho câu lệnh Readln(a,b); người dùng nhập 5 10. Cho biết b có giá trị bao nhiêu sau khi thực hiện câu lệnh?
A. Giá trị của b bằng 5 B. Giá trị của b bằng 10
C. Giá trị của b bằng 8 D. Giá trị của b bằng 15