Cho thuật toán sau :
B1: j ←0; T ←105
B2: Nếu T<20 thì chuyển qua 4B;
B3: j ←j+5 ; 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 bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu
b,Viết 2 đoạn chương trình thể hiện thuật toán trên
Ai nhanh và đúng mk vote cho nhá
a)
Thực hiện 6 vòng lặp:
– Lần 1: j=5, T=100
– Lần 2: j=10, T=90
– Lần 3: j=15, T=75
– Lần 4: j=20, T=55
– Lần 5: j=25, T=30
– Lần 6: j=30, T=0
b)
1. While do
program ct;
uses crt;
var j,T:integer;
begin clrscr;
j:=0; T:=105;
while T>=20 do
begin
j:=j+5; T:=T-j;
end;
write(‘T= ‘,T,’ va j= ‘,j);
readln;
end.
2. For do
program ct;
uses crt;
var j,T:integer;
begin clrscr;
T:=105
for j:=0 to 30 do
if j mod 5=0 then T:=T-j;
write(‘T= ‘,T,’ va j= ‘,j);
readln;
end.
Học tốt!
a)
T=105 so với điều kiện nhỏ hơn nên chương trình dừng lại j=0, T=105
b
program ct;
uses crt;
var j,T:integer;
begin
clrscr;
j:=0 T:=105;
while T<20 do
begin
j:=j+5;
T:=T-j;
end;
writeln(j)
writeln(T);
readln
end.
For to
program ct;
uses crt;
var i,T:integer;
begin
clrscr;
T:=105;
for j:=1 to 30 do T:=T-j;
writeln(j)
writeln(T);
readln
end.