A. Trắc nghiệm (3 điểm) Khoanh tròn vào chữ cái đằng trước đáp án mà em lựa chọn Câu 1: Câu lệnh lặp với số lần đó biết cú cỳ phỏp: A. for:= to do ; B. while <điều kiện> do ; C. whlie do <điều kiện>; D. if <điều kiện> then ; Câu 2: Trong các khai báo sau đây khai báo nào đúng: A. var X: Array[1: 10] of integer; B. var X: Array[1..10] of string; C. var X: Array[4.4..4.8] of integer D.var xau: Array[1..10] of real; Câu 3: Điền vào chỗ trống cho phát biểu sau: Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử có thứ tự, mọi phần tử đều có cùng một…………, gọi là kiểu của phần tử. Việc sắp thứ tư được thực hiện bằng cách gán cho mỗi phần tử một chỉ số. A. thuật toán B. kiểu dữ liệu C. chỉ số D. biến Câu 4: Cho đoạn chương trình: S:=5; x:=1; while s<10 do S:=S+x; Giá trị của S sau khi thực hiện đoạn chương trình trên là bao nhiêu? A. 5 C. 15 B. 10 D. Một giá trị khác B. Tự luận (8 điểm) Câu 1: (2 điểm) Viết các biểu thức toán học và các phép so sánh sau đây bằng kí hiệu trong Pascal a) 2x2 – 2(x +1) - 3 b) 2m2 - 4a 0 c) Câu 2: `(2 điểm) Viết lại câu lệnh Pascal sau đây cho đúng a. while x<10; do x:=x+1, b. var X: Array [15: 65] of integer; Câu 3: (3 điểm) Cho đoạn chương trình sau: x:=3; n:=0; While x<=6 do begin n:=n+2; x:=x+1 end; a) Hãy thể hiện các vòng lặp khi máy tính thực hiện đoạn chương trình trên b) Cho biết giá trị của biến x và biến n sau khi thực hiện đoạn chương trình trên? Câu 4: (1 điểm) Viết chương trình sử dụng biến mảng để nhập điểm và tính trung bình cộng điểm môn tin của các bạn trong lớp. (số học sinh nhập từ bàn phím)
A/ trắc nghiệm:
1: mình dịch ko ra lỗi nên mình ghi lại cho bạn biết
câu lệnh lặp với số lần biết trước: A.for<biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
câu lệnh lặp với số lần chưa biết trước: B. while <điều kiện> do <câu lệnh>;
2:
đáp án B. var X: Array[1..10] of string;
3:
đáp án B. kiểu dữ liệu
4:
đáp án B. s=10 (đã chạy trên pascal)
B/ tự luận:
câu 1: đề bị lỗi nên ko làm đc
câu 2:
a) while x<10; do x:=x+1, `->` while x<10 do x:=x+1;
b) var X: Array [15: 65] of integer; `->` var X: array[15..65] of integer;
câu 3:
a/
vòng lặp 1: n=0; x=3; `->` thỏa mãn điều kiện `->` n:=n+2; x:=x+1; `->` n=2; x=4;
vòng lặp 2: n=2; x=4; `->` thỏa mãn điều kiện `->` n:=n+2; x:=x+1; `->` n=4; x=5;
vòng lặp 3: n=4; x=5; `->` thỏa mãn điều kiện `->` n:=n+2; x:=x+1; `->` n=6; x=6;
vòng lặp 4: n=6; x=6; `->` thỏa mãn điều kiện `->` n:=n+2; x:=x+1; `->` n=8; x=7;
vòng lặp 5: n=8; x=7; `->` không thỏa mãn điều kiện `->` thoát vòng lặp
b/
giá trị của biến n=8 và biến x=7
câu 4:
uses crt;
var a: array[1..100] of real;
i,n: integer;
tb: real;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap diem cua ban thu ‘,i,’: ‘); readln (a[i]);
tb:=tb+a[i];
end;
tb=tb/n;
writeln (‘diem trung binh la: ‘,tb:1:2);
readln;
end.