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) 5×3 – 2×2 +1
b) m2 – 4ac 0
c)
Câu 2: `(2 điểm)
Viết lại câu lệnh Pascal sau đây cho đúng
a. For i:= 1 to 10; do x:=x+1.
b. var X: Array [50… 100] of integer;
Câu 3: (3 điểm)
Cho đoạn chương trình sau:
x:=0; n:=0;
While x<=6 do begin n:=n+1; x:=x+n 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í)
Câu 1: (đề chưa đầy đủ)
Câu 2:
a. For i:=1 to 10 do x:=x+1;
b. var X: Array [50..100] of integer;
Câu 3:
a)
0<6 : n=0+1=1;
x=0+1=1;
1<6 : n=1+1=2;
x=1+2=3;
3<6 : n=2+1=3;
x=3+3=6;
6=6 : n=3+1=4;
x=6+4=10;
b) x=10;
n=4;
Câu 4:
program cau_4;
uses crt;
var A:array [1..50] of real;
n,i: integer;
TB: real;
Begin
clrscr;
write(‘Nhap so hoc sinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Diem tin ban thu ‘,i,’: ‘); readln(A[i]);
TB:=TB+A[i];
end;
TB:=TB/n;
write(‘Trung binh diem tin cua cac ban = ‘,TB:2:1);
readln
End.