Đề cương ôn thi môn Tin học khối 8 học kì I năm học 2015 – 2016

ĐỀ CƯƠNG ÔN THI MÔN TIN HỌC KHỐI 8
HỌC KÌ I Năm học 2015 – 2016
B. Phần thực hàmh
Câu 1: Gõ và sửa lỗi cho chương trình tính diện tích vuông sau ( 3đ)
Program bai1;
Ues crt;
Var canh integer;
Begin
Clscrs;
Writeln (‘nhap canh:’) readln(canh)
dientich =canh*canh;
Writeln (‘ dien tich hinh vuong la:, dientich);
Readln;
End.
Câu 2: Bổ sung thêm câu lệnh điều kiện để hoàn chỉnh chương trình kiểm tra n là số lẽ hay số chẳn (3đ)
Program kiemtra;
Ues crt;
Var n:integer;
Begin
Clrscr;
Writeln (‘nhap n:’); readln(n);
If..
Else
Readln;
End.
Câu 3: VCT in ra màn hình thông tin của học sinh (1đ)
Câu 4: sửa lỗi cho chương trình tính tổng sau ( 3đ)
Program bai1;
Ues crt;
Var a. b:integer;
Begin
Clscrs;
Writeln (‘nhap a:’) readln(a);
Writeln (‘nhap b:’); readln(b)
Tong =a+b;
Writeln (‘ tong hai so a va b la:, tong);
Readln;
End.
Câu 5: Viết câu lệnh so sánh 2 số a và b. in ra số lớn nhất (3đ)
Program bai1;
Ues crt;
Var a. b:integer;
Begin
Clrscr;
Writeln (‘nhap a:’); readln(a);
Writeln (‘nhap b:’); readln(b);
if
else
Readln;
End.
Câu 6: Gõ và sửa lỗi cho chương trình tính chu vi hình vuông sau ( 3đ)
Program bai1;
Ues crt;
Var canh integer;
Begin
Clscrs;
Writeln (‘nhap canh:’) readln(canh)
chuvi =canh4;
Writeln (‘ chuvi hinh vuong la:, chuvi);
Readln;
End.
Câu 7: Gõ và sửa lỗi cho chương trình tính tổng sau ( 3đ)
Program bai1;
Ues crt;
Var a, integer;
Begin
Clscrs;
Writeln (‘nhap a,b:’) readln(a,b)
tong =a+b;
Writeln (‘ tong hai so a b la:, tong);
Readln;
End.
Câu 8: Gõ và sửa lỗi cho chương trình tính hiệu sau ( 3đ)
Program bai1;
Ues crt;
Var a, integer;
Begin
Clscrs;
Writeln (‘nhap a,b:’) readln(a,b)
hieu =a+b;
Writeln (‘ hieu hai so a b la:, hieu);
Readln;
End.
Câu 9: Viết câu lệnh kiểm tra 2 số a và b. Cho biết a có chia hết cho b không? (3đ)
Program bai1;
Ues crt;
Var a. b:integer;
Begin
Clrscr;
Writeln (‘nhap a:’); readln(a);
Writeln (‘nhap b:’); readln(b);
if
else
Readln;
End.
Câu 10: Bổ sung thêm câu lệnh điều kiện để hoàn chỉnh chương trình kiểm tra n có chia hết cho 2 không? (3đ)
Program kiemtra;
Ues crt;
Var n:integer;
Begin
Clrscr;
Writeln (‘nhap n:’); readln(n);
If..
Else
Readln;
End.