: Trình bày cú pháp lệnh lặp với số lần chưa biết trước? Cho ví dụ. Áp dụng: Viết chương trình tính và đưa ra tổng sau: S = 1 + 1/3 + 1/5 +1/7 +.+1/N+cho đến khi S > 3,15.

Để lặp một khối lệnh một số lần chưa biết trước, ta có thể sử dụng cấu trúc lặp while hoặc repeat-until.

Cấu trúc while: Cú pháp:

while điều kiện lặp do
   // Khối lệnh cần lặp
end;

Ví dụ:

var
   i: integer;
begin
   i := 1;
   while i <= 10 do
   begin
      writeln('i = ', i);
      i := i + 1;
   end;
end.

----------------------------------------------------------------------------------------

Cấu trúc repeat-until: Cú pháp:

repeat
   // Khối lệnh cần lặp
until điều kiện lặp;

Ví dụ:  

var
   i: integer;
begin
   i := 1;
   repeat
      writeln('i = ', i);
      i := i + 1;
   until i > 10;
end.

----------------------------------------------------------------------------------------

Viết chương trình tính và đưa ra tổng:

program TinhTong;
var
  i: integer;
  S, a: real;
begin
  i := 1;
  S := 0;
  a := 1;
  
  while (S <= 3.15) do
  begin
    S := S + a;
    a := 1 / (2 * i + 1);
    i := i + 1;
  end;
  
  writeln('Tong S la: ', S:0:2);
  writeln('So phan tu tinh den khi S > 3.15 la: ', i - 1);
  
  readln;
end.