Chuyển đến nội dung chính

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.

Nhận xét

Đăng nhận xét

Bài đăng phổ biến từ blog này

Tam giác số (Pascal)

TAM GIÁC SỐ  (Câu 4. Hội thi Tin Học Trẻ Phú Yên lần thứ XIX - năm 2016)                              7                          3       8                      8      1       0                   2     7        4       4                 4    5      2       6       5 Cho một tam giác gồm các số nguyên không âm (xem hình trên). Hãy viết chương trình tính tổng lớn nhất của các số nằm trên lộ trình từ đỉnh xuống: - Tại mỗi bước đi, lộ trình có thể đi xuống phía bên trái hoặc xuống phía bên phải. - Số hàng trong tam giác lớn hơn...
2 nhận xét
Đọc thêm

SỐ CHÍNH PHƯƠNG (PASCAL)

SỐ CHÍNH PHƯƠNG (PASCAL) Số chính phương là số  mà nó là căn bậc 2 của một số nguyên nào đó. ví dụ: 4,9,16,25,.... là các số chính phương;  có nhiều cách để xác định một số có phải là số có phải số chính phương hay không; cách đơn giản nhất  ta dùng lệnh if (sqr (round(sqrt(A))))=A then write('A la so chinh phuong')                                              else  write('A khong la so chinh phuong'); Ghi chú: sqrt : hàm tính căn bậc 2 sqr: hàm tính bình phương round: hàm làm tròn số - Cách khác' if frac(sqrt(A))=0 then  write('A la so chinh phuong')                                              else  write('A khong la so chinh phuong');
Đăng nhận xét
Đọc thêm

DÃY ĐAN DẤU TRONG PASCAL

DÃY ĐAN DẤU TRONG PASCAL Dãy đan dấu là dãy không có 2 phần tử cạnh nhau có dấu giống nhau. ví dụ: -2 4 -9 5 -23 8 là dãy đan dấu Thủ tục kiểm tra dãy đan dấu trong dãy số: procedure dandau; var i,j:integer;     kt:boolean; begin kt:=true; for i:=1 to N-1 do                 begin                 j:=i+1;                 if a[i] *a[j] >0 then kt:=false;                 end; If kt=true then write('Day A la day dan dau') else write('Day A khong phai day dan dau'); end;
1 nhận xét
Đọc thêm