Họ tên học sinh : Đề kiểm tra 1tiết Lớp : Môn : Tin Học khối 11 I Phần trắc nghiệm ( 5đ): Tô đen vào đáp án mà em cho ; / = ~ ; / = ~ ; / = ~ ; / = ~ ; / = ~ ; / = ~ ; / = ~ ; / = ~ ; / = ~ 10 ; / = ~ Phát biểu sau sai: A Các biến khai báo cho liệu vào goi tham số thực B Trong chương trình giá trị tham số hình thức thay đổi ta phải khai báo dạng tham biến C Tất D Biến cục biến khai để dùng riêng chương trình Để biết trỏ tệp cuối dòng tệp f hay chưa, ta sử dụng hàm: A eoln(f) B close(f) C eof(f) D eof(f, 'trai.txt') Cho a biến nguyên a:=8 Và đoạn chương trình bàng thủ tục sau: " Procedure VD (x:byte); Begin x := x + 3; write(x); end; " sau gọi thủ tục VD(a); ta nhận giá tri hình là: A 11 B C D.Tất sai Trong Pascal mở tệp để ghi liệu ta sử dụng thủ tục A rewrite(); B reset(); C rewrite(); D reset(); Muốn ghi liệu vào tệp tha dùng thủ tục: A write(, ); B rewrite(, ); C readln(, ); D write(, ); Hàm để tìm giá trị nhỏ hai số x, y, cách sau dúng: A Function gtnn(x, y: integer); B Function min(x, y) : integer; C Function min(x, y: integer) : integer; D Function gtnn(x, y: integer) : boolean; Trong Pascal để khai báo bên tệp văn ta sử dụng cú pháp: A Var Text; B Var : Text; C Var : Text; D Var : String; Trong Pascal vị trí chương trình đặt : A Ở vị trí chương trình B Trước phần khai báo chương trình C Trong thân chương trình (sau từ khố Begin CT chính) D Sau phần khai báo chương trình (Trước từ khố Begin CT chính) Cú pháp để gắn tên tệp 'bai1.txt' ổ đĩa D cho biến tệp f là: A Assign( f, D:\ bai1.txt); B Assign( f, 'D:bai1.txt'); C Assign( f, 'D:\bai1.txt' ); D Assign( f, "D:\bai1.txt" ); 10 Khẳng định sau đúng: A Lời gọi hàm phải có tham số thực cịn lời gọi thủ tục khơng thiết phải có tham số thực B Lời gọi thủ tục phải có tham số thực cịn lời gọi hàm khơng thiết phải có tham số thực C Cả lời gọi hàm lời gọi thủ tục phải có tham số thực D Lời gọi hàm lời gọi thủ tục có tham số thực khơng có tham số thực tuỳ thuộc vào hàm thủ tục II Phần tự luận (5 điểm); Câu : xếp câu lệnh sau theo thứ tự để thành môït chương trình hoàn chỉnh Readln; Writeln(‘pt co nghiem kep x1=x2=’, -m/2*n); Var a,b,c:byte; If DT > then Writeln(‘nhập vào số a,b,c ‘); Begin Var DT:byte; 10 x1:= (-m –sqrt(DT))/2*n; x2:= (-m+sqrt(DT))/2*n; 11 x1, x2: real; Begin 12 End 13 End; 14 If DT = then 15 DT:= sqr(m) – 4*n*z; 16 If DT then 17 Writeln(‘nhập vào số a,b,c ‘); 19 Writeln(‘pt co nghiem x1’, x1,’x2= ‘,x2); 21 End 23 If DT = then 12 Begin 14 Var DT:byte; 16 DT:= sqr(m) – 4*n*z; 18 If DT then Program vd; Begin 10 Begin Writeln(‘pt co nghiem x1’, x1,’x2= ‘,x2); 11 End Writeln(‘phương trinh vo nghiem’); 12 Begin 13 x1, x2: real; 14 Procedure bac2(var n, m, z :byte); 15 Writeln(‘pt co nghiem kep x1=x2=’, -m/2*n); 16 If DT = then 17 Var DT:byte; 18 x2:= (-m+sqrt(DT))/2*n; 19 DT:= sqr(m) – 4*n*z; 20 If DT then 17 Writeln(‘nhập vào số a,b,c ‘); 19 Writeln(‘pt co nghiem x1’, x1,’x2= ‘,x2); 21 End 23 If DT = then 12 Begin 14 Var DT:byte; 16 DT:= sqr(m) – 4*n*z; 18 If DT