/tmp/uuooq.jpg
I. TRẮC NGHIỆM: (4,0 điểm) Khoanh tròn chữ cái trước đáp án đúng.
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. For i:= 4 to 1 do writeln(‘A’);
B. For i= 1 to 10 writeln(‘A’);
C. For i:= 1 to 10 do writeln(‘A’);
D. For i to 10 do writeln(‘A’);
Câu 2. Trong câu lệnh lặp: j:=0; For i := 1 to 10 do j:= j + 2;
Khi kết thúc câu lệnh lặp trên, câu lệnh j:=j+2 được thực hiện bao nhiêu lần?
A. 10 lần
B. 5 lần
C. 2 lần
D. Không thực hiện.
Câu 3. Cho đoạn chương trình: J:= 0; For i:= 1 to 5 do J:= j + i;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 12
B. 22
C. 15
D. 42.
Câu 4. Trong Pascal, câu lệnh nào sau đây là đúng?
A. S:=1;While S<10 do write(S);
B. i:=0; S:=1;While s<10 do S:=S+i; i:=i+1;
C. n:=2; While n<5 do write(‘A’);
D. S:=10; While S>9 do write(S);
Câu 5. Phần mềm quan sát hình không gian là
A. finger Break out
B. turbo pascal
C. geogebra
D. yenka
Câu 6. Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
A. 1
B. 5
C. 6
D. 7
Câu 7. Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây sai?
A. Chỉ số đầu và chỉ số cuối là 2 số thực.
B. Chỉ số đầu chỉ số cuối.
C. Kiểu dữ liệu có thể là integer hoặc real.
D. Chỉ số đầu cuối là số nguyên.
Câu 8. Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tong:= 0; For i:= 1 to 5 do tong := tong + A[i]; Giá trị của biến tong là bao nhiêu?
A. 4
B. 18
C. 20
D. 22
II. TỰ LUẬN: ( 6,0 điểm)
Câu 1. (2 điểm)Viết cú pháp câu lệnh lặp với số lần chưa biết trước. Nêu hoạt động của câu lệnh.
Câu 2. (4 điểm) Viết chương trình nhập điểm kiểm tra học kỳ môn tin học cho N học sinh và in kết quả ra màn hình. Với N và điểm kiểm tra của từng học sinh được nhập từ bàn phím (sử dụng biến mảng).
—Hết—
I. TRẮC NGHIỆM: (4 điểm – mỗi câu đúng 0,5 điểm).
Câu |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
Đáp án |
C |
A |
C |
B |
D |
B |
A |
C |
II. TỰ LUẬN: (6 điểm)
CÂU |
NỘI DUNG ĐÁP ÁN |
ĐIỂM |
1 (2 điểm) |
– Cú pháp câu lệnh: while <điều kiện> do <câu lệnh>; – Hoạt động: Khi thực hiện câu lệnh chương trình kiểm tra điều kiện. Nếu điều kiện đúng thực hiện câu lệnh sau từ khóa do và quay lại kiểm tra điều kiện. Nếu điều kiện sai bỏ qua câu lệnh sau từ khóa do và kết thúc. |
1 1
|
2 (4 điểm) |
Program diem; Uses crt; Var N, i: integer; Diem: array[1..50] of real; Begin Clrscr; Write(‘Nhap so luong hoc sinh N = ‘); Readln(N); Writeln(‘Nhap diem cho tung hoc sinh’); For i := 1 to n do Begin Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]); End; For i : = 1 to n do Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]); Readln; End. |
1
0,5
1
0,5 1
|
Lưu ý: Học sinh có thể có đáp án khác, nếu đúng vẫn đạt điểm tối đa. |