Bài giảng Tin học 8 - 9

CÊu tróc cña vßng lÆp x¸c ®Þnh For... Bµi tËp.[r]

1 Cấu trúc vịng lặp xác định For

C¸ch 1:

FOR bi n u n:= giá tr đ u ế ề ể ị ầ TO giá tr cu i ị ố DO cơng vi c ệ

Chó ý: Giá trị đầu < giá trị cuối

Ví dô:

Writeln(‘In cac so tu 10 - 50’);

C¸ch 2:

FOR bi n u n:= giá tr đ u ế ề ể ị ầ

DOWNTO giá tr cu i ị ố DO cụng vi c Chú ý: Giá trị đầu > giá trị cuối

Ví dụ:

Writeln(In cac so tu 10 - 5’);

For i:=10 to writeln(i);

2 Bµi tËp

Bài t p Vi t hình s ậ ế ố nguyên t 100->500 cho m i s ỗ ố cách m t kho ng xác đ nh.ộ ả ị

Bài t p 1:ậ

Program BT1; Uses Crt;

Var i: integer; Begin

Writeln(‘In cac so tu 100 - 500’); For i:=100 to 500 writeln(i);

2 Bµi tËp

Bài tâp Vi t hình s nguyên ế ố t 500->50, m i s n m m t dòng.ừ ỗ ố ằ ộ

Bài t p 2:ậ

Program BT2; Uses Crt;

Var i: integer; Begin

Writeln(‘In cac so tu 500 - 50’);

For i:=500 downto 50 writeln(i); Readln;

2 Bµi tËp

Bài t p Tính t ng s nguyên t 10-ậ ổ ố 20Program BT3;

Uses Crt;

Var i, T: integer; Begin

T:=0;

For i:=10 to 20 T:=T+i;

Writeln(‘Tong cac so tu 10-20 la:’,T); Readln;

2 Bµi tËp

Bài t p Tính t ng n s nguyên nh p ậ ổ ố ậ t bàn phímừ

VÝ dơ: Ch ¬ng trình sau dịch:

Nhập n số : 4 NhËp sè thø 1: 1 NhËp sè thø 2: NhËp sè thø 3: 7 NhËp sè thø 4: 9

Bài t p 4:ậ

Program BT4; Uses Crt;

Var i,T,x,n: integer; Begin

T:=0;

Write(‘Nhap so n:’); readln(n); For i:=1 to n

Begin

writeln(‘Nhap gia tri so thu’,i); readln(x); T:=T+x;

End;

Writeln(‘Tong n so vua nhap la:’,T); Readln;