viết chương trình thể hiện thuật toán sau:
b1: a <- 10; b <- 1;
b2: nếu b>=5,5 thì chuyển đến bước 4
b3: b <- b+1,5 ; a <- a+b và quay lại bước 2
b4: in giá trị của các biến ra màn hình và kết thúc thuật toán
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.
Những câu hỏi liên quan
24 tháng 3 2022
a. Thuật toán 1 :
Máy tính sẽ thực hiện 10 vòng lặp , khi kết thúc thuật toán giá trị của S = 5.0
Đoạn chương trình Pascal tương ứng:
Quảng cáo
S := 10; x := 0.5;
While S > 5.2 do
S := S – x;
Writeln(S);
b. Thuật toán 2 :
Máy tính sẽ không thực hiện vòng lặp nào do điều kiện không thỏa mãn, khi kết thúc thuật toán giá trị của S = 10
Đoạn chương trình Pascal tương ứng:
S := 10; n := 0;
While S < 10 do
Begin
n := n + 3;
S := S – n
End;
Writeln(S);
bạn ơi thuật toán cho là b>=5,5 nên bạn cx phải gán như vật nha . với sau lệnh gán b bạn nên có dấu ;
Chương trình:
uses crt;
var a,b:integer;
begin
clrscr;
a:=10;
b:=1;
while b<=5.5 do
begin
b:=b+1.5
a:=a+b;
end;
writeln('a = ',a);
writeln('b = ',b);
readln;
end.