Cho thuật toán sau:
B1: j<= 0; T<= 20;
B2: Nếu T < 6 thì chuyển qua B4;
B3: j<= j + 2; T <= T – j;
B4: in ra kết quả T và j;
a, Hãy cho biết, khi thực hiện thuật toán trên, mấy tính sẽ thực hiện bảo nhiêu vòng lặp? Giá trị của T và j là bao nhiêu.
b, Viết Đoạn chương trình thế hiển hai thuật toán trên.
a) Khi thực hiện thuật toán trên, máy tính sẽ thực hiện 4 vòng lặp
– Lặp lần 1: j=2, T=18
– Lặp lần 2: j=4, T=14
– Lặp lần 3: j=6, T=8
– Lặp lần 4: j=8, T=0 (Thỏa mãn ĐK T<6)
b)
program thuattoan;
uses crt;
var T,j:integer;
begin clrscr;
j:=0; T:=20;
If T>6 then j:=j+2; T:=T-j;
write(‘Gia tri T va j la: ‘,T:5,j:5)
readln;
end.
Học tốt!
a) Máy tính thực hiện
`j=0 => j=2 => T=18`
`j=2 => j=4 => T=14`
`j=4 => j=6 => T=8`
`j=6 => j=8 => T=0`
(Dừng lại `=>` lặp `4` lần)
b)
Program Hotboy;
Uses crt;
Var T,j:integer;
Begin
Clrscr;
j:=0; T:=20;
If T>6 then
j:=j+2; T:=T-j;
Write(‘T la’,T,’j la’,j)
Readln;
End.