ĐỀ BÀI Câu hỏi: Program ai_co_hon; uses crt var Long,; Trang:real; begin; clrscr; write ‘Nhap chieu cao cua Long:=; readlnLong; write‘Nhap chieu cao cua trang readlnTrang; if Long>Trang [r]
(1)Trường: THCS ĐỨC PHÚ KIỂM TRA 15 PHÚT Lớp: 8…………… MÔN: TIN HỌC Họ và tên: …………………………… THỜI GIAN: 15 PHÚT ĐIỂM LỜI PHÊ CỦA GIÁO VIÊN ĐỀ BÀI Câu hỏi: 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 thư mục em ổ đĩa D:\; b Phát lỗi và sửa lỗi chương trình Thử chạy chương trình với liệu là (1.5 và 1.6) thử chương trình có thực đúng không không hãy sửa chương trình cho thích họp ĐÁP ÁN VÀ BIỂU ĐIỂM (2) - Nhập nội dung chương trình (5 điểm) Lưu chương trình (1 điểm) Phát lỗi chương trình (2 điểm) Chạy thử chương trình (2 điểm) (3)