Hãy tìm hiểu các cụm câu lệnh sau đây và cho biết với các câu lệnh đó chương trình thực hiện bao nhiêu vòng lặp? Hãy rút ra nhận xét của em.

a)

S:=0; n:=0;

while S<=10 do

   begin n:=n+1; S:=S+n end;

b)

S:=0; n:=0;

while S<=10 do

   n:=n+1; S:=S+n;

Hãy chỉ ra lỗi trong các câu lệnh sau đây:

a) X:=10; while X:=10 do X:=X+5;

b) X:=10; while X=10 do X=X+5;

c) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;

S:=2 ; i :=0;

While i<=10 do

        Begin

        S :=S + i; i :=i +2

Cho đoạn chương trình sau: s := 0; i := 1 while s <= 10 do begin i := i + 1; s := s + i; end; Cho biết câu lệnh while dừng khi s bằng bao nhiêu?

cho các đoạn chương trình sau:

a) S:=1; For i:=1 to 8 do S:=S+5

                     Writeln (S'='=S);

b) i:=1; S:=0 ; While S<10 do 

                                Begin S:=S+2; i:=i+1; End;

hãy cho biết chương trình sẽ lặp bao nhiêu vòng  khi thực hiện : s :=0 ; n:= 0 ; while s<=10 do begin n:=n+1 ; s:=s+n ;

Em hãy xác định các câu lệnh sau đây đúng hay sai? Nếu sai hãy giải thích tại sao?

a)    For i:=150 to 1 do writeln(‘A’);

b)    For i:=1.5 to 30.5 do writeln(‘B’);

c)     S:=0;n:=0; While S<=20 do begin n:=n+1;S:=S+n; end

d)    Var X: array[10..1] of integer;

e)    Var X: array[1,5...20,5] of integer;

f)      Var X: array[1..30] of integer;

Cho biết đoạn chương trình Pascal sau đây, khi kết thúc giá trị của S bằng bao nhiêu?

S:=0; n:=0;

while S<10 do

begin

n:= n+1;

S:= s+n

end;

A. 15

B. 10

C. 6

D. 3