TIN 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.. 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?. Câu 3: Để tính cước phí dịch

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

Đá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