+ Giá trị đầu của biến đếm phải nhỏ hơn giá trị cuối.[r]
(1)TRƯỜNG THCS BA LÒNG KIỂM TRA HỌC KỲ II MÔN TIN HỌC 8 Năm học: 2018 - 2019
Lớp: 8… Thời gian: 45 phút (Không tính thời gian giao đề) Họ và tên……… ……… Ngày kiểm tra……….….Ngày trả…… … …
Điểm Lời phê của thầy, cô giáo bằng số bằng chữ
ĐỀ BÀI
PHẦN TRẮC NGHIỆM: (Khoanh tròn vào câu trả lời đúng) Câu (0,5 đ) Trong Pascal, câu lệnh nào sau viết đúng?
A for i := to writeln(‘A’); B for i= to 10 writeln(‘A’); C for i := to 10 writeln(‘A’); D for i to 10 writeln(‘A’);
Câu 2: (0,5 đ) Cấu trúc câu lệnh dạng đủ là:
A If <điều kiện> then <câu lệnh 1> esle <câu lệnh 2>; B If <điều kiện> then <câu lệnh >;
C If <điều kiện> then <câu lệnh 1> , <câu lệnh 2>; D If <điều kiện> then <câu lệnh 1> ; esle <câu lệnh 2>;
Câu 3: (0,5 đ) Ta có lệnh sau:
x := 8;
IF x > then x := x+1;
Giá trị x nhận là bao nhiêu?
A B C D
Câu 4: (0,5 đ) Chọn câu lệnh Pascal hợp lệ câu lệnh sau: A If a > b then max = a ;
B If a := b then max = b ; C If a = b then S := a+b ; D If a <> b then b=a;
Câu 5: (0,5 đ) Cấu trúc câu lệnh lặp là:
A For i : = <GT đầu> to <GT cuối> <Câu lệnh>;
B For <Biến đếm> : = <GT đầu> to <GT cuối> <Câu lệnh>; C For <Biến đếm> = <GT đầu> to <GT cuối> <Câu lệnh>; D For i = <GT đầu> to <GT cuối> <Câu lệnh>;
Câu 6:(0,5 đ) Các lệnh nào dưới lặp với số lần định
A Ngày đánh ba lần B Mỗi ngày học lần
C Học học thuộc bài D Gọi điện cho tới có người nhấc máy
Câu 7: (0,5 đ) Khai báo biến mảng: A : array[1 7] of real; Thì mảng A có phần tử: A B C D 10
Cậu 8: (0,5 đ) Các câu lệnh Pascal nào sau hợp lệ :
(2)PHẦN TỰ LUẬN:
Câu 9 (1 điểm): Nêu đặc điểm yêu cầu đối với biến đếm câu lệnh For do?
Câu 10 (3 điểm): Viết chương trình tính tổng số chẵn nhỏ 20?
Câu 11 (2 điểm): Viết chương trình nhập vào mảng có n (n<50) phần tử và tính tổng phần tử mảng đó?
BÀI LÀM:
(3)ĐÁP ÁN - Hướng dẫn chấm: Phần 1: Trắc nghiệm khách quan:
Câu 1 2 3 4 5 6 7 8
Đáp án B A D C B A C D
Phần : Tự luận
Câu 9: Nêu đặc điểm yêu cầu đối với biến đếm câu lệnh For do: + Biến đếm phải thuộc kiểu số nguyên
+ Giá trị đầu biến đếm phải nhỏ giá trị cuối Câu 10: Viết chương trình tính tổng số chẵn nhỏ 20
Program TinhTongSoChan;
Uses Crt;
Var S,i: integer;
Begin
For i:=1 to 20
If i mod = then S:=S+i;
Writeln(‘Tong cac so chan nho hon 20 la, S’); Readln;
End Câu 11:
Program TongMang1C;
Uses Crt;
Var n: integer;
S: real;
A: array[1 50] of integer; Begin
Write (‘Nhap n’); Read(n); For i:=1 to n
begin
Write(‘Nhap phan tu thu ’, i);
Read(A[i]);
end;
For i:=1 to n S:= S+ A[i];
Write(‘Tong cua mang vua nhap la: ’, S: 8: 2); Readln;
(4)