De kiem tra

Chia sẻ bởi Phạm Trung Thành | Ngày 17/10/2018 | 49

Chia sẻ tài liệu: de kiem tra thuộc Tin học 8

Nội dung tài liệu:

Trường THCS Nguyễn Chí Thanh
Họ Tên : . . . . . . . . . . . . . . . . . . . . .
Lớp : 8A…
Đề Kiểm Tra (ĐỀ 1)
Môn Tin Học lớp 8
Thời gian : 45 phút
Điểm




I - PHẦN TRẮC NGHIỆM KHÁCH QUAN : ( 4 đ )
Thí sinh chọn chữ cái chỉ kết quả mà em chọn là đúng và ghi vào tờ giấy làm bài.
Câu 1: Cấu trúc rẽ nhánh dạng đầy đủ trong ngôn ngữ lập trình Pascal có dạng:
A. if then ;
B. if <điều kiện1> then ;
C. if <điều kiện> then < câu lệnh 1> else ;
D. if <điều kiện> then ;
Câu 2: Khi viết câu lệnh lặp for..do…
A. Giá trị đầu bằng giá trị cuối B. Giá trị cuối phải lớn hơn giá trị đầu
C. Giá trị đầu lớn hơn giá trị cuối D. Tất cả đều sai.
Câu 3: Với câu lệnh For i:= 0 to 4 do a:=a*a; . Hãy cho biết lệnh được lặp mấy lần?
A. 1 lần B. 3 lần
C. 5 lần D. 7 lần
Câu 4: Các hoạt động nào dưới đây lặp với số lần nhất định:
A. Ngày đánh răng ba lần B. Mỗi ngày đi học một lần
C. Học cho đến khi thuộc bài D. Gọi điện cho tới khi có người nhấc máy
Câu 5: Cách viết câu lệnh lặp với số lần biết trước như sau:
Hãy chọn phương án đúng.
A. For = to do ;
B. For : = to do ;
For := to do ;
For = to do
Câu 6: Khi nào thì câu lệnh For…to…do kết thúc?
A. Khi biến đếm lớn hơn giá trị cuối
B. Khi biến đếm nhỏ hơn giá trị cuối
C. Khi biến đếm bằng giá trị cuối
D. Khi biến đếm lớn hơn giá trị đầu
Câu 7: Chọn khai báo hợp lệ:
A Var a,b: array[1..n] of real; C. Var a,b: array[1..100] of real;
B. Var a,b: array[1:n] of real; D. Var a,b: array[1…n] of real;
Câu 8: Cú pháp khai báo biến mảng trong Pascal là:
var ; array [..] of ;
var : array [] of ;
var : array [..] of ;
var : array [] for ;
II - PHẦN TỰ LUẬN : (6 đ)
Câu 1. Các câu lệnh Pascal sau có hợp lệ không, vì sao? (2đ)
For i = 1 to 10 do
Write(‘Tim’);


Var z: real;
Begin
For z:=1 to 10 do
Write(‘Loi’);
End.


Câu 2. Hãy chỉ ra lỗi của đoạn chương trình sau, lại thành chương trình hoàn chỉnh: (2đ)
Uses Crt;


Var i, n:integer


 tong:longint;


Begin


 Clrscr;


 i=0; tong:=0;


 While i:=10 do


 Begin


 if i mod 4 = 0 then


 tong:=tong+i;


 i=i+1;


 End.


 Writeln(‘Tong so chia het cho 4: ‘,tong);


 Readln


End;


 …………………………………………………………………………………………………………
…………………………………………………………………………………………………………
…………………………………………………………………………………………………………
…………………………………………………………………………………………………………
…………………………………………………………………………………………………………
…………………………………………………………………………………………………………
…………………………………………………………………………………………………………
…………………………………………………………………………………………………………
…………………………………………………………………………………………………………
…………………………………………………………………………………………………………
Câu 3: Em hãy viết chương trình nhập vào một dãy số (gồm n phần tử
* 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 Trung Thành
Dung lượng: 80,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)