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 1 2017

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.leu

10 tháng 1 2017

mình cũng biết là đáp án đó nhưng mình không hiểu thui

20 tháng 4 2020

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

- Máy thực hiện gồm vô hạn vòng lặp

- Khi kết thúc vòng lặp giá trị của S không xác định

- Chương trình :

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<=10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

6 tháng 1 2021

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10

-kết thúc,s=10

chương trình:

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

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

22 tháng 3 2022

trả lời giúp mình đi mngoi