Cho thuật toán sau:
B1 : j <- 0; t<-100;
B2 : nếu t < 30 thì chuyển qua bước B4
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ận toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp giá trị của t và j là bao nhiêu?
b, sử dụng lệnh lặp While...do viết đoạn chương trình thể hiện thuật toán trên
a)
– Thực hiện 5 vòng lặp
– Khi kết thúc: t= 25, j= 25
b)
program ct;
uses crt;
var t,j:integer;
begin clrscr;
j:=0; t:=100;
while t>=30 do
begin
j:=j+5; t:=t-j;
end;
write(‘t= ‘,t,’ va j= ‘j);
readln;
end.
Học tốt!
a)
– Thực hiện 5 vòng lặp
– Khi kết thúc: t= 25, j= 25
b)
program Bai_tap_1;
uses crt;
var t,j:integer;
begin clrscr;
j:=0; t:=100;
while t>=30 do
begin
j:=j+5; t:=t-j;
end;
write(‘t= ‘,t,’ va j= ‘j);
readln
end.