Bước 1: S<=10, x<=0.5;
Bước 2: Nếu S<=5.2, chuyển tới buớc 4.
Buớc 3: S<=S-x và quay lại bước 2.
Bước 4: Thông báo S và kết thúc thuật toán.
Chuơng trình
PROGRAM CT48;
USES crt;
VAR S, x: REAL;
BEGIN
writeln('Chuong trinh thuat toan 1');
S:=10; x:=0.5;
WHILE S>5.2 DO S:=S-x;
Writeln('S = ',S:4:2);
Readln
END.
Download: http://www.mediafire.com/?xfdqdukdee4zr7n
Bước 2: Nếu S<=5.2, chuyển tới buớc 4.
Buớc 3: S<=S-x và quay lại bước 2.
Bước 4: Thông báo S và kết thúc thuật toán.
Chuơng trình
PROGRAM CT48;
USES crt;
VAR S, x: REAL;
BEGIN
writeln('Chuong trinh thuat toan 1');
S:=10; x:=0.5;
WHILE S>5.2 DO S:=S-x;
Writeln('S = ',S:4:2);
Readln
END.
Download: http://www.mediafire.com/?xfdqdukdee4zr7n