Câu lệnh vòng lặp trong Pascal - Tin học 11

 1. Vòng lặp for

Vòng lập for có cấu trức như sau:

FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <câu lệnh>;

Dạng lùi lại:

FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh>;

Ví Dụ: tính tổng các số liên tiếp từ 1 đến 100:

uses crt;
var i,n,s: longint;
BEGIN
clrscr;
        Writeln('nhap so n ');
        readln(n);
        S:=0;
        for i:=1 to n do s:= s+i ;
         writeln('in ra tổng của s: ',s);
readln;
END.

lúc này bạn nhập n là 100 nó sẽ in ra tổng của số điếm liên tiếp tư 1 đến 100...bạn hãy thử xem nó sẽ bằng mấy :D

 2. Vòng lặp while

- Cú pháp:  

while <điều kiện> do <câu lệnh>

- Câu lệnh sẽ được lặp lại nhiều lần cho đến khi nào điều kiện còn đúng (nếu điều kiện sai thì các lệnh này sẽ không thực hiện nữa). Đối với lệnh này điều kiện sẽ được kiểm tra trước khi thực hiện lệnh nên nên điều kiện sai thì không có lệnh nào được thực hiện.

vd: Tính tổng các số liên tiếp từ 1 đến 100

var i: byte;    S: longint;begin    S:= 0;    i:= 1;    while i <= 100 do         begin              S:= S + i;              i:= i +1;         end;    write('Tong tu 1 den 100 la:',S);    readln;end.

 3. Vòng lặp repeat 

- Cú pháp:

repeat <câu lệnh>;until <điều kiện>;

- Câu lệnh giữa repeat và until sẽ được lặp lại nhiều lần khi nào điều kiện sai, nếu điều kiện đúng thì ngưng (ngược với vòng lặp while). Đối với lệnh này điều kiện sẽ được kiểm tra sau khi thực hiện các lệnh giữa repeat và until nên ít nhất các lệnh sẽ được thực hiện trước 1 lần rồi mới kiểm tra điều kiện đúng hay sai (nếu sai thì thực hiện tiếp vòng lặp, đúng thì ngưng).

vd: Tính tổng các số liên tiếp từ 1 đến 100

var i,n: integer;
    S: real;
begin
    S:=0; i:=1;
    repeat
    S:=S+i; i:=i+1;
    until i>100;
    writeln('Tong = ',S);
    readln;
end.

SHARE THIS