TIN 9

Trường THCS Nguyễn Công Trứ KIỂM TRA CHẤT LƯỢNG HỌC KÌ I
Lớp: NĂM HỌC 2008 – 2009
Họ và tên: MÔN: TIN HỌC – KHỐI 9.
THỜI GIAN: 45 PHÚT (Không kể thời gian giao đề)
ĐIỂM
NHẬN XÉT CỦA THẦY, CÔ GIÁO




Đề:
Câu 1: Nêu cách đặt tên trong Pascal. (1đ).
Câu 2: Cho biết mẫu khai báo dữ liệu và các kiểu dữ liệu em đã học? (2đ).
Câu 3: Để tính cước phí dịch vụ Internet của đường truyền ADSL hàng tháng phải trả như sau:
Tổng số tiền = tiền thuê báo hàng tháng + đơn giá 1 MB x số MB đã được sử dụng.
Em hãy viết chương trình tính cước phí sử dụng Internet một tháng cho từng thuê bao. (4đ)
Câu 4: Hãy viết chương trình đổi giấy bạc có mệnh giá n đồng ra các loại giấy bạc 5000đ, 2000đ, 1000đ. Sao cho số tờ giấy bạc là ít nhất.

Bài làm










Đáp án
Câu 1: (1đ).
Tên là một dãy các kí tự gồm các chữ cái, chữ số và dấu “_”, nhưng bắt đầu phải là chữ cái và không trùng với các từ khóa.
Câu 2: (2đ).
Mẫu khai báo dữ liệu:
Cú pháp: VAR , : ;
: ;
…………………
Vd: VAR x,y,z:Integer;
Các kiểu dữ liệu
Byte, Integer, Longint, Real, Char.
Câu 3: (4đ)
Program Tien_ADSL;
Var thue_bao, D_gia, So_MB, tien_tra: integer;
Begin
Write(‘CHUONG TRINH TINH TIEN INTERNET‘);
Write(‘cho biet tien thue bao hang thang, đon gia 1 MB, so MB đa đuoc su dung: ‘);
Readln(thue_bao, D_gia, So_MB);
tien_tra:= thue_bao+D_gia* So_MB
Writeln(‘So tien ban tra la:’, tien_tra);
Readln;
End.
Câu 4: (3đ)
Program Hoan_vi;
Var n, T5, T2, T1:integer;
Begin
Write(‘CHUONG TRINH DOI TIEN ‘);
Write(‘Cho biet giay bac muon doi: ‘); readln(n);
T5:=n div 5000; n:=n-T5*5000;
T2:=n div 2000; n:=n-T2*2000;
T1:=n div 1000;
Writeln(‘Sau khi doi co ’,T5,’ to 5000 co ’,T2,’ to 2000 co ‘,T1,’ to 1000’);
Readln;
End.