Câu 5: Cho biết cách gắn tệp nào sau đây là đúng?a.. 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 UCLNv
Trang 1ĐỀ 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;
Trang 2end;
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à:
Trang 3A) 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
Trang 4B) -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;
Trang 5Câ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’);
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?
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’);
Trang 6c 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?
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;
Trang 7d Function vidu(n:integer):real;