ĐỀ KIỂM TRA học kì i

ĐỀ KIỂM TRA HỌC KÌ I

Câu 1: Các tên sau đây tên nào không

hợp lệ trong Turbo Pascal, tại sao? ( Hãy khoanh tròn vào các tên sai)

a) Abc b) rPq9 c) CT1_Prog:

d) z_rc e) 12th

f) r 50 g) f1.txt h) "ab“

i) fx.doc k) /23AB.txt

Câu 2:Giả thiết có các khai báo bên cột A hãy xem các giá trị bên cột B có thể gán được cho các biến nào bên cột A:

Var

x, y, z : real;

p, q : byte;

k : word;

i, j : integer;

ch : char;

b : boolean;

a) ten b) 1.1e+39 c) 15

d) true e) 465 f) 65535

Câu 3: Hãy chỉ ra lỗi của chương trình dưới đây

Var

a, c, d, e, f : real;

dt, dx : real

Begin

Writeln( Nhap vao a, b, c ='); Readln( a,b,c);

Writeln( Nhap vao d, e, f ='); Readln( d,e,f);

dt := a*e - d*b;

dx := c*e - f*b;

dy := a*f - d*c;

If dt < > 0 then

Writeln(' X = ', dx/dt:5:2,' y = ', dy/dt:5:2)

Else { trường hợp dt = 0 xẩy ra hai khả năng sau đây}

If dx < > 0 then

Write (' Hệ phương trình vô nghiệm');

Else

Writeln(' Hệ phương trình vô số nghiệm');

Readln;

End.

Câu 4: Viết chương trình nhập số N nguyên đảm bảo sao cho N dương (Nếu nhập N < 0 thì thông báo

giá trị không hợp lệ, nếu N > 0 thì tính tổng S

S = 12 + 22 + + N2