De cuong on th hk 1( thuc hanh)

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