Kiem tra 1 tiet (TH)

KIỂM TRA 1 TIẾT THỰC HÀNH
MÔN: TIN HỌC 8

Bài 1:
Chương trình sau dùng để nhập vào một số n bất kỳ từ bàn phím và kiểm tra số đó là số chẵn hay số lẻ
Program Chan le;
uses crt;
var n interger;
Begin
Clrscr;
Write(nhap so duong n bat ky tu ban phim);
Readln (n)
if n mod 2 := 0 then
Writeln (`so vua nhap la so chan`);
if n mod 2 <>0 then;
Writeln (`so vua nhap vao la so le`);

Readln
End

1. Khởi động Turbo Pascal và Nhập Chương trình trên (3đ)
2. Lưu chương trình với tên: tên của em + Lớp (1đ). Ví dụ: Trang_8.1
3. Trong chương trình trên có một số lỗi em hãy sửa lại cho đúng sau đó dịch và chạy chương trình với n = 15 và n = 18 (4đ).
Bài 2: (2đ) Các các lệnh sau dùng để xếp loại điểm kiểm tra (yêu cầu: nếu điểm kiểm tra (DKT) >= 8 thì loại “giỏi”, 8> DKT >=6.5 thì loại khá, còn lại trung bình) nhưng có trật tự chưa hợp lý. Em hãy sắp xếp để được chương trình hoàn chỉnh
Uses crt;
Var DKT: Real;
Begin
Program Xep_loai;
Readln (DKT);
Write(‘nhap Diem kiem tra’);
else if DKT >=7,5 then Write (‘loai kha’);
if DKT>=8,5 then Wrteln (‘Loai gioi’)
else writeln (‘loai trung binh’);
Readln;
End.