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 đề) Đề: 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 ĐIỂM NHẬN XÉT CỦA THẦY, CÔ GIÁO Đá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 <Tên biến 11>, <Tên biến 12> : <Tến kiểu dữ liệu 1>; <Tên biến 2>: <kiểu dữ liệu 2>; ………………… 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. . Lớp: NĂM HỌC 2008 – 20 09 Họ và tên: . MÔN: TIN HỌC – KHỐI 9. THỜI GIAN: 45 PHÚT (Không kể thời. 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,