Ôn tập thi học kỳ 2

ÔN TẬP
TIN HỌC 11 – HỌC KỲ 2
1
2
3
A. Var a : char;
B. Var a : string;
C. Var a = string;
D. Var a = char;
Cđu 4
Ch?n khai bâo xđu d�ng?
B. Var a : string;
A. Xđu a < xđu b
B. Xđu b < xđu a
C. Xđu a = xđu b
D. K?t qu? khâc
Cđu 5
So sânh 2 xđu sau�:
xđu a = `THANH PHO `
xđu b = ` THANH PHO HO CHI MINH `
A. Xđu a < xđu b
A. X�a n k� t? c?a xđu vt b?t d?u t? v? t� st
B. Thím n k� t? c?a xđu vt b?t d?u t? v? t� st
C. X�a n k� t? c?a xđu st b?t d?u t? v? t� vt
D. Thím n k� t? c?a xđu st b?t d?u t? v? t� vt
Cđu 6
Th? t?c Delete(st , vt , n) c� c�ng d?ng g�?
C. X�a n k� t? c?a xđu st b?t d?u t? v? t� vt
D? chỉn thím xđu S1 văo xđu S2 b?t d?u t? v? tr� vt ta ghi nhu th? năo?
B. Insert (vt , S1 , S2)
Cđu 7
D. Insert (vt , S2 , S1)
A. Insert (S1 , S2 , vt)
C. Insert (S2 , S1 , vt)
A. Insert (S1 , S2 , vt)
Cđu
8
Hăm Copy(S , vt , n) c� c�ng d?ng g�?
CđU
9
D? chỉn thím xđu S1 văo xđu S2 b?t d?u t? v? tr� vt ta ghi nhu th? năo?
CđU
10
Hăm Copy(S , vt , n) c� c�ng d?ng g�?
CđU
11
Khai báo mảng D thuộc kiểu số nguyên gồm 50 phần tử.
Chọn câu đúng:
Cđu 12
Do?n chuong tr�nh sau cho k?t qu? lă g�?
k : = length(a);
b : = ` ` ;
For i:=1 to k do
if a[i] <> ` ` then b : = b + a[i];
A. 11
B. 5
C. 10
D. 8
Cđu 13
Cho xđu a = ` VUI DE HOC ` .
Hăm Length(a) cho k?t qu? bao nhiíu k� t??
A. 2
B. 5
C. 1
D. 6
Cđu 14
Cho xđu S1 = ` U ` vă S2 = ` QUE HUONG `
Hăm Pos(S1, S2) cho k?t qu? lă g�?
15
16
CđU
17
Ch?n tham chi?u ph?n t? tru?ng c?a b?n ghi d�ng
A. Var tep : text;
B. Var tep : integer;
C. Var tep : string;
D. Var tep : char;
Cđu 18

Ch?n khai bâo bi?n t?p d�ng
CđU
19
Ch?n câch g?n tín t?p d�ng
CđU
20
Cđu l?nh Rewrite();
c� c�ng d?ng d? lăm g�?
A. M? t?p d? d?c d? li?u
B. G?n tín t?p
C. M? t?p d? ghi d? li?u
D. Ghi t?p van b?n
Cđu 21
Cđu l?nh Reset(); c� c�ng d?ng d? lăm g�?
A. G?n tín t?p
B. D?c t?p
C. M? t?p
D. Ghi t?p van b?n
Cđu 22
Cđu l?nh:
Read(,); c� c�ng d?ng d? lăm g�?
CđU
23
Ch?n câch d?c t?p d�ng
CđU
24
Ch?n câch d?c ghi t?p d�ng
CđU
25
Ch?n d?c di?m d�ng c?a ki?u d? li?u ki?u t?p
CđU
26
C?u tr�c chuong tr�nh con g?m nh?ng ph?n năo?
CđU
27
Chuong tr�nh con n?m ? v? tr� năo trong 1 chuong tr�nh c� chuong tr�nh con?
CđU
28
Ch?n d?nh nghia d�ng v? ki?u b?n ghi
CđU
29
So sânh d? dăi 2 xđu sau�:
x�:= length( ` THANH PHO ` )
y�:=length( ` THANH PHO ` )
CđU
30
Trong 1 chuong tr�nh c� chuong tr�nh con, bi?n du?c s? d?ng cho chuong tr�nh ch�nh g?i lă bi?n g�?
1. Tr�nh băy câc thao tâc v?i t?p
a. G?n tín t?p
ASSIGN(,);
b. M? t?p
* Th? t?c m? t?p d? ghi k?t qu?:
REWRITE ();
* Th? t?c m? t?p d? d?c d? li?u
RESET ();
c. Ghi d? li?u ra t?p
* Th? t?c ghi d? li?u ra t?p
WRITE(, );
WRITELN (, );
* Th? t?c d?c d? li?u t? t?p:
READ(, );
READLN (, );
d. Th? t?c d�ng t?p
CLOSE(< tín bi?n t?p>)

