- Tên bắt đầu bằng chữ cái hoặc dấu gạch dưới.. - Tên bắt đầu bằng chữ cái hoặc dấu gạch dưới.[r]
Trang 1SỞ GIÁO DỤC VÀ ĐÀO TẠO NGHỆ AN ĐỀ THI KHẢO SÁT LẦN 1 LỚP 11
Mã đề 111131 (Thời gian 45 phút không kể phát đề)
Bài 1: Nêu quy tắc đặt tên trong ngôn ngữ lập trình pascal và viết 3 tên đúng.
Bài 2: Biểu diễn các biểu thức toán học sau sang pascal:
a a− b a+b b sin2x + cos2x + sin x1
c x −
1 2
y
- √x + y
|x − y| d x3 + 1 + |x +1|
1 − x
Bài 3: a Phát hiện và sửa lỗi trong chương trình sau:
var s, n : integer; {dòng 1}
for n := 1 to 100 do {dòng 4}
s = s + 1/n; {dòng 5}
writeln(‘Ket qua:’, s); {dòng 6}
b Chương trình trên thực hiện công việc gì?
Bài 4: Viết chương trình tìm và đưa ra màn hình số lớn nhất (max) trong 2 số nguyên a, b nhập vào
từ bàn phím
-SỞ GIÁO DỤC VÀ ĐÀO TẠO NGHỆ AN ĐỀ THI KHẢO SÁT LẦN 1 LỚP 11
Bài 1: Nêu quy tắc đặt tên trong ngôn ngữ lập trình pascal và viết 3 tên đúng.
Bài 2: Biểu diễn các biểu thức toán học sau sang pascal:
a x − y x+ y b cos2x - sin2x + cos x1
c y +
1 3
x
- √x +1
|x − y| d y3 - 1 + |y +1|
1 − y
Bài 3: a Phát hiện và sửa lỗi trong chương trình sau:
var s, n : Byte; {dòng 1}
for n = 1 to 100 do {dòng 4}
s := s + n; {dòng 5}
writeln(‘Ket qua:’, s); {dòng 6}
b Chương trình trên thực hiện công việc gì?
Bài 4: Viết chương trình tìm và đưa ra màn hình số nhỏ nhất (min) trong 2 số nguyên a, b nhập vào
từ bàn phím
ĐÁP ÁN
Mã đề 111131:
Trang 2Bài 1: Quy tắc đặt tên của ngông ngữ lập trình pascal: (1 điểm)
- Tên không dài quá 127 kí tự
- Tên bắt đầu bằng chữ cái, chữ số, dấu gạch dưới
- Tên bắt đầu bằng chữ cái hoặc dấu gạch dưới
3 tên đúng: (tự đặt) (1 điểm)
Bài 2: (4 điểm)
a (a - b)/(a+b) b sin(x)*sin(x) + cos(x)*cos(x) + 1/sin(x)
c (x - 1/2)/y - sqrt(x + y)/abs(x-y) d x*x*x + 1 + abs(x + 1)/(1 - x)
Bài 3: (2 điểm)
a Lỗi dòng 1: khai báo s không đúng kiểu, sửa lại s : real;
Lỗi dòng 5: thiếu dấu 2 chấm sau s, sửa lại s := s + 1/n;
b Chương trình trên thực hiện việc tính và đưa ra màn hình tổng dãy số
1
1 + 1
2 + 1
3 + … + 1
100 Bài 4: (2 điểm)
Var a, b, max : integer;
Begin
write(‘Nhap a, b:’);
readln(a, b);
if a > b then max := a else max := b;
writeln(‘So lon nhat la:’, max);
readln End
Mã đề 111132:
Bài 1: Quy tắc đặt tên của ngông ngữ lập trình pascal: (1 điểm)
- Tên không dài quá 127 kí tự
- Tên bắt đầu bằng chữ cái, chữ số, dấu gạch dưới
- Tên bắt đầu bằng chữ cái hoặc dấu gạch dưới
3 tên đúng: (tự đặt) (1 điểm)
Bài 2: (4 điểm)
a (x - y)/(x+y) b cos(x)*cos(x) - sin(x)*sin(x) + 1/cos(x)
c (y + 1/3)/x - sqrt(x + 1)/abs(x-y) d y*y*y - 1 + abs(y + 1)/(1 - y)
Bài 3: (2 điểm)
a Lỗi dòng 1: khai báo s không đúng kiểu, sửa lại s : integer;
Lỗi dòng 4: thiếu dấu 2 chấm sau biến n, sửa lại for n := 1 to 100 do
b Chương trình trên thực hiện việc tính và đưa ra màn hình tổng dãy số
1 + 2 + 3 + … + 100 Bài 4: (2 điểm)
Var a, b, min : integer;
Begin
write(‘Nhap a, b:’);
readln(a, b);
if a < b then min := a else min := b;
writeln(‘So nhỏ nhat la:’, min);
readln End