- 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]
(1)SỞ GIÁO DỤC VÀ ĐÀO TẠO NGHỆ AN ĐỀ THI KHẢO SÁT LẦN LỚP 11
TRƯỜNG THPT DTNT QUỲ HỢP Năm học: 2011 - 2012
Đề thức Mơn thi: Tin học
Mã đề 111131 (Thời gian 45 phút không kể phát đề) Bài 1: Nêu quy tắc đặt tên ngơn ngữ lập trình pascal viết tên
Bài 2: Biểu diễn biểu thức toán học sau sang pascal: a a− ba
+b b sin
2x + cos2x + sinx c x −
1 y
- √x+y
|x − y| d x
3 + + |x+1| 1− x Bài 3: a Phát sửa lỗi chương trình sau:
var s, n : integer; {dòng 1}
begin {dòng 2}
s := 0; {dòng 3}
for n := to 100 {dòng 4} s = s + 1/n; {dòng 5} writeln(‘Ket qua:’, s); {dòng 6}
readln {dòng 7}
end {dòng 8}
b Chương trình thực cơng việc gì?
Bài 4: Viết chương trình tìm đưa hình số lớn (max) 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 LỚP 11
TRƯỜNG THPT DTNT QUỲ HỢP Năm học: 2011 - 2012
Đề thức Mơn thi: Tin học
Mã đề 111132 (Thời gian 45 phút không kể phát đề) Bài 1: Nêu quy tắc đặt tên ngôn ngữ lập trình pascal viết tên
Bài 2: Biểu diễn biểu thức toán học sau sang pascal: a x − yx
+y b cos
2x - sin2x + cosx c y+
1 x
- √x+1
|x − y| d y
3 - + |y+1| 1− y Bài 3: a Phát sửa lỗi chương trình sau:
var s, n : Byte; {dòng 1}
begin {dòng 2}
s := 0; {dòng 3}
for n = to 100 {dòng 4} s := s + n; {dòng 5} writeln(‘Ket qua:’, s); {dòng 6}
readln {dòng 7}
end {dịng 8}
b Chương trình thực cơng việc gì?
Bài 4: Viết chương trình tìm đưa hình số nhỏ (min) số nguyên a, b nhập vào từ bàn phím
(2)Bài 1: Quy tắc đặt tên ngơng ngữ lập trình pascal: (1 điểm) - Tên khơng dài q 127 kí tự
- Tên bắt đầu chữ cái, chữ số, dấu gạch - Tên bắt đầu chữ dấu gạch 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 + + abs(x + 1)/(1 - x)
Bài 3: (2 điểm)
a Lỗi dịng 1: khai báo s khơng kiểu, sửa lại s : real; Lỗi dòng 5: thiếu dấu chấm sau s, sửa lại s := s + 1/n;
b Chương trình thực việc tính đưa hình tổng dãy số
1 + +
1
3 + … + 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 ngơng ngữ lập trình pascal: (1 điểm) - Tên khơng dài q 127 kí tự
- Tên bắt đầu chữ cái, chữ số, dấu gạch - Tên bắt đầu chữ dấu gạch 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 - + abs(y + 1)/(1 - y)
Bài 3: (2 điểm)
a Lỗi dòng 1: khai báo s không kiểu, sửa lại s : integer;
Lỗi dòng 4: thiếu dấu chấm sau biến n, sửa lại for n := to 100 b Chương trình thực việc tính đưa hình tổng dãy số
1 + + + … + 100 Bài 4: (2 điểm)
Var a, b, : integer; Begin
write(‘Nhap a, b:’); readln(a, b);
if a < b then := a else := b;
writeln(‘So nhỏ nhat la:’, min); readln