Giải giúp em vs sắp thi hk r`
1) Cho 2 thuật toán sau
THUẬT TOÁN 1 : 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ả j và T ;
THUẬT TOÁN 2 : B1 : j<-0 ; T<-10;
B2 : Nếu T>10 thì chuyển qua B4 ;
B3 : j<- j+3 ; T<-T+j
B4 : In ra kết quả T và j
a) Hãy cho biết khi thực hiện 2 thuật toán trên máy tính sẽ thực hiện bao nhiêu vòng lập . Tính giá trị T và j ở mỗi thuật toán
b)Viết 2 chương trình thể hiện 2 thuật toán trên
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.
