Những câu hỏi liên quan
Bình Phú
Xem chi tiết
Phương Bella
Xem chi tiết
Huỳnh Quang Sang
9 tháng 5 2018 lúc 19:55

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~

Bình luận (0)
Phương Bella
10 tháng 5 2018 lúc 10:59

Giải chi tiết hộ mik với Huỳnh Quang Sang

Bình luận (0)
help me
Xem chi tiết
Yến Nhii
Xem chi tiết
Yến Nhii
Xem chi tiết
Trần Hiếu Anh
24 tháng 3 2022 lúc 15:23

Có đề thêm không bạn?

Bình luận (1)

S<-0 là sao ấy bạn

Bình luận (0)
Nguyễn Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2022 lúc 14:02

a: Thực hiện 5 vòng lặp

T=35

j=11

b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi

Bình luận (0)
Phạm Tấn Tú
Xem chi tiết
Huỳnh Minh Thuận
27 tháng 4 2017 lúc 22:07

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.

Bình luận (1)
Huỳnh Minh Thuận
27 tháng 4 2017 lúc 22:08

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.

Bình luận (0)
như quỳnh
Xem chi tiết
Bùi Thọ Anh
Xem chi tiết