ĐỀ 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)


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:


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