- Kiểm tra sĩ số: Ổn định trật tự, kiểm tra sự chuẩn bị
Hoạt động 2: kiểm tra
ĐỀ BÀI8A 8A
Cõu 1 (1 điểm)
Biến a được nhận cỏc giỏ trị là: 0 ; -1; 1; 2 . Ta cú thể khai bỏo a thuộc kiểu dữ liệu nào?
s:=0;
for i:=1 to 3 do s := s+2*i; writeln(s);
Kết quả in lờn màn hỡnh là bao nhiờu?
Cõu 3 (4 điểm) Viết chương trỡnh nhập số x từ bàn phớm. Đưa ra thụng bỏo tớnh giỏ trị của biểu thức: x2 -1
Cõu 4 (3 điểm) Viết chương trỡnh nhập vào một mảng số nguyờn. Tớnh tổng cỏc số nguyờn đú.
8B
Cõu 1 (1 điểm) Biến a được nhận cỏc giỏ trị là: 10; -11; 12; 2020. Ta cú thể khai bỏo a thuộc kiểu dữ liệu nào?
Cõu 2 (2 điểm) Cho S và i là biến nguyờn. Khi chạy đoạn chương trỡnh : s:=0;
for i:=1 to 2 do s := s+2*i; writeln(s);
Kết quả in lờn màn hỡnh là bao nhiờu?
Cõu 3 (4 điểm)
Viết chương trỡnh nhập số x từ bàn phớm. Đưa ra thụng bỏo tớnh giỏ trị của biểu thức: x-2018
Cõu 4 (3 điểm)
Viết chương trỡnh nhập vào một mảng số nguyờn. Tớnh tổng cỏc số nguyờn đú.
BIỂU CHẤM
BC 8A
Cõu Nội dung Điểm
1( 1 đ) ( 1 đ)
Ta cú thể khai bỏo a thuộc kiểu dữ liệu làInteger hoặc Qword; longint
(Kiểu số nguyờn); nếu kiểu Real chỉ cho 0,75đ
(1 điểm)
2( 2 đ) ( 2 đ)
program tinh; uses crt; var s,i:integer; Begin clrscr; s:=0; for i:=1 to 3 do s:=s+2*i; write('gia tri tim duoc s=',s); readln; end.
Kết quả in lờn màn hỡnh là S = 12 (2 điểm)
3
( 4 đ) Program bai3;
Uses crt; Integer chỉ cho 0,25đ} Var x: real; Begin Clrscr; Writeln(‘ Moi ban nhap so x=’); readln(x); ( 0,25 điểm) ( 0,25 điểm) (0,5 điểm) ( 0,5 điểm) ( 0,5 điểm) ( 0,25 điểm) ( 0,5 điểm) ( 0,5 điểm)
Writeln(‘ Gia tri cua bieu thuc x*x-1 la:’, x*x-1); Readln; {cú thể khụng cần ; ở đõy} End. (0,5 điểm) (0,25 điểm) 4 ( 3 đ) Program BAI 4; Uses crt; Var N,i, tong: integer ; A:array [1..100] of integer; Begin Clrscr; Writeln(‘ Moi ban nhap so luong mang’); readln(N); For i:=1 to N do Begin Writeln(‘So thu’,i); readln (a[i]); End; For i:=1 to N do tong:=tong+a[i]; Writeln(‘Tong cac so la’,tong:2:1); Readln; {cú thể khụng cần ; ở đõy} End. (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) BC 8B
Cõu Nội dung Điểm
1( 1 đ) ( 1 đ)
Ta cú thể khai bỏo a thuộc kiểu dữ liệu làInteger hoặc Qword, longint
(Kiểu số nguyờn); nếu kiểu Real chỉ cho 0,75đ
(1 điểm)
2( 2 đ) ( 2 đ)
program tinh; uses crt; var s,i:integer; Begin clrscr; s:=0; for i:=1 to 2 do s:=s+2*i; write('gia tri tim duoc s=',s); readln; end. Kết quả in lờn màn hỡnh là s=6) (2 điểm) 3 ( 4 đ) Program bai3; Uses crt;
{interger: chỉ cho 0.25đ} Var x: Real; Begin Clrscr; Writeln(‘ Moi ban nhap so x=’); readln(x); Writeln(‘ Gia tri cua bieu thuc x*x-1 la:’, x-2018) Readln; {cú thể khụng cần ; ở đõy} End. ( 0,25 điểm) ( 0,25 điểm) (0,5 điểm) ( 0,5 điểm) ( 0,5 điểm) ( 0,25 điểm) ( 0,5 điểm) ( 0,5 điểm) (0,5 điểm) (0,25 điểm) 4 ( 3 đ) Program BAI 4; Uses crt; 0,25 điểm (0,25 điểm)
Var N,i, tong: integer ; A:array [1..100] of integer; Begin Clrscr; Writeln(‘ Moi ban nhap so luong mang’); readln(N); For i:=1 to N do Begin Writeln(‘So thu’,i); readln (a[i]); End; For i:=1 to N do tong:=tong+a[i]; Writeln(‘Tong cac so la’,tong:2:1); Readln; {cú thể khụng cần ; ở đõy} End. (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) (0,25 điểm) * Rút kinh nghiệm
Ngày soạn:26/4/2021
Tiết: Ngày dạy: / /
2021 KIỂM TRA HỌC Kè II (TH) KIỂM TRA HỌC Kè II (TH) I.MỤC TIấU : 1. Kiến thức: Tổng hợp kiến thức đó học trong HK2 2. Kỹ năng
Vận dụng kiến thức đó học để giải cỏc bài toỏn.
3. Thỏi độ
Cú thỏi độ nghiờm tỳc và ham hiểu biết
4. Định hướng phỏt triển năng lực: năng lực sử dụng mỏy tớnh, năng lực giải quyết vấn đề, năng lực sỏng tạo, ứng dụng KHKT, năng lực tự học, năng lực hợp tỏc, làm việc nhúm. PHƯƠNG PHÁP: làm trờn mỏy
II. CHUẨN BỊ BÀI HỌC:1. Giỏo viờn: 1. Giỏo viờn:
- SGK, SGV, tài liệu, Giỏo ỏn
2. Học sinh :
- Đọc trước bài, SGK, Đồ dựng học tập,
III. TIẾN TRèNH BÀI HỌC: Hoạt động 1: Khởi động Hoạt động 1: Khởi động
- Kiểm tra sĩ số: Ổn định trật tự,
2. kiểm tra sự chuẩn bị3.Đề kiểm tra 3.Đề kiểm tra ĐỀ KIỂM TRA HỌC Kè II (TH) Mức Nội dung Nhận biết Thụng hiểu Vận dụng Cộng Lập trỡnh
Pascal * Kiến thức: - Cỏch lưu chương
trỡnh.