1. B1: J<--0; J<--105 B2: Nếu T<20 chuyển qua B4 B3: J<-- J+5; T<-- T-1 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 bao nhiêu vòng lặp và giá trị của T và J là bao nhiêu? b. Viết câu lệnh Pascal để thực hiện thuật toán trên
1. B1: J<--0; J<--105 B2: Nếu T<20 chuyển qua B4 B3: J<-- J+5; T<-- T-1 B4: in ra kết quả T và J a. Hãy cho biết khi thực hiện thuật toán
By Mackenzie
uses crt;
var j,t:integer;
begin
clrscr;
j:=0; T:=105;
while T>=20 do
begin
j:=j+5;
t:=t-1;
end;
writeln(‘T= ‘,t);
writeln(‘j= ‘,j);
readln;
end.
– T=19;
– j=430;
– Số vong lặp: 86
1.
a) Vòng lặp sẽ không thực hiện 6 lần và j=30; t=0
Lần 1: j=0+5=5; t=105-5=100;
Lần 2: j=5+5=10; t=100-10=90;
Lần 3: j=10+5=15; t=90-15=75;
…
Lần 6: j:=25+5=30; t=30-30=0;
b)
uses crt;
var t,j:longint;
begin
clrscr;
j:=0; t:=105;
while t>=20 Do
begin
j:=j+5; t:=t-j;
end;
writeln(t,’ ‘,j);
readln
end.