Trường: THCS VĨNH LỘC Lớp: 8............................... Họ và tên: KIỂM TRA MÔN: TIN HỌC 8 THỜI GIAN: 45 PHÚT ĐIỂM LỜI PHÊ CỦA GIÁO VIÊN ĐỀ BÀI Câu 1. (5 điểm) Progrgam sap xep; Uses crt Var a. b : integer; Begin Clrscr Write ‘Nhap so A:=’); readln(a); Write(‘Nhap so B:=’); readln(b); If a<b then writeln(a,’ ‘,b) else writeln(b,’ ‘,a); Readln End. Yêu cầu: a.Tạo thư mục tên em trong ổ đĩa D:\ và mở chương trình Pascal nhập nội dung trên lưu với tên Sapxep. b.Phát hiện và sửa lỗi chương trình? Câu 2.(5 điểm) Program ai_co_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. Yêu cầu: a.Nhập nội dung chương trình lưu với tên Aicaohon trong thư mục của em trong ổ đĩa D:\; b. Phát hiện lỗi và sửa lỗi chương trình. Thử chạy chương trình với bộ dữ liệu là (1.5 và 1.6) thử chương trình có thực hiện đúng không nếu không hãy sửa chương trình cho thích họp.
Tài liệu đính kèm: