Đề kiểm tra 1 tiết lần 2 Tin học 8

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 aelse 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 Longelse 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.