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

ĐỀ KIỂM TRA HỌC KÌ I Câu 1: Các tên sau tên không hợp lệ Turbo Pascal, sao? ( Hãy khoanh tròn vào 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ó khai báo bên cột A xem giá trị bên cột B gán cho biến bên cột A: A Var x, y, z : real; p, q : byte; k : word; i, j : integer; ch : char; b : boolean; B a) ten b) 1.1e+39 c) 15 d) true e) 465 f) 65535 Câu 3: Hãy lỗi chương trình 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 < > then Writeln(' X = ', dx/dt:5:2,' y = ', dy/dt:5:2) Else { trường hợp dt = xẩy hai khả sau đây} If dx < > 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 cho N dương (Nếu nhập N < thông báo giá trị không hợp lệ, N > tính tổng S S= 12 + 22 + + N2 ...Câu 2:Giả thiết có khai báo bên cột A xem giá trị bên cột B gán cho biến bên cột A: A Var x, y, z : real; p, q : byte; k : word; i, j : integer; ch : char; b : boolean;... := a*f - d*c; If dt < > then Writeln(' X = ', dx/dt:5:2,' y = ', dy/dt:5:2) Else { trường hợp dt = xẩy hai khả sau đây} If dx < > then Write (' Hệ phương trình vô nghiệm'); Else Writeln(' Hệ phương... 15 d) true e) 465 f) 65535 Câu 3: Hãy l i chương trình 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);