Đề thi HSG Tin học 9 năm học: 12-13

Phòng GD & ĐT CUMGAR ĐỀ KIỂM TRA HỌC SINH GIỎI NĂM HỌC 2012-2013
Trường THCS Đinh Tiên Hoàng Môn Tin Học 9
Thời gian: 120 phút

ĐỀ BÀI
Bài 1: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đằng ký số lượng mặt hàng cần mua, nhân viên của cửa hàng sẽ trả hàng và nhận tiền thanh toán tại nhà khách hàng. Ngoài giá trị hàng hóa, khách hàng còn phải trả thêm phí dịch vụ.
Hãy viết chương trình Pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một loại mất hàng duy nhất.( 2đ)
Lưu chương trình với tên TINHTIEN.PAS (0.5đ)
Bài 2: Viết chương trình nhập chiều cao của hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn. Chẳng hạn “Bạn Long cao hơn”.(2đ)
Lưu chương trình với tên AICAOHON.PAS(0.5đ)
Bài 3: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất. N cũng được nhập từ bàn phím. Sau đó lưu bài với tên SONGUYEN.PAS (5đ)

ĐÁP ÁN
Bài 1:
Program Tinh_tien;
Uses crt;
Var
Soluong: interger;
Dongia, thanhtien: real;
Thongbao: string;
Const phi=10000;
Begin
Clr scr;
Thongbao:=’ Tong so tien phai thanh toan :’;
{Nhap don gia va so luong hang}
Write (‘Don gia =’); readln(dongia);
Write (‘So luong =’); readln(soluong);
Thanhtien:= soluong*dongia+phi;
Writeln (thongbao, thanhtien:10:2);
Readln;
End.

Bài 2:
Program Ai_cao_hon;
Uses crt;
Var Long, Trang: real;
Begin
Clrscr;
Write (‘Nhap chieu cao cua Long:’); readln(Long);
Write (‘Nhap chieu cao cua Trang:’); readln(Trang);
If Long > Trang then writeln (‘Ban Long cao hon’);
If Long < Trang then writeln (‘Ban Trang cao hon’)
Else writeln (‘Hai ban cao bang nhau’);
Readln;
End.

Bài 3:
Program MaxMin;
Uses crt;
Var I, n, Max, Min: interger;
A: array[1…100] of interger;
Begin
Clrscr ;
Write (‘Hay nhap do dai cua day so, N =’); readln(n);
Writeln (‘Nhap cac phan tu cua day so:’);
For i:= 1 to n do
Begin
Write (‘a[‘,I,’]=’); readln(a[i]);
End;
Max:= a[i]; Min:= a[i];
For i:= 2 to n do
Begin If max < a[i] then max:= a[i];
If Min> a[i] then Min:= a[i];
End;
Writeln (‘so lon nhat Max =’,Max);
Writeln (‘so nho nhat Min =’,Min);
Readln;
End.