Loading...

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
Loading...
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.

 
Loading...
 Từ khóa: kiểm tra

Tổng số điểm của bài viết là: 0 trong 0 đánh giá

Click để đánh giá bài viết

  Ý kiến bạn đọc

Mã bảo mật   

Những tin mới hơn

Những tin cũ hơn

Loading...
THÀNH VIÊN
Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site

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