Đề 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;

ThuVienDeThi.com

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

ThuVienDeThi.com

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.

ThuVienDeThi.com