PHẦN TRẮC NGHIỆM: (Khoanh tròn vào câu trả lời đúng)
Câu 1. (0,5 đ) 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: (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ó 2 lệnh sau:
x := 8;
IF x > 5 then x := x+1;
Giá trị của x nhận được là bao nhiêu?
A. 5
B. 7
C. 8
D. 9
Câu 4: (0,5 đ) Chọn câu lệnh Pascal hợp lệ trong các 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> do <Câu lệnh>;
B. For <Biến đếm> : = <GT đầu> to <GT cuối> do <Câu lệnh>;
C. For <Biến đếm> = <GT đầu> to <GT cuối> do <Câu lệnh>;
D. For i = <GT đầu> to <GT cuối> do <Câu lệnh>;
Câu 6: (0,5 đ) Các lệnh 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 học thuộc bài
D. Gọi điện cho tới khi 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ó bao nhiêu phần tử:
A. 8
B. 9
C. 7
D. 10
Cậu 8: (0,5 đ) Các câu lệnh Pascal nào sau đây hợp lệ :
A) for i:=100 to 1 do writeln(‘A’) B) for i:= 1.5 to 10.5 do writeln(‘A’)
C) for i:= 1 to 10 do; writeln(‘A’) D) for i:=1 to 10 do writeln(‘A’);
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 trong câu lệnh For ... do?
Câu 10 (3 điểm): Viết chương trình tính tổng các số chẵn nhỏ hơn 20?
Câu 11 (2 điểm): Viết chương trình nhập vào 1 mảng có n (n<50) phần tử và tính tổng các phần tử trong mảng đó?
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 2 : Tự luận
Câu 9:
Nêu đặc điểm yêu cầu đối với biến đếm trong câu lệnh For ... do:
+ Biến đếm phải thuộc kiểu số nguyên.
+ Giá trị đầu của biến đếm phải nhỏ hơn giá trị cuối.
Câu 10: Viết chương trình tính tổng các số chẵn nhỏ hơn 20
Program TinhTongSoChan;
Uses Crt;
Var S,i: integer;
Begin
For i:=1 to 20 do
If i mod 2 = 0 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 do
begin
Write(‘Nhap phan tu thu ’, i);
Read(A[i]);
end;
For i:=1 to n do S:= S+ A[i];
Write(‘Tong cua mang vua nhap la: ’, S: 8: 2);
Readln;
End.