Tiet 15 tin 8

1
TIN 8
Doãn Thế Anh Tuấn
Trường THCS Hợp Châu
2
Program CV_DT;
Var a,b: integer; CV, DT: Real;
Begin
Write(‘Nhap a,b: = ‘); Readln(a,b);
DT: = a*b; CV: = 2*a + 2*b;
Writeln(‘dien tich la:=‘,dt);
Writeln(‘(chu vi la:=‘,cv);
Readln;
End.
KIỂM TRA BÀI CŨ
Tính diện tích và chu vi hình chữ nhật với chiều Rộng và chiều dài được nhập vào từ bàn phím
3
TIẾT 15
BÀI TẬP
TIN HỌC LỚP 8
4
Câu 1: Trong ngôn ngữ lập trình Pascal tỪ khóa Program dùng để
khai báo tên chương trình
khai báo biến
khai báo thư viện
khai báo hằng
5
Câu 2: Trong ngôn ngữ lập trình Pascal, với câu lệnh như sau: Writeln (‘KQ là:’, a); cái gì sẽ in ra màn hình?
Ket qua la: a;
KQ la a;
Không đưa ra gì cả
KQ la:;
6
Câu 3 : Trong các tên dưới đây, tên nào hợp lệ trong Ngôn ngữ Pascal ? Tại sao ?
A. Muaxuannhonho; 
B. Integer;
C. 101_con_cho_dom;
D. Ngay-20-11;
E. STRING ;
F. Du am;
7
Câu 4: Phát hiện lỗi trong chương trình sau và sửa lại cho đúng
Program Chuong trinh 1;
Begin
Uses crt;
Writeln ( hoa cỏ mùa xuân);
End;
Program Chuongtrinh1;
Uses crt;
Begin
Writeln ( ‘hoa co mua xuan’);
End.
Sau khi chỉnh sửa Chương Trình
8
Program hinh_chu_nhat;
Var Cv, dt: real;
Const a = 4; b = 20;
Begin
Write(‘Cho biet ban kinh:’);
Readln(ban_kinh);
Cv:= 2*a + 2*b;
Dt:= a*b;
Writeln(‘C=’, chu_vi, ‘S=’, dt);
Readln
End.
Câu 5: Dưới đây là một chương trình viết trong Pascal:
Hằng: ………………………………
Biến: …………………………..
Từ khoá: ……………………….......
Tên C/Trình: …………………………...
Hãy cho biết: Đâu là biến, hằng,
từ khoá và tên chương trình
CV, DT
Program, Var, const, begin, End
Hinh_chu_nhat
a, b
9
Câu 6 Trong Turbo Pascal, để thực thi chương trình:
Nhấn phím F9

Nhấn tổ hợp phím Alt+F5

Nhấn tổ hợp phím Ctl+F9

D. Nhấn tổ hợp phím Alt+F9
10
Câu 7: Chọn kết quả đúng khi thực hiện phép chia, phép chia lấy phần nguyên, phép chia lấy phần dư của hai số nguyên
26/4 = 6,5; 26 div 4 = 2; 26 mod 4 = 6
26/4 = 6; 26 div 4 = 6; 26 mod 4 = 2
26/4 = 6; 26 div 4 = 2; 26 mod 4 = 6
26/4 = 6.5; 26 div 4 = 6; 26 mod 4 = 2
11
Câu 8: Viết các phéo so sánh sau bằng ký hiệu pascal
((2*x-y*(x+y)-3)/10>1
a*a+2*b+(1+b)*(1+b) <>1
(a*a+2*b)*(1/(1+b)) = 12
5+c*c < (1+b)*((b+2)/a*a)
12
Câu 9: Để khai báo biến x thuộc kiểu số thực ta khai báo:
A. Var x: String;
B. Var x: integer;
C. Var x: Char;
D. Var x: Real;
13
Câu 10: Trong các chương trinh, chương trinh nào không hợp lệ:
14
Câu 11:Để nhập dữ liệu ta dùng lệnh
A. Clrscr;
B. Readln(x);
D. X:= ‘dulieu’;
C. Write(‘Nhap du lieu’);
15
Câu 12 : Hãy sửa lại chương trình dưới đây cho đúng:
Var x,y,z := integer;
Begin;
x:= 15
y= 6;
z:= x/y;
writeln(z);
End.
Var x,y : integer;
z: Real;
Begin
x:= 15;
y:= 6;
z:= x/y;
writeln(z);
End.
Chương trình sau khi đã chỉnh sửa