Chương trình thực hiện bao nhiêu vòng lặp, S=?, Viết Pascal
B1 S:=1, i:=1
B2 i>5, chuyển B4
B3 S := S+i, i:= i+2 và quay lại B2
B4 thông báo giá trị và kết thúc thuật toán
-Giang-
Chương trình thực hiện bao nhiêu vòng lặp, S=?, Viết Pascal B1 S:=1, i:=1 B2 i>5, chuyển B4 B3 S := S+i, i:= i+2 và quay lại B2 B4 thông báo giá trị v
By Charlie
Thực hiện 3 vòng lặp.
`S=10`
`i=1→i<5→` $\begin{cases}S=1+1=2\\i=1+2=3\end{cases}$
`i=3→i<5→` $\begin{cases}S=2+3=5\\i=3+2=5\end{cases}$
`i=5→i=5→` $\begin{cases}S=5+5=10\\i=5+2=7\end{cases}$
`i=7→i>5→` Kết thúc vòng lặp.
___________________________________________
VCT:
program phuongt;
uses crt;
var i, s: integer;
begin
clrscr;
s:=1; i:=1;
while i<=5 do
begin
s:=s+i;
i:=i+2;
end;
write(‘Gia tri s = ‘, s);
readln
end.
Số vòng lặp:
-Vòng (1): 1<5 nên: S=1+1=2;
i=1+2=3;
-Vòng (2): 3<5 nên: S=2+3=5;
i=3+2=5;
-Vòng (3): 5=5 nên: S=5+5=10;
i=5+2=7;
7>5 nên chương trình kết thúc.
⇒ Chương trình thực hiện 3 vòng lặp;
S=10.
Viết chương trình:
program BT;
uses crt;
var i,S: byte;
Begin
clrscr;
S:=1; i:=1;
while i<=5 do
begin
S:=S+i;
i:=i+2;
end;
write(‘S = ‘,S,’ , i = ‘,i);
readln
End