Kiem tra 1 tiet (TH)
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (79.32 KB, 1 trang )
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.
