Họ và tên:...
Lớp: 8/ …
ĐỀ KIỂM TRA THỰC HÀNH TIN 8 Ngày kiểm tra: 10/ 12/ 2019
Điểm Lời phê của giáo viên
Bài 1: Viết chương trình in ra hai câu:
“Ho va ten: ……….”
“Lop: ……….”
Mỗi câu in trên 1 dòng.
Bài 2:
a/Viết chương trình nhập vào số nguyên a.
b/Kiểm tra xem a là số chẵn hay lẻ.
Bài 3:
a/Nhập vào 3 số nguyên a,b, c.
b/Kiểm tra xem 3 số a, b, c vừa nhập có tạo thành 3 cạnh tam giác hay không?
BẢNG MÔ TẢ ĐỀ KIỂM TRA THỰC HÀNH TIN 8 Câu 1 (3đ)
Thực hiện được việc đưa kết quả ra màn hình thông qua câu lệnh writeln.
Câu 2 (3đ)
a/Biết nhập giá trị số bất kì từ bàn phím với lệnh read/readln b/Vận dụng câu lệnh điều kiện kiểm tra số là chẵn hay lẻ.
Câu 3 (4đ)
a/Biết nhập giá trị số bất kì từ bàn phím với lệnh read/readln b/Vận dụng câu lệnh điều kiện kiểm tra 3 cạnh tam giác.
ĐÁP ÁN ĐỀ KIỂM TRA THỰC HÀNH TIN HỌC 8 Bài 1:
Program bai1;
Uses crt;
BEGIN Clrscr;
Write(‘Ho va ten:………’);
Write(‘Lop:…………’);
Readln;
END.
0,5điểm 0,5điểm 0,5điểm 0,5điểm 0,5điểm 0,5điểm Bài 2:
Program bai2;
Uses crt;
Var a: integer;
BEGIN Clrscr;
Write(‘nhap a=’); readln(a);
If a mod 2 = 0
then write(‘a la so chan’) else write(‘so nho hon la’, a);
Readln;
END.
1điểm 1điểm 0,5điểm 0,5điểm Bài 3:
Program bai3;
Uses crt;
Var a, b, c: integer;
BEGIN Clrscr;
Write(‘nhap a=’); readln(a);
Write(‘nhap b=’); readln(b);
Write(‘nhap c=’); readln(c);
If (a+b>c) and (a+c>b) and (c+b>a)
then write(‘3 so a,b,c tao thanh tam giac’) else write(‘3 so a,b,c khong tao thanh tam giac’);
Readln;
END.
(Học sinh làm cách khác đúng vẫn cho điểm tối đa.)
1điểm 1điểm 1điểm 0,5điểm 0,5điểm
* HS có thể làm cách khác nhưng đúng vẫn cho điểm tối đa
