Question

[Phạm Tấn Tú]

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

Answer 1

[Huỳnh Minh Thuậ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.

Answer 2

[Huỳnh Minh Thuậ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.

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.