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
SS+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

a/ Sau khi thực hiện đoạn chương trình sau: S:=0; For i:=10 to 25 do S:=S+i;

   Giá trị của biến S bằng 20

b/ Sau khi thực hiện đoạn chương trình sau: S:=10; For i:=1 to 4 do S:=S+2*i;

   Giá trị của biến S bằng bao nhiêu?

c/ Sau khi thực hiện đoạn chương trình sau: x:=0;  While  x < 5  do x:=x + 3;

Giá trị của biến x bằng bao nhiêu?

Cho đoạn lệnh sau, hãy cho biết khi thực hiện, máy tính sẽ thực hiện bao nhiêu vòng lặp, hãy lập bảng giá trị của các biến i, T trong từng vòng lặp theo mẫu sau:
Ví dụ 1: i:=0; T:=10 while T>=0 do begin i:= i+3; T:=T-i; end;
Ví dụ 2: S:=0; i:=1; while i<=6 do begin S:=S+i; i:=i+2; end;
Ví dụ 3: s:=0; for i:=1 to 10 do s:=s+i;
Ví dụ 4: i:=0; T:=30; While T>=0 do  begin i:=i+2; T:=T-i; end;
ví dụ 5: i:=0; T:=1 while T<=25 do begin i:=i+1; T:=T+i; end;
Trả lời nhanh nhất có thể giúp mình ạ!!!!!!