K
Khách

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.

9 tháng 5 2018

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~

10 tháng 5 2018

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

21 tháng 3 2023

Đề đầy đủ không bạn chứ mình k thấy chương trình ở câu hỏi

 

Cho thuật toán sau:        - B1: A :=0;b :=1;                        - B2: Nếu  A≤ 30  thì chuyển qua B3, ngược lại  A > 30 thì chuyển B4;                - B3:i :=b+2 ; A:=A+b;  và quay lại B2            - B4: In ra kết quả và kết thúc thuật toán    Program Bai9;Uses CRT;Var A,b:integer;Begin    A:= 0, J:=1;    While  A<= 30 do         Begin i := b +2;A := A + b;End;    Writeln(A);    Readln;End.                    a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính...
Đọc tiếp

Cho thuật toán sau:

        - B1: A :=0;b :=1;                

        - B2: Nếu  A≤ 30  thì chuyển qua B3, ngược lại  A > 30 thì chuyển B4;        

        - B3:i :=b+2 ; A:=A+b;  và quay lại B2            

- B4: In ra kết quả và kết thúc thuật toán    
Program Bai9;

Uses CRT;

Var A,b:integer;

Begin

    A:= 0, J:=1;

    While  A<= 30 do

         Begin i := b +2;A := A + b;End;

    Writeln(A);

    Readln;

End.

                    

a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu (1,0 điểm)

b) Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện thuật toán trên.

1

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

24 tháng 3 2022

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

24 tháng 3 2022

Em sửa lại đủ đề rồi ạ

27 tháng 4 2017

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.

27 tháng 4 2017

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.