I Trắc Nghiệm
1) Khi thực hiện đoạn chương trình sau:
n:=1; T:=50; while n>20 do Begin n:=n+5;T:=T-n
end;
Hãy cho biết giá trị của biến T
A)16 B)15 C)14 D)17
2) Trong câu lệnh khai báo mảng, phát biểu nào sau đây đúng?
A) Cả 3 ý trên
B) Chỉ số đầu và số cuối là 2 số nguyên
C) Kiểu dữ liệu có integer
D) Chỉ số đầu và chỉ số cuối
3) Khai báo biến mảng A: array [1...7] of real; 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ận được bao nhiêu giá trị
A)7 B)5 C)6 D)4
4) Trong câu lệnh lặp for i=1 to do J:=J+2 writeln (J); khi kết thúc câu lệnh trên, câu lệnh writeln (J) được thực hiện bao nhiêu lần
A) Không thực hiện C) 10 lần
B) 1 lần D) 5 lần
5) Trong pascal, câu lệnh nào sau đây là đúng?
A) for i:= 1 to 10 do writeln (`A');
B) for i:= 4 to 10 do writeln(`A');
C) for i to 10 do writeln (`A')
D)for i:= 1 to 10 do writeln (`A')
6) Trong pascal, câu lệnh nào sau đây đúng?
A) n:=2, while n<5 do writeln (`A')
B) i:=0; 5:=1; while S<10 do writeln (S);
while S<10 do S:= S+i; i=i+1;
C) S:=1,
D) Cả A và B đúng
7) Giả sử biến A có 5 phần tử và giá trị 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
Tb:= 0; for i:= 1 to 5 do
Tb: Tb + A(i)
Giá trị trung bình là bao nhiêu?
A)18 C)21
B)21 D)22
8) Cho đoạn chương trình J:=0; for i:= 1 to S sau khi thực hiện chương trình trên giá trị của biến i bằng bao nhiêu?
A)12 C)42
B)22 D)15
II Tự Luận
1) 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
2) Viết chương trình nhập điểm kiểm tra học kì môn tin cho N học sinh và in ra màn hình với N và điểm kiểm tra được nhập từ bàn phím ( Sử sụng biến mảng).
1. Đề sai
2.A
3.B (đề sai ở chỗ dùng sau do lại có ';');
4. for i:=1 to ???? do (chưa có giá trị cuối nên không thể biết nó lặp bao nhiêu lần)
5. A-B đều đúng
6.C
7. Gía trị của biến TB sau khi thực hiện câu lệnh đó là 20 nhé
8. Đề thiếu ....
( BẠN SỬA ĐỀ LẠI RỒI NHẮN TIN CHO CÔ NHÉ)
Câu 1.
* Cú pháp : while <điều kiện> do <câu lệnh>;
* Hoạt động :
- Bước 1: Kiểm tra điều kiện lặp:
+ Nếu điều kiện lặp sai thì thoát khỏi vòng lặp, chuyển sang lệnh tiếp theo.
+ Nếu điều kiện lặp đúng thì chuyển sang bước 2.
- Bước 2: Thực hiện khối các lệnh lặp.
- Bước 3: Quay lại bước 1.
Câu 2.
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap so ban lam bai thi hoc ki tin : '); readln(n);
for i:=1 to n do
begin
write('Nhap diem kiem tra hoc ki Tin cua ban thu ',i,' :'); readln(a[i]);
end;
writeln(n);
for i:=1 to n do write(a[i],' ');
readln
end.