Bài 8. Lặp với số lần chưa biết trước

Uses crt;

var i,n,z: longint;

begin clrscr;

readln(n); 

z:=1;

while(i<n) do begin 

i:=i+1;

z:=z*i;

end;

writeln(z);

readln;

end.

program TinhGiaiThua;

var n, giaiThua: integer; 

begin
writeln('Nhap vao gia tri cua n (>0): ');
  readln(n);

if n <= 0 then
  begin
    writeln('Gia tri cua n phai lon hon 0.');
    exit; 
  end;

giaiThua := 1; 
  while n > 0 do
  begin
    giaiThua := giaiThua * n;
    n := n - 1;
  end;
  writeln('Giai thua cua n la: ', giaiThua);
   readln;
end.

While..do

Program HOC24;

var i: integer;

s: longint;

begin

s:=0; i:=1;

while i<=2018 do

begin

s:=s+i;

i:=i+1;

end;

write('S = ',s);

readln

end.

For..do

Program HOC24;

var i: integer;

s: longint;

begin

s:=0;

For i:=1 to 2018 do s:=s+i;

write('S = ',s);

readln

end.

⇒ Đáp án:      A. Cùng kiểu với giá trị đầu và giá trị cuối

A. Cùng kiểu với giá trị đầu và giá trị cuối 

Chọn C

Chọn D

Câu lệnh lặp với số lần chưa biết trước được gọi là vòng lặp không xác định (unbounded loop), trong khi đó câu lệnh lặp với số lần chưa biết trước được gọi là vòng lặp xác định (bounded loop).

Cụ thể, sự khác biệt giữa hai loại vòng lặp này như sau:

Vòng lặp không xác định: Không biết trước số lần lặp cụ thể, mà chỉ dừng lại khi thỏa mãn điều kiện nào đó trong quá trình lặp. Vòng lặp này thường sử dụng khi chưa biết trước số lần cần lặp hoặc khi số lần lặp phụ thuộc vào một điều kiện nào đó. Ví dụ: vòng lặp while hoặc do-while.

Vòng lặp xác định: Biết trước số lần lặp cụ thể, vòng lặp sẽ lặp lại một số lần đã được xác định trước. Vòng lặp này thường sử dụng khi biết trước số lần cần lặp. Ví dụ: vòng lặp for.

Ví dụ về vòng lặp không xác định:

i := 0;
while i < 10 do
begin
  i := i + 1;
  WriteLn('i = ', i);
end;

Vòng lặp này sẽ lặp lại cho đến khi i đạt giá trị 10. Số lần lặp không biết trước, mà phụ thuộc vào giá trị của i.

Ví dụ về vòng lặp xác định:

for i := 1 to 10 do
begin
  WriteLn('i = ', i);
end;

Vòng lặp này sẽ lặp lại 10 lần, từ i bắt đầu từ 1 và tăng lên 1 đơn vị cho đến khi đạt giá trị 10. Số lần lặp là xác định, và đã được xác định trước bởi vòng lặp for.

A/ Không vì giá trị đầu > giá trị cuối

B/ Hợp lệ (nhưng lỗi  x:=x+5; không phải x=x+5)

program Tinh_S;

var i,n:integer;

     S:real;

begin

    writeln('Nhap so n=') ; readln(n);

    i:=1 ; S:=0;

    while i<=n do

       begin

          S:=S+1/n*(n+1); i:=i+1;

       end;

   writeln('Tong S=',S);

  readln

end.

program Tinh_S;

var i,n:integer;

     S:real;

begin

    writeln('Nhap so n=') ; readln(n);

    i:=1 ; S:=0;

    while i<=n do

       begin

          S:=S+1/n*(n+1); i:=i+1;

       end;

   writeln('Tong S=',S);

  readln

end.

program tinh_tong_S;

var
  n: integer;
  i: integer;
  S: real;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + 1 / (i * (i + 1));
    i := i + 1;
  end;
  
  writeln('Tong S la: ', S:0:2);
  
  readln;
end.

Program HOC24;

var i,s: integer;

begin

s:=0; i:=1;

while s<=22 do

begin

s:=s+i;

i:=i+1;

end;

s:=s-i;

write('Tong la: ',s);

readln

end.

program sum_of_naturals;

var
  i, n, sum: integer;

begin
  n := 1;
  sum := 0;
  
  while sum + n <= 22 do
  begin
    sum := sum + n;
    n := n + 1;
  end;
  
  writeln('The sum of the first ', n-1, ' natural numbers is ', sum);
end.