CÂU LỆNH LẶP FOR..DO (PASCAL)

CÂU LỆNH LẶP FOR..DO (PASCAL)

Có hai dạng sau:
- Dạng tiến
FOR <biến đếm>:=<giá trị Min> TO <giá trị Max> DO S;
- Dạng lùi
FOR <biến đếm>:=<giá trị Max> DOWNTO <giá trị Min> DO S;

Câu lệnh lặp For .. do lặp lại câu lệnh S  n lần (n=giá trị Max-giá trị min+1);  Sau  Do là một câu lệnh đơn (1 câu lệnh) hoặc  nhiều câu lệnh (được đặt trong cặp từ khóa Begin ... End;)

Bài tập: Viết chương trình nhập vào số nguyên N từ bàn phím. Hãy tính và in ra màn hình tổng, tích của các số chẵn từ 1 đến N.

 USES CRT;

VAR S,N,I:INTEGER; P:LONGINT;

BEGIN
CLRSCR;
WRITE('NHAP SO n:'); READ(n);
S:=0;
FOR I:=1 TO N DO
BEGIN
IF I MOD 2 =0 THEN S:=S+I;

END;
WRITE('TONG CUA SO CHAN LA:',S);
WRITELN;

P:=1;
FOR I:=1 TO n DO
BEGIN
IF I MOD 2 =0 THEN P:=P*I;
END;

WRITE('TICH CUA DAY SO CHAN LA:',P);

READKEY;

END.