- Lưu ý: + Khai báo biến đúng 2 điểm, thể hiện đầy đủ cấu trúc một chương trình 1 điểm + Khai báo thư viện xoá màn hình và cài đặt lệnh xoá màn hình 1 điểm + Nhập giá trị cho biến chiều [r]
Trang 1Tuần 17 Ngày soạn:
Kiểm tra 1 tiết (thực hành)
I./ Mục đích yêu cầu:
Bài
Bài 3:
Bài
Bài 4:
Bài
Bài 5: @ bài tốn " 8# trình
Bài 6: Câu
Bài
Hs
Hs
Hs
Hs
Hs
Hs
II./ Ma trận kề:
Bài
* Ma trận kề trên đánh giá qua các mức độ:
IV./ Nội dung đề kiểm tra:
-Cho hs tiến hành bĩc thăm: 4 đề từ 6 đề ( trong đĩ 2 đề cho bạn nam và 2 đề cho bạn nữ)
ĐỀ KIỂM TRA THỰC HÀNH MƠN TIN HỌC 8
Đề 1:
- Hãy
P (max) In lên màn hình giá K '6 P_
- 48 ý:
+ Khai báo
+ Khai báo
+
+
+
+
Trang 2Đề 2:
- Hãy
P (min) In lên màn hình giá K f P_
- 48 ý:
+ Khai báo
+ Khai báo
+
+
+
+
Đề 3:
- Hãy
- 48 ý:
+ Khai báo
+ Khai báo
+
+
+
+
Đề 4:
- Hãy
nguyên), bán kính
- 48 ý:
+ Khai báo
+ Khai báo
+
+
+
+
Đề 5:
- Hãy
thành !S ba Pi-ta-go không ?
a*a=b*b+c*c; b*b=c*c+a*a; c*c=a*a+b*b
+ Khai báo
+ Khai báo
+
+
+
+
Đề 6:
- Hãy
Sau "j in lên màn hình thông báo “So vua nhap la so chan!” c “So vua nhap la so le!”?
- 48 ý: \=[ o là *[ chia cho 2 (m mod 2=0), *[ 'p là *[ không chia cho 2)
+ Khai báo
+ Khai báo
+
+
+
Trang 3V./ Đáp án và thang điểm từng phần
-Hs
-Hs
1
Program Solonnhat;
Uses crt;
Var m, n, max:integer;
Begin
clrscr;
write(‘Nhap hai so nguyen m,n :’);
readln(m, n);
If m>n then max:=m
Else max:=n;
writeln(‘Gia tri lon nhat cua hai so m
va n la: ’, max);
readln
End
0.5 "
0.5 "
2.0 "
g+;?"
0.5 "
1.0 "
1.0 "
1.0 "
1.0 "
1.0 "
g+;?"
2
Program Sonhonhat;
Uses crt;
Var m, n, min:integer;
Begin clrscr;
write(‘Nhap hai so nguyen m,n :’);
readln(m, n);
If m<n then min:=m Else min:=n;
writeln(‘Gia tri nho nhat cua hai so
m va n la: ’, min);
readln End
0.5 " 0.5 " 2.0 " g+;?" 0.5 " 1.0 " 1.0 " 1.0 " 1.0 " 1.0 " g+;?"
3
Program Hinh_CN;
Uses crt;
Var chd,chr, chuvi, dt:real;
Begin
clrscr;
write(‘Nhapchieu dai:’);
readln(chd);
write(‘Nhap chieu rong:’);
readln(chr);
chuvi:= (chd+chr)*2;
dt:= chd*chr;
writeln(‘Chu vi HCN:’, chuvi:10:2);
writeln(‘Dien tich HCN:’, dt:10:2);
readln
End
0.5 "
0.5 "
2.0 "
g+;?"
0.5 "
0.5 "
0.5 "
0.5 "
0.5 "
1.0 "
1.0 "
0.5 "
0.5 "
g+;?"
4
Program Hinh_tron;
Uses crt;
Var bankinh: integer; chuvi, dt:real;
Const Pi=3.14;
Begin clrscr;
write(‘Nhap ban kinh hinh tron:’);
readln(bankinh);
chuvi:=2*bankinh*Pi;
dt:=Pi*bankinh*bankinh;
writeln(‘Chu vi HT:’, chuvi:10:2);
writeln(‘Dien tich HT:’, dt:10:2);
readln End
0.5 " 0.5 " 1.5 " 0.5 " g+;?" 0.5 " 1.0 " 1.0 " 1.0 " 1.0 " 0.5 " 0.5 " g+;?"
5
Program Pi_ta_go;
Uses crt;
Var a, b, c: integer;
Begin
clrscr;
write(‘Nhap ba so nguyen a, b, c:’);
readln(a,b,c);
if (a*a=b*b+c*c) or (b*b=c*c+a*a)
or (c*c=a*a+b*b) then
writeln(‘Ba so a,b,c la bo so
Pi-ta-go!’)
else
writeln(‘Ba so a,b,c khong la bo so
Pi-ta-go!’);
readln
End
0.5 "
0.5 "
2.0 "
g+;?"
0.5 "
1.0 "
1.0 "
1.0 "
0.5 "
1.0 "
0.5 "
g+;?"
6
Program So_chan_le;
Uses crt;
Var m: integer;
Begin clrscr;
write(‘Nhap so nguyen m:’);
readln(m);
if (m mod 2=0) then writeln(‘So vua nhap la so chan!’) else
writeln(‘So vua nhap la so le!’);
readln End
0.5 " 0.5 " 2.0 " g+;?" 0.5 " 1.0 " 1.0 " 1.0 " 0.5 " 1.0 " 0.5 " g+;?"
VI./ Rút kinh nghiệm tiết kiểm tra
Lớp Dưới TB Tỉ lệ Trên TB Tỉ lệ Những tồn tại cần khắc phục
81
82
83
84
8