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 (nêu cách làm)?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 thuật toán đó. bước 1:SB2,xB2. bước 2:nếu S>=10,chuyển đến bước 4 bước 3: SBS+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

máy tính sẽ thực hiện 4 vòng lặp.

giá trị s=10.

viết chương trình

program oken;

uses crt;

var s,x:longint;

begin

clrscr;

s:=2; x:=s;

while s<10 do

    s:=s+x;

writeln('s: ',s);

readln;

end.

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:

   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ủaS = 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);