b/ Viết câu lệnh kiểm tra số nào lớn nhất trong 2 số nguyên a, b.. c/ Viết câu lệnh kiểm tra số nào nhỏ nhất trong 2 số nguyên a, b..[r]
(1)Trường THPT Rạch Kiến Thi kiểm tra học kỳ 1
Lớp: …… Môn Tin học
Họ tên: ……… Năm học 2010- 2011
Câu 1: (2 điểm) : Chuyển đổi biểu thức Pascal sang dạng tương ứng toán học ngược lại: (bỏ câu theo định giáo viên)
a) -1 <= cos(x) and cos(x) <= 1
……… b) Abs(x*x*x + sqrt(x+sqrt(x)))
……… c) x y xy ……… d) x2y2 R2
……… e) | x + x x |
………
Câu 2: (2 điểm) Tìm (đánh dấu X vị trí lỗi), giải thích sửa lỗi chương trình sau: PROGRAM PTB2
VAR a,b,c,x,x1,x2,delta:real; BEGIN
Write(‘nhap a,b,c’); readln(a,b,c);
Delta:=b*b-4*a*c; IF delta <0
writeln(‘phuong trinh vo nghiem’); ELSE IF delta=0 THEN
BEGIN
X:=-b/(2*a);
Writeln(‘phuong trinh co nghiem la:’,x:8:2); END;
ELSE
X1:=(-b-sqrt(delta))/(2*a); X2:=(-b+sqrt(delta))/(2*a); Writeln(‘Nghiem pt la:’,x1:8:2); Writeln(‘Nghiem pt la:’,x2:8:2); Readln
END.
(2)(3)Câu 3: (5 điểm) cho chương trình sau: Em cho biết:
a/ Ý nghĩa câu lệnh chưa giải thích ý nghĩa chương trình.(3.5đ) program Cau5bTrang51; uses crt; var e,u:real; n:integer; begin clrscr; n:=1; u:=1/n;
e:=1+u; {1đ} while not(u<2.0E-6)do {0.5đ} begin n:=n+1; u:=u*(1/n); e:=e+u;
end; {1đ} write('e(n)= ',e:8:2); readln;
end (0.5đ}
Khai báo tên chương trình là: Cau5bTrang51 Khai báo thư viện sử dụng: crt
Khai báo biến: e,u:kiểu số thực n:kiểu số ngun Bắt đầu chương trình
Xóa hình
……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ………
Ý nghĩa chương trình:(0.5 đ)
……… ………
b/ Điền kết u, e(n) tương ứng với giá trị n n chạy đến 4.(1,5đ)
n 1 2 3 4
u e(n)
Câu 4: (1 điểm)
(4)