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

[r]

BÀI TẬP

KIỂM TRA BÀI CŨ

CÂU 1: Phát hiện lỗi sai trong các câu lệnh sau:

a For a = 1 to 100 do writeln(i);

For a := 1 to 100 do writeln(i);

b For b: 1.3 to 300.3 do write(‘0’)

For b := 1 to 300 do write(‘0’) ;

c For c:= 3.5 to 10 do ;

For c:= 3 to 10 do write(c) ;

C U TRÚC CÂU L NH L P Ấ Ệ Ặ

For bi n đ m:= giá tr đ uế ế ị ầ To giá tr cu i ị ố

Do câu l nh;ệ

- Bi n đ m th ế ế ườ ng là ki u nguyên ể

- Giá tr đ u nh h n giá tr cu i và là các giá ị ầ ỏ ơ ị ố

tr trùng v i ki u d li u c a bi n đ m ị ớ ể ữ ệ ủ ế ế

- Sau t khóa Do là câu l nh đ n ho c l nh ừ ệ ơ ặ ệ

ghép

Câu 2: Em hãy cho bi t ch ế ươ ng trình sau khi

ch y s cho k t qu nh th nào? ạ ẽ ế ả ư ế

Var i:byte;

Begin

For i:=1 to 50 do writeln (‘xin chao’);

Readln;

End.

KIỂM TRA BÀI CŨ

Chương trình sau khi chạy sẽ hiện lên màn hình 50 dòng chữ “Xin chao”

Câu 3: Em hãy cho bi t ch ế ươ ng trình sau khi

ch y s cho k t qu nh th nào? ạ ẽ ế ả ư ế

Var i:byte;

Begin

For i:=1 to 50 do writeln (i);

Readln;

End.

KIỂM TRA BÀI CŨ

Chương trình sau khi chạy sẽ hiện lên màn hình các số từ 1 đến 50, mỗi số nằm trên 1 dòng

Câu 4: Em hãy cho bi t ch ế ươ ng trình sau khi ch y s ạ ẽ cho k t qu nh th nào? ế ả ư ế

Var i, tong: integer;

Begin

tong:=0;

For i:=1 to 5 do tong:=tong+i;

writeln(tong);

Readln;

End.

KIỂM TRA BÀI CŨ

Chương trình sau khi chạy sẽ in ra

tổng bằng 15

TH C HÀNH: Ự

các s t 10 đ n 100 ố ừ ế

t ng sau: ổ

A= 1+2+3+…+49+50;