dựa vào thuật toán sau viết chương trình pascal
Bước 1: s <-- 0; n<--0;
Bước 2: Nếu n>=5 thì chuyển tới bước 4
Bước 3: n<-- n+1; S<-- S+n và quay lại bước 2
Bước 4: In giá trị S 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);
Var i,n,s:integer;
begin
readln(s,n);
s:=0;
n:=0;
if n <= 5 then n:=n+1;
s:=s+n;
writeln(s);
readln;
end.
uses crt;
var n,s:integer;
begin
clrscr;
s:=0; n:=0;
while n<5 do
begin
n:=n+1;
s:=s+n;
end;
write('s=',s);
readln;
end.