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

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:’ readlncanh dientich =canh*ca

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

Writeln (‘nhap a:’); readln(a);

Writeln (‘nhap b:’); readln(b);

if

else

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

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