De kiem tra tin 11(chuong 1,2,3) co dap an

TRƯỜNG THPT NHƯ XUÂN II


ĐỀ KIỂM TRA
TG: 45 phút
Môn: Tin học

Đề 1
Câu 1 (2đ). Hãy nêu cấu trúc khai báo biến trong NNLT Pascal? Cho ví dụ minh họa?
Câu 2(4). Phát hiện lỗi và sửa lỗi chương trình sau:
Program sua_loi
Uses Crt;
Var a,b:integer;
Begin
Write(nhập a, b); readln(a,b);
S:= a+b;
Write(s);
Readln;
End.
Câu 3 (4đ).Viết chương trình nhập vào từ bàn phím ba cạnh a, b, c của một tam giác (với a, b, c>0). Tính và đưa ra màn hình chu vi của tam giác đó?

Đề 2
Câu 1 (2đ). Hãy nêu cấu trúc của cấu trúc rẽ nhánh dạng đủ trong NNLT Pascal? Cho ví dụ minh họa?
Câu 2 (4đ): Hãy chuyển các biểu thức trong Pascal dưới đây sang biểu thức toán học tương ứng:
a) a*b/2*4 b) sqr(a)/sqrt(a)*2
Câu 3 (4đ). Viết chương trình nhập vào từ bàn phím số nguyên dương a (a>5). Nếu a chia hết cho 5 thì đưa ra màn hình thông báo “a chia hết cho 5”, ngược lại đưa ra màn hình thông báo “a không chia hết cho 5”.
Đề 3
Câu 1 (2đ). Hãy nêu cấu trúc của cấu trúc lặp for-do dạng tiến trong NNLT Pascal? Cho ví dụ minh họa?
Câu 2 (4đ). Hãy chuyển các biểu thức trong toán học dưới đây sang biểu thức Pascal tương ứng:
a) a2 +
/2.a b) (1+x).3.

Câu 3 (4đ). Viết chương trình nhập vào từ bàn phím số nguyên dương a, kiểm tra và đưa ra màn hình thông báo a là số chẵn hay số lẻ.

Đề 4
Câu 1 (2đ). Nêu sự khác nhau giữa cấu trúc For-do và cấu trúc While-do trong NNLT Pascal?
Câu 2 (4đ). Phát hiện lỗi và sửa lỗi chương trình sau:
Program tong;
Uses crt;
Var: n,i: real;
Begin
Clrscr;
n =1;
for i:=1 to 10 do
n:=n+i;
Write(n);
Readln;
End.
Câu 3 (4đ). Viết chương trình nhập vào từ bàn phím một số nguyên dương a. Tính và đưa ra màn hình căn bậc hai của a.
Đề 5.
Câu 1 (2đ). Hãy vẽ sơ đồ khối của cấu trúc rẽ nhánh dạng đủ trong NNLT Pascal?
Câu 2 (4đ). Hãy chuyển các biểu thức trong toán học dưới đây sang biểu thức Pascal tương ứng:
a) (a+b)
b)

Câu 3 (4đ). Viết chương trình tính và đưa ra màn hình diện tích hình tròn bán kính r (r>0).


ĐÁP ÁN
Đề 1
Câu 1. var :;
Vd: Var a,b: integer;
Câu 2.
Program sua_loi;
Uses Crt;
Var s,a,b:integer;
Begin
Write(‘nhập a, b’); readln(a,b);
S:= a+b;
Write(s);
Readln;
End.
Câu 3.
Var a,b,c:integer;
Begin
Write(‘nhap a,b,c’);readln(a,b,c);
Write(‘chu vi tam giac la:’,(a+b+c)/2);
Readln;
End.

Đề 2.
Câu 1.
If <điều kiện> then else ;
Vd: if a mod 2 =0 then Write(‘a chan’) else Write(‘a le’);
Câu 2.
a) 4a
b) 2

Câu 3.
Var a:integer;
Begin
Write(‘nhap a’);readln(a);
If a mod 5 = 0 then write(‘ a chia het cho 5’)
Else write(‘a khong chia het cho 5’);
Readln;
End.
Đề 3.
Câu 1.
For