© 2020 Bài Kiểm Tra.com. All Rights Reserved.

Bài giảng tin học 8 - Kiểm tra 1 tiết thực hành

Thứ bảy - 06/10/2018 13:12
Bài giảng tin học 8 - Kiểm tra 1 tiết thực hành
KIỂM TRA 1 TIẾT (TH)
I. MỤC TIÊU : 
1. Kiến thức:
- Kiểm tra  kiến thức về câu lệnh lặp For...To...Do..., While...Do...
2. Kĩ năng: 
- Viết đúng cú pháp câu lệnh lặp For...To...Do..., While...Do...
- Viết được chương trình với câu lệnh lặp For...To...Do..., While...Do...
3. Thái độ:
- Giáo dục thái độ học tập nghiêm túc, tự lực
II. CHUẨN BỊ :
1. Giáo viên  :
- Đề kiểm tra, KHDH
2. Học sinh :  
- Kiến thức bài cũ
III. TIẾN TRÌNH LÊN LỚP :
1. Ổn định tổ chức lớp :
- Kiển tra sĩ số :
- Ổn định trật tự :
2. Kiểm tra bài cũ:
3. Kiểm tra :
Hoạt động của gv và hs Nội dung
Hoạt động 1: phát đề kiểm tra
GV phát đề  KT cho HS
HS nhận đề KT
 
 
Hoạt động 2: HS làm bài
HS làm bài kiểm tra
GV quan sát và nhắc nhở HS làm bài nghiêm túc
 
KIỂM TRA MỘT TIẾT
 
Hoạt động 3: Giáo viên chấm điểm
- GV chấm điểm bài làm của HS theo đáp án  
 
ĐỀ
Viết chương trình nhập vào một số nguyên n (2 ≤ n ≤ 10) từ bàn phím và thực hiện các yêu cầu sau:
a) Dùng câu lệnh lặp For...To...Do... để hiển thị bảng nhân n 
          VD: n = 5
                   5 x 1 = 5
                   5 x 2 = 10
                   ......
                   5 x 10 = 50
b) Dùng câu lệnh lặp While để tính S và P theo công thức và hiển thị kết quả ra màn hình
S = 1 + 2 +...+ n
P = 1 x 2 x...x n
 
HƯỚNG DẪN CHẤM
- Viết đúng cấu trúc chương trình       : 1 điểm
- Khai báo đúng đủ các biến n, i, S, P         : 2 điểm
- Dùng được lệnh write và readln để nhập được giá trị cho n    :1 điểm
- Hiển thị được bảng nhân                            : 2 điểm
- Tính được S bằng câu lệnh While              : 1,5 điểm
- Tính được P bằng câu lệnh While              : 1,5 điểm
- Xuất được kết quả S ra màn hình              : 0.5 điểm
- Xuất được kết quả P ra màn hình              : 0.5 điểm
ĐÁP ÁN
Program Chuong_trinh_tong_hop;
Uses CRT;
Var i,n,S,P: Integer;
Begin
 Clrscr;
 Write(‘Nhap n (2<=n<=10)’);
 Readln(n);
 For i:=1 to 10 do writeln(n,’ x ‘,i,’ = ‘, n*i);
1:=1; S:=0; P:=1
 While i<=n do
 Begin
  S:=S+i;
  P:=P*i;
  I:=i+1;
  End;
Writeln(‘S = ‘, S);
Writeln(‘P = ‘, P);
Readln;
End.

 

  Ý kiến bạn đọc

Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây