ĐỀ CƯƠNG KIỂM TRA 1 TIẾT 1 Cho khai báo hàm đệ quy : Function F( a : Integer) : Integer; Begin If a=1 then F:=1 else F:= a*a+ F(a-1); End; Giá trị của hàm F(4) là: A) 1 B) 30 C) 25 D) 14 2 Khi chạy chương trình : Procedure TT( a : Integer) ; Begin Repeat a:= 2* a ; Until a>15 ; Write(a); End; BEGIN TT(2) ; END. -Kết quả in ra là: A) 2 B) 16 C) 8 D) 32 3 Cho khai báo : Type Vector = Record x, y : Integer; end; Var S : Array[1 4] of Vector ; i : Integer ; -Lệnh nào đúng : A) For i:=1 to 4 do With S[i] x:= 3; y=4; B) For i:=1 to 4 do S[i].x:= 3; y=4; C) For i:=1 to 4 do begin S[i].x:= 3; S[i].y=4; end ; D) For i:=1 to 4 do begin S.x:= 3; S.y=4; end; 4 Khai báo đầu thủ tục nào đúng: A) Procedure TT(x); B) Procedure TT(x :Integer):Real; C) Procedure TT(x :Integer ; Var a:Real) ; D) Procedure TT(x: Integer ; x: Real); 5 Khai báo đầu chương trình con nào đúng: A) Function F ( ch: Char) ; B) Procedure TT : Integer ; C) Proceduce TT( k : Integer ) D) Function F : Boolean ; 6 Mô tả nào dưới đây về hàm là sai A) Trong hàm có thể gọi lại chính hàm đó B) Phải trả lại kết quả C) Có thể có các biến cục bộ D) Phải có tham số 7 Cho a là biến nguyên a=3, và khai báo thủ tục : Procedure TT( x : Integer) ; Begin x:=x+2; End; Sau khi gọi thủ tục TT(a); thì Giá trị của biến a là : A) 2 B) 5 C) 0 D) 3 8 Chọn khai báo đúng : A) Type DIEM = Record x, y ; end; B) DIEM = Record x, y : Real; end; C) Type DIEM = Record x,y : Real; end; D) Type DIEM = Record x,y : Real; 9 Cho hàm sau: Function UCLN (m,n:integer): integer; Begin While ( ) do If m>n then m:=m-n else n:=n-m; UCLN:=m; End; Đáp án cho ( ) là: A) m<>n B) m=n C) m<n D) m>n 10 Khi chạy chương trình : Type Vector = Record x, y : Integer; end; Var A, B : Vector ; Begin A.x := 2 ; A.y := 4; B.x := -1; B.y := 0 ; Write( Sqr( A.x-B.x) + Sqr(A.y- B.y) ); End. -Kết qủa in ra là: A) 25 B) 5 C) 9 D) 16 11 Cho khai báo đầu của một hàm: Function F( k : Integer) : String ; Begin If k mod 2=0 then F:=’Chan’ else F:=’Le’; End; Muốn gán X:= F(5); thì biến X phải khai báo kiểu gì : A) Var X: Real; B) Var X : Char; C) Var X: Integer; D) Var X: String; 12 Khi chạy chương trình : Var x : Integer; Procedure TT ; Begin x:=4; x:= x+5; End; BEGIN x:=0; TT; Write(x); END. -Kết quả in ra là: A) 9 B) 0 C) 4 D) 5 13 Khi chạy chương trình : Procedure TINHS; Var i, S : integer; Begin S:=1; For i:=1 to 4 do S:=S*i; Write(S); End; BEGIN TINHS; END. -Kết qủa in ra : A) 12 B) 24 C) 4 D) 6 14 Khai báo đầu hàm nào đúng: A) Function F( x: real ); B) Function F(x) : Real; C) Function F( x: integer) : Real; D) Function F( St: String[20]) : Integer ; 15 Khi chạy chương trình : Var x, y : Real; Function F(x, y:Real):Real; Begin F:=x; If x < y then F := y; End; BEGIN x:=10; y:=15; Write(F(x, y): 0:0); END. -Kết qủa in ra: A) 0 B) 15 C) F(x,y) D) 10 16 Kiểu của một hàm được xác định bởi A) Địa chỉ mà hàm trả về B) Kiểu giá trị trả về C) Tên hàm D) Kiểu của các tham số 17 Chọn khai báo đúng : A) Type Phanso = Record Tu, Mau: Integer; end ; B) Type Record = Phanso ; Tu, Mau : Integer; end; C) Var Phanso = Record ; Tu, Mau: Integer; end ; D) Type Phan so = Record Tu so, Mau so : Integer; end; 18 Cho x, y là hai biến nguyên và khai báo thủ tục : Procedure Doicho( Var a : Integer; b : Integer); Var z : Integer; Begin z:=a; a:=b; b:=z; End; -Sau khi thực hiện các lệnh: x:=7; y:=3; Doicho(x, y); thì giá trị của x, y là: A) x=7, y=3 B) x=3, y=3 C) x=3, y=7 D) x=7, y=7 19 Cho khai báo biến và khai báo đầu của hàm F: Var x, S : Real; n: Integer ; FUNCTION F( y: Real; m : Integer) : Real; - Lời gọi hàm nào dưới đây là đúng : A) S:= F(n, x); B) S:= F( x); C) S:= F( x, n); D) S:= F( n); 20 Cho khai báo biến và khai báo đầu của thủ tục TT: Var x, y : Integer ; St :String ; Procedure TT( Var a : Integer ; b : String); -Lệnh nào đúng : A) TT(x,St) B) y:= TT(St,x) C) TT(10,St) D) TT(x +1,St) 21 Cho khai báo hàm : Function F( k : Integer) : Integer; Begin F:=2*k+1; End; Gía trị của hàm F( F(1) ) là : A) 1 B) 7 C) 3 D) 5 22 Khi chạy chương trình : Var x : Integer; Procedure TTA ; Var x : Integer; Begin x:= 7* 5; Write(x, ‘,’); End; BEGIN x:=4; TTA; Write(x:2); END. -Kết quả in ra là: A) 4, 75 B) 354 C) 4, 35 D) 35, 4 23 Khi chạy chương trình : Var x : Integer; Procedure TINH ; Var x: Integer ; Begin x:=1; x:= x+12; End; BEGIN x:=10; TINH; Write(x); END. -Kết quả in ra là: A) 12 B) 10 C) 22 D) 13 24 Cho khai báo hàm : Function F( x : Integer) : Integer; Begin F:=x*x; End; Gía trị của F(2+1) là : A) 3 B) 9 C) 1 D) 4 25 Cho khai báo : Type HOCSINH = Record Ten, Maso : String[10]; end; -Câu nào đúng : A) A: array[1 10] of Maso ; B) Var A: array[1 10] of Ten ; C) Var A : array [1 10] of HOCSINH; D) Var A : array [1 10] of Record; 26 Cho khai báo biến và khai báo đầu của thủ tục TT như sau: Var x, S : Integer ; ch : Char ; Procedure TT(y : Integer; kytu : char); -Lệnh gọi thủ tục nào đúng : A) S := TT(x, ch) ; B) TT(x, ch) ; C) TT(ch, x) ; D) TT ; 27 chạy chương trình : Type Vector = Record x, y : Integer; end; Var A, B : Vector ; Begin A.x := 2 ; A.y := 1; B.x := -1; B.y := -3 ; Write( A.x*B.x+A.y*B.y) ; End. -Kết qủa in ra là: A) -7 B) -3 C) 2 D) -5 28 Cho khai báo : Type HS = Record Ten :String[20]; Dtb:Real; end; Var X, Y : HS ; -Chọn câu đúng : A) HS.Dtb:= 4.5 ; B) X.Dtb:=’ Nguyen An’; C) X := Y.Dtb; D) X.Ten:=’Nhu Quynh’; 29 Cho khai báo hàm : Function F( x, y : Integer) : Integer; Begin If x< y then F:=x else F:=y; End; Gía trị của F(9, 0) là : A) 3 B) 2 C) 0 D) 1 30 Cho khai báo đầu của một hàm: Function F( k : Integer) : String ; Begin If k mod 2=0 then F:=’Chan’ else F:=’Le’; End; Muốn in Write( F(y) ); thì biến y phải khai báo kiểu gì : A) Var y : Real; B) Var y : Char; C) Var y : String; D) Var y : Integer; Câu 5: Cho biết cách gắn tệp nào sau đây là đúng? a. Assign(f, DL.DAT) b. Assign(f,’DL.DAT’); c. Assign(‘f’,DL.DAT) d. Assign(‘f’,’DL.DAT’); Câu 6: Sau khi đã gắn tên tệp cho biến tệp f và mở tệp để đọc dữ liệu ta thực hiện đọc tệp như sau: a. read( ‘f’, A); b. readln(f, ‘A’); c. read( f, A); d. read(f, ‘A’) Hãy chọn phương án đúng. Câu 1: Mở tệp Lop11.txt để đọc dữ liệu ta làm như sau: a. Assingn(f,’Lop11.txt’); b. Assingn(f,’Lop11.txt’); Rewrite(f); reset(f); c. reset(lop11.txt); d. rewrite(lop11.txt); Hãy chọn phương án đúng. Câu 2: Sau khi đã gắn tên tệp cho biến tệp f và mở tệp để đọc dữ liệu ta thực hiện đọc tệp như sau: Câu 5: Trong chương trình con Dientich(a,b,c); a, b, c là các tham số: a. Hình thức b. Thực sự c. Cả 2 phương án trên đều sai Hãy chọn phương án đúng. Câu 6: Để tính UCLN của hai số, chọn cách khai báo đúng nhất a. Function UCLN(var a,b:integer):boolean; b. Function UCLN(var a,b:integer); c. Function UCLN(var a,b:integer):integer; d. Function UCLN(var a,b:integer):real; Câu 1: Cho biết cách gắn tệp nào sau đây là đúng? a. Assign(f, DL.DAT) b. Assign(f,’DL.DAT’); c. Assign(‘f’,DL.DAT) d. Assign(‘f’,’DL.DAT’); Câu 2: Sau khi đã gắn tên tệp cho biến tệp f và mở tệp để đọc dữ liệu ta thực hiện đọc tệp như sau: a. read( ‘f’, A); b. readln(f, ‘A’); c. read( f, A); d. read(f, ‘A’) Hãy chọn phương án đúng. Câu 3: Hàm eof(f) có giá trị True thì con trỏ chỉ ở: a. Đầu tệp b. Cuối tệp c. Giữa tệp d. Cả 3 phương án trên Hãy chọn phương án đúng. Câu 1: Thủ tục bắt đầu bằng từ khóa nào? a. Function b. Procedure c. Program d. Var Câu 2: Mở tệp Lop11.txt để đọc dữ liệu ta làm như sau: a. Assingn(f,’Lop11.txt’); b. Assingn(f,’Lop11.txt’); Rewrite(f); reset(f); c. reset(lop11.txt); d. rewrite(lop11.txt); Câu 3: Sau khi đã gắn tên tệp cho biến tệp f và mở tệp để ghi dữ liệu ta thực hiện ghi tệp như sau: a. write(‘f’,A); b. writeln(‘f’,’A’); c. write(f,’A’); d. Cả 3 phương án trên đều đúng. Câu 4: Hàm eoln(f) có giá trị True thì con trỏ chỉ ở: a. cuối dòng b. Cuối tệp c. Giữa tệp d. Cả 3 phương án trên Hãy chọn phương án đúng. Câu 4: Khi mở tệp văn bản để đọc cần sử dụng thủ tục nào trong các thủ tục sau? a. Reset(f); b. Rewrite(f); c. Assign(f,n); d. Seek(f,n); Câu 5: Trong chương trình con Dientich(a,b,c); a, b, c là các tham số: a. Hình thức b. Thực sự c. Cả 2 phương án trên đều sai Hãy chọn phương án đúng. Câu6: Trong chương trình con , khẳng định nào là sai? a. Phần tên bắt buộc phải có b. Phần khai báo bắt buộc phải có c. Phần thân chương trình con bắt buộc phải có d. Phần khai báo có thể có hoặc không. Câu 1: Hàm eof(f) có giá trị True thì con trỏ chỉ ở: a. Đầu tệp b. Cuối tệp c. Giữa tệp d. Cả 3 phương án trên Câu 2: Trong chương trình con Dientich(a,b,c); a, b, c là các tham số: a. Hình thức b. Thực sự c. Cả 2 phương án trên đều sai Câu 3: Trong chương trình con Dientich(4,3,5); 4, 3, 5 là các tham số: a. Hình thức b. Thực sự c. Cả 2 phương án trên đều đúng Câu 4 : Khai báo chương trình con nào trong các khai báo sau là sai: a. Procedure vidu(a:integer); b. Procedure vidu(a:integer; b,c:string); c. Procedure vidu(a:array[1 10] of integer); d. Procedure vidu(a,b:real; c:boolean); a. read( ‘f’, A); b. readln(f, ‘A’); c. read( f, A); d. read(f, ‘A’) Câu 3: Sau khi đã gắn tên tệp cho biến tệp f và mở tệp để ghi dữ liệu ta thực hiện ghi tệp như sau: a. write(‘f’,A); b. writeln(‘f’,’A’); c. write(f,’A’); d. Cả 3 phương án trên đều đúng. Câu 4: Trong chương trình con Dientich(a,b,c); a, b, c là các tham số: a. Hình thức b. Thực sự c. Cả 2 phương án trên đều sai Câu 5: Trong chương trình con Dientich(a,b,c); a, b, c là các tham số: a. Hình thức b. Thực sự c. Cả 2 phương án trên đều sai Câu 6: Khai báo chương trình con nào trong các khai báo sau là đúng: a. Procedure vidu(n:integer):integer; b. Function vidu(n:integer); c. Function vidu(n:integer):integer; d. Function vidu(n:integer):real; DA BBCCDDDCAA DABCBBABCA BDBBCBDDCD . đúng. Câu 1: Mở tệp Lop11.txt để đọc dữ liệu ta làm như sau: a. Assingn(f,’Lop11.txt’); b. Assingn(f,’Lop11.txt’); Rewrite(f); reset(f); c. reset(lop11.txt); d. rewrite(lop11.txt); Hãy chọn phương. Var Câu 2: Mở tệp Lop11.txt để đọc dữ liệu ta làm như sau: a. Assingn(f,’Lop11.txt’); b. Assingn(f,’Lop11.txt’); Rewrite(f); reset(f); c. reset(lop11.txt); d. rewrite(lop11.txt); Câu 3: Sau. := 0 ; Write( Sqr( A.x-B.x) + Sqr(A.y- B.y) ); End. -Kết qủa in ra là: A) 25 B) 5 C) 9 D) 16 11 Cho khai báo đầu của một hàm: Function F( k : Integer) : String ; Begin If k mod 2=0 then