Question

Hãy tìm hiểu thuật toán sau đây, và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó?

Bước 1: S10, X0.5.

Bước 2: Nếu S<=5.2, chuyển tới bước 4.

Bướ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.

Answer 1

Máy tính thực hiện 10 vòng lặp. Khi kết thúc giá trị của S=5

program CT;

uses crt;

var i, n : integer;

x, S : real;

begin

clrscr;

S:=0; x:=0.5;

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

Write('Gia tri S la: ',S:2:3);

readln

end.