Tải bản đầy đủ (.doc) (3 trang)

Tài liệu Đề tham khảo Tin 11-HKII-Kiểu xâu-CTcon

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (57.96 KB, 3 trang )

THAM KHO - KIU XU-CHNG TRèNH CON
Câu I: (Khoanh tròn câu trả lời đúng)- Trong ngôn ngữ lập trình Turbo Pascal
1.Trong ngôn ngữ Pascal khai báo nào sau đây là đúng:
a. Var st: String[275]; c. Var Khoi 11: String[25];
b. Var ten: String; d. Var const: String[50];
2. Trong các hàm sau, hàm nào cho kết quả là độ dài thực sự của xâu st
a. Upcase(ch) b. Length(st)
c. Pos(st1,st2) c. Copy(st1,m,n)
3. Chọn khai báo đúng:
a. Type HS = Record; c. Type HS = Record;
hoten: string[30]; hoten: string[30];
Diachi: String[50]; Diachi: String[50];
DTB: Real; DTB: Real;
End; End;
Var a: HS; Var a: HS;
b. Type HS = Record d. Type HS = Record
hoten: string[30]; hoten: string[30];
Diachi: String[50]; Diachi: String[50];
DTB: Real; DTB: Real;
End; End;
Var a: HS Var a: HS;
4. Giả sử có một biến bản ghi HS, để tham chiếu đến trờng Hoten của biến bản ghi HS
ta viết:
a. HS.Hoten b. HS:Hoten
c. Hoten. HS d. HS..Hoten
5. Cho hai xâu 'Cong cha' ... 'cong on'. Chọn dấu thích hợp điền vào dấu ...
a. > b. < c. = d. <>
6. Giả sử k là một biến có kiểu dữ liệu kí tự. Chọn câu đúng trong các câu sau:
a. k:= 'hoc'; b. k:= 'A'; c. k:= A; d. k:=1;
7. Có thể xem kiểu dữ liệu xâu là mảng một chiều. khi đó một phần tử của mảng là
một:


a. số b. xâu c. Kí tự d. Tất cả các câu trên
8. Giả sử trên đĩa đã tồn tại một tệp F chứa các số nguyên có tên KQ.DAT, để đọc dữ
liệu từ tệp ta lần lợt thực hiện các thao tác:
9. Giả sử trên đĩa đã tồn tại một tệp định kiểu F chứa các số nguyên có tên SN.DAT.
Trong các thao tác sau đối với tệp F, thao tác nào sai:
a. Assign(F, 'SN.DAT'); c. Readln(F,x);
b. Reset(F); d. Close(F);
a. Assign(F, 'KQ.DAT');
Reset(F);
Read(F,x);
Close(F);
b. Reset(F);
Read(F,x);
Assign(F, 'KQ.DAT');
Close(F);
d. Assign(F, 'KQ.DAT');
Reset(F);
Readln(F,x);
Close(F);
c. Assign(F, 'KQ.DAT');
Rewrite(F);
Read(F,x);
Close(F);
10. Giả sử tệp định kiểu F có tên SOLIEU.DAT đang mở bởi thủ tục RESET(F);
Muốn chuyển con trỏ tệp đến phần tử thứ 9 của tệp ta viết:
a. Seek(F,10); c. Seek(F,9);
b. Seek(F,8); d. Seek(F,0);
11. Trong các khai báo sau, khai báo nào sai:
a. Procedure P (n:integer ; k:real);
b. Procedure M (n:integer ; k:real);

c. Procedure P (h:char ; n:integer);
d. Procedure KT (M: Array[1..10] of Byte ; Var x: String[25]);
11.Chọn khai báo đúng:
a. Procedure Loai bo (Var st: string);
b. Function Chuvi (a,b: Real);
c. Procedure P (Var x,y:integer)
d. Function Tong (x,y: Real): Real;
12. Cho chơng trình sau:
Program CT;
Var M,N:Integer;
Procedure HD (Var x:integer; y:integer);
Var tg: Integer;
Begin
tg:= x;
x:= y;
y:= tg;
end;
Begin
m:=7; n:=8;
HD(m,n);
Writeln(m:5,n:5);
Readln;
End.
Trong chơng trình trên lời gọi thủ tục HD nào sau đây không hợp lệ:
a. HD(m,10); c. HD(m,n+3);
b. HD(10,n); d. HD(m,n);
II. Điền vào dấu ...
Câu 1:
Giá trị S1 Giái trị S2 Thao tác Kết quả
' Xanh' 'Truong em Sach Đep' ... 'Truong em Xanh Sach Đep'

Câu 2:
Giá trị của St Thao tác Kết quả
'Chien thang Đien Bien Phu' Delete(St,13,13) ...
'Hoc sinh' ... 'Hoc'
Câu 3:
Giá trị của St Biểu thức Kết quả
' Khoi 11' Length(st) ...
'Truong em co 38 lop' Pos('38',st) ...
'Truong em co 38 lop' Copy(st,...,...) '38 lop'
III. §äc ch¬ng tr×nh vµ cho biÕt kÕt qu¶ hiÓn thÞ lªn mµn h×nh khi ch¹y ch¬ng
tr×nh. (Ghi vµo dßng kÎ.............)
1. §äc ch¬ng tr×nh sau vµ cho biÕt kÕt qu¶ hiÓn thÞ lªn mµn h×nh khi ch¹y ch¬ng tr×nh.
Program KTHK;
Var x,y:integer;
Procedure M(Var A:integer; B:integer);
Begin
A:=A*2;
B:=B*B;
Writeln(A,' ',B);
end;
Begin
x:=4; y:=8;
M(x,y);
Writeln(x,' ',y);
Readln;
End.
.............................................................................................................................
.............................................................................................................................
2. §äc ch¬ng tr×nh sau vµ cho biÕt kÕt qu¶ hiÓn thÞ lªn mµn h×nh khi ch¹y ch¬ng tr×nh.
Program vd;

Var m:integer;
Procedure vd1;
Begin
m:=100;
end;
Begin
m:= 1;
vd1;
Writeln(m);
Readln;
End.
.............................................................................................................................
.............................................................................................................................

×