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..................................................................

Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó.
Bước 2. Nếu S > 10, chuyển tới bước 4.

Bước 3. n ← n+2, S ← S+n và quay lại bước 2.

Bước 4. Thông báo S và kết thúc thuật toán.

Cần rất gấp!!!!!!

Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó

b) Thuật toán 2

Bước 1. S ←10, n ← 0.

Bước 2. Nếu S ≥ 10, chuyển tới bước 4.

Bước 3. n ← n+3, S ← S-n và quay lại bước 2.

Bước 4. Thông báo S và kết thúc thuật toán.

Câu 1: khi thực hiện đoạn chương trình sau: n:=1; T:=50;

While n > 20 do begin n:=n+5; T:= T – n end;

Hãy cho biết giá trị của biến T bằng bao nhiêu?

A.    14  

B.    15

C.    16

D.   17

Câu 2:

a)    Trong câu lệnh khai báo biến mảng,phát biểu nào sau đây là đúng

A.    Chỉ số đầu và chỉ số cuối là 2 số nguyên

B.    Chỉ số đầu chỉ số cuối

C.    Kiểu dữ liệu có thể là integer hoặc real

D.   Cả 3 ý trên

b)    Trong cú pháp khai báo biến mảng,chỉ số đầu và chỉ số cuối là hai số

A.    Số nguyên

B.    Số thực

C.    Kí tự

D.   Xâu kí tự