Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
B1 : j : =0
T :=105
While T>= 20 do begin j := j + 5 T :=T - j ; end;
Write \((T)\); write\((j)\)
Bài thuật toán kiểu j vậy??
Mk thấy đây là môn Tin học mà
Chúc bạn học tốt~
a) Thuật toán 1 : Máy tính sẽ thực hiện 4 vòng lặp, j=8, T=0.
Thuật toán 2 : Máy tính sẽ thực hiện 1 vòng lặp, j=3, T=13.
b) Viết chương trình thể hiện thuật toán 1.
Program tính_toán;
Var j,T : integer;
begin
j:=0; T:=20;
While T >= 6 do
begin j:=j+2;
T:=T-j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
Program tính_toán;
Var j,T : integer;
begin
j:=0; T:=20;
While T >= 6 do
begin j:=j+2;
T:=T-j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
Viết chương trình thể hiện thuật toán 2.
Program tính_toán;
Var j,T : real;
begin
j:=0; T:=10;
While T <= 10 do
begin j:=j+3;
T:=T+j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
a) Thuật toán 1 : Máy tính sẽ thực hiện 4 vòng lặp, j=8, T=0.
Thuật toán 2 : Máy tính sẽ thực hiện 1 vòng lặp, j=3, T=13.
b) Viết chương trình thể hiện thuật toán 1.
Program tính_toán;
Var j,T : integer;
begin
j:=0; T:=20;
While T >= 6 do
begin j:=j+2;
T:=T-j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
Viết chương trình thể hiện thuật toán 2.
Program tính_toán;
Var j,T : real;
begin
j:=0; T:=10;
While T <= 10 do
begin j:=j+3;
T:=T+j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
t=40,i=25. Giải chi tiết là sao. Cô mình dạy cho mình cách giải là ghi đáp án thui mà.Thông cảm nhen.
Lời giải :
a) Vòng lặp chạy 0 vòng , T=70 , j=0 .
b) program hotrotinhoc ;
var j,t : integer ;
begin
T:=70; j:=0;
while T<20 do
begin
j:=j+10;
t:=t-j;
end;
writeln('T=',T);
write('j=',j);
readln
end.