Hãy tìm hiểu 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 thuật toán đó
Bước 1 s:=o; i:=1
Bước 2 nếu S>=5 thì chuyển tới bước 4
Bước 3 s:=s+i và quay lại bước 2
Bước 4 thông báo S và kết thúc thuật toán
Máy sẽ thực hiện 6 vòng lặp:
s=0+1=1
s=1+1=5
s=2+1=3
s=3+1=4
s=4+1=5
s=5+1=6
vậy kết quả cuối s=6
chương trình :
program ct;
uses crt;
var s,i:integer;
begin
clrscr;
s:=0; i:=1;
while s<=5 do s:=s+i;
writeln(‘s=’,s);
readln
end.