Đề kiểm tra và đáp án Tin 8 cuối năm

Chia sẻ bởi Phạm Thị Nụ | Ngày 14/10/2018 | 141

Chia sẻ tài liệu: Đề kiểm tra và đáp án Tin 8 cuối năm thuộc Tin học 8

Nội dung tài liệu:

TRƯỜNG THCS YÊN CHÍNH ĐỀ KIỂM TRA HỌC KÌ II (2016 – 2017)
Họ và Tên: Môn: Tin học 8
Lớp: 8 Thời gian: 45 phút




ĐỀ BÀI:

I/ TRẮC NGHIỆM (4 điểm) (Khoanh tròn vào đáp án đúng)
Câu 1: Cú pháp của câu lệnh While …. do là:
a. While := to do;
b. While := to do;
c. While <điều kiện> do;
c. While <điều kiện>; do;

Câu 2: Cho đoạn chương trình:
S:=0;
For i:=1 to 5 do S:=S+2;
* Sau khi thực hiện đoạn chương trình trên S có kết quả là :
A. 20 B. 15 C. 10 D. 0
* Sau khi thực hiện đoạn chương trình trên i có kết quả là :
A. 2 B. 3 C. 4 D. 5
Câu 3: Câu lệnh viết đúng cú pháp trong ngôn ngữ lập trình Pascal là:
a. If <điều kiện> then ; else ;
b. If <điều kiện> then do ;
c. If <điều kiện> then ; do ;
d. If <điều kiện> then else ;

Câu 4: Cho đoạn chương trình:
S: =0 ; n:= 0;
if S = 0 then
begin
n:= n+1;
S:= S+ n ;
End;
* Sau khi thực hiện đoạn chương trình trên S có kết quả là
A. 0 B. 1 C. 2 D. 3
* Sau khi thực hiện đoạn chương trình trên n có kết quả là
A. 0 B. 1 C. 2 D. 3
II/ TỰ LUẬN (6 điểm)
Câu 1. Các câu lệnh sau trong Pascal sau có hợp lệ không? Nếu không hãy sửa lại cho hợp lệ? (1đ)
a) For i:= 100 to 1 do writeln(‘A’);
b) For i:= 1.5 to 10.5 do Writeln(‘A’);
Câu 2. (2đ)
Viết chương trình in ra màn hình hai dòng chữ: “Ten toi la………
Toi la hoc sinh lop 8…”
Câu 3. (3đ)
Viết chương trình tính 1 + 1/2 + 1/3+ ...+ 1/t với t là một số nguyên bất kỳ được nhập vào từ bàn phím bằng cách sử dụng vòng lặp for…do hoặc vòng lặp while…do.




































ĐÁP ÁN VÀ BIỂU ĐIỂM

I/ TRẮC NGHIỆM (4Đ) Mỗi câu trả lời đúng đạt 1đ
Câu
1
2
3
4

Đáp án
C
C, D
D
B,B

II/ TỰ LUẬN (6Đ)
Bµi 1: (2đ)
Tất cả các câu đều không hợp lệ
Sửa lại:
a) For i:= 1 to 100 do writeln(‘A’);
b) For i:= 1 to 10 do Writeln(‘A’);

Bµi 2: (2đ)
Program indongchu;
Uses crt;
Begin
Clrscr;
Writeln(‘Ten toi la……’);
Write(‘Toi la hoc sinh lop 8’);
Readln;
End.
Bài 3: (2đ)
Program tinh_tong;
Uses crt;
Var
i, t: Integer;
Tong : real;
Begin
Clrscr;
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...

Người chia sẻ: Phạm Thị Nụ
Dung lượng: 44,00KB| Lượt tài: 1
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)