2. So sânh gi?a th? t?c vă hăm
* S? gi?ng nhau gi?a Th? T?c vă Hăm:
- C? th? t?c vă hăm d?u lă chuong tr�nh con,
- C? th? t?c vă hăm d?u c� th? ch?a câc tham s?
* S? khâc gi?a Th? t?c vă Hăm:
3. Vi?t chuong tr�nh c� th? t?c hoân d?i v? tr� c?a 2 bi?n a vă b thu?c ki?u s? nguyín
Program CT;
Var a,b :integer;
Procedure Hoan_Doi(var x,y :integer);
Var TG: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
Begin
A:=5; B:=10;
Writeln( A : 6, B : 6);
Hoan_Doi(A,B);
Writeln(A: 6, B:6);
Readln;
End.
4. Vi?t chuong tr�nh nh?p văo h? vă tín c?a hai h?c sinh, sau d� in ra măn h�nh h? tín c?a h?c sinh c� d? dăi dăi hon. N?u d? dăi hai xđu b?ng nhau th� xu?t ra xđu d?u tiín.
Program bt;
Var a,b : String;
Begin
Writeln (` Nhap xau ho ten thu nhat : `); Readln(a);
Writeln (` Nhap xau ho ten thu nhat : `); Readln(b);
If length(a) > length(b) then
Writeln(` Ket qua : `,a)
Else
Writeln(b);
Readln;
End.
5. Vi?t chuong tr�nh t�nh giai th?a (n!) c� s? d?ng th? t?c ho?c hăm
Program T�nhGiaithua;
Var n : integer;
Function giaithua(m : integer) : Real;
Var i : integer;
gt : real;
Begin
gt := 1;
For i:=1 to m do
gt := gt * i;
giaithua := gt;
End;
Begin
Write(`Ban nhap so n = `); Readln(n);
Giaithua(n);
Readln;
End.
6. Vi?t chuong tr�nh nh?p văo h? vă tín c?a hai h?c sinh, ki?m tra k� t? d?u tiín c?a xđu th? nh?t vă k� t? cu?i c�ng c?a xđu th? 2 :
- N?u gi?ng nhau th� xu?t ra d�ng ch? :
Tr�ng nhau
- N?u kh�ng gi?ng nhau th� xu?t ra cđu :
Khâc nhau
Program bt;
Var x, y : Byte;
a, b : String;
Begin
Write ( `Nhap xau thu nhat : `); Readln (a);
Write ( `Nhap xau thu hai : `); Readln (b);
x := length (b);
If a[1] = b[x] Then
Write (` Trung nhau`)
Else Write (`Khac nhau`);
Readln;
End.
7. Vi?t c� phâp khai bâo ki?u b?n ghi vă bi?n b?n ghi
TYPE
= RECORD
:
:
....
:
END;
Sau khi co? kií?u ba?n ghi, bií?n kií?u ba?n ghi co? thí? duo?c khai ba?o nhu sau:
VAR
: ;
: ARRAY [1..Max] OF ;
8. Khai bâo ki?u b?n ghi lă SINHVIEN c� câc thu?c t�nh : Hoten, ngaysinh, lop . Khai bâo bi?n LOP g?m 50 ph?n t? thu?c ki?u b?n ghi ? trín
Type SINHVIEN = Record
Hoten: string[30];
Ngaysinh: string[10];
Lop:string;
End;
Var Lop : Array[1..50] of Hocsinh;
CH�C MAY M?N
LĂM BĂI D?T
K?T QU? T?T