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

ĐỀ CƯƠNG ÔN THI MÔN TIN HỌC KHỐI HỌC KÌ I Năm học 2015 – 2016 B Phần thực hàmh Câu 1: Gõ sửa lỗi cho chương trình tính diện tích vng 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 để hồn chỉnh chương trình kiểm tra n 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 hình thơng tin 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 số a b in số lớn (3đ) Program bai1; Ues crt; Var a b:integer; Begin Clrscr; ThuVienDeThi.com Writeln (‘nhap a:’); readln(a); Writeln (‘nhap b:’); readln(b); if else ThuVienDeThi.com Readln; End Câu 6: Gõ sửa lỗi cho chương trình tính chu vi hình vng 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õ 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õ 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 số a 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 để hồn chỉnh chương trình kiểm tra n có chia hết cho khơng? (3đ) Program kiemtra; Ues crt; Var n:integer; Begin Clrscr; Writeln (‘nhap n:’); readln(n); If……… Else………… Readln; End ThuVienDeThi.com ... 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 số a b Cho biết a... 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;... 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 không? (3đ) Program kiemtra; Ues crt; Var n:integer; Begin Clrscr; Writeln (‘nhap n:’); readln(n); If……… Else…………