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[r]
(1)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 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 toán nhà Khách hàng cần đằng ký số lượng mặt hàng cần mua, nhân viên cửa hàng trả hàng và nhận tiền toán 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ụ a Hãy viết chương trình Pascal để tính tiền toán trường hợp khách hàng mua loại hàng nhất.( 2đ) b 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 hai bạn Long và Trang, in màn hình kết so sánh chiều cao 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 màn hình số nhỏ và số lớn N nhập từ bàn phím Sau đó lưu bài với tên SONGUYEN.PAS (5đ) (2) ĐÁ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 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’); (3) 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 dai cua day so, N =’); readln(n); Writeln (‘Nhap cac phan tu cua day so:’); For i:= to n Begin Write (‘a[‘,I,’]=’); readln(a[i]); End; Max:= a[i]; Min:= a[i]; For i:= to n 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 (4) (5)