Ôn tập HK2 (phần I)
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Nguyễn Hữu Định (trang riêng)
Ngày gửi: 08h:23' 19-11-2009
Dung lượng: 2.0 MB
Số lượt tải: 332
Nguồn:
Người gửi: Nguyễn Hữu Định (trang riêng)
Ngày gửi: 08h:23' 19-11-2009
Dung lượng: 2.0 MB
Số lượt tải: 332
Số lượt thích:
1 người
(Nguyễn Ngọc Trà My)
ÔN TẬP
TIN HỌC 11 – HỌC KỲ 2
CÂU HỎI TRẮC NGHIỆM
PHẦN 1:
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 dng?
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. Xa 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. Xa 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 cng d?ng g?
C. Xa 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 cng 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 cng 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 trnh 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 dng
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 dng
CđU
19
Ch?n câch g?n tín t?p dng
CđU
20
Cđu l?nh Rewrite();
c cng 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 cng 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 cng d?ng d? lăm g?
CđU
23
Ch?n câch d?c t?p dng
CđU
24
Ch?n câch d?c ghi t?p dng
CđU
25
Ch?n d?c di?m dng c?a ki?u d? li?u ki?u t?p
CđU
26
C?u trc chuong trnh con g?m nh?ng ph?n năo?
CđU
27
Chuong trnh con n?m ? v? tr năo trong 1 chuong trnh c chuong trnh con?
CđU
28
Ch?n d?nh nghia dng 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 trnh c chuong trnh con, bi?n du?c s? d?ng cho chuong trnh chnh g?i lă bi?n g?
CÂU HỎI TỰ LUẬN
PHẦN 2:
1. Trnh 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 dng 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 trnh 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 trnh 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 trnh nh?p văo h? vă tín c?a hai h?c sinh, sau d in ra măn hnh 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 trnh tnh giai th?a (n!) c s? d?ng th? t?c ho?c hăm
Program TnhGiaithua;
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 trnh 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 cng c?a xđu th? 2 :
- N?u gi?ng nhau th xu?t ra dng ch? :
Trng nhau
- N?u khng 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 tnh : 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;
CHC MAY M?N
LĂM BĂI D?T
K?T QU? T?T
TIN HỌC 11 – HỌC KỲ 2
CÂU HỎI TRẮC NGHIỆM
PHẦN 1:
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 dng?
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. Xa 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. Xa 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 cng d?ng g?
C. Xa 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 cng 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 cng 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 trnh 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 dng
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 dng
CđU
19
Ch?n câch g?n tín t?p dng
CđU
20
Cđu l?nh Rewrite(
c cng 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(
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đU
23
Ch?n câch d?c t?p dng
CđU
24
Ch?n câch d?c ghi t?p dng
CđU
25
Ch?n d?c di?m dng c?a ki?u d? li?u ki?u t?p
CđU
26
C?u trc chuong trnh con g?m nh?ng ph?n năo?
CđU
27
Chuong trnh con n?m ? v? tr năo trong 1 chuong trnh c chuong trnh con?
CđU
28
Ch?n d?nh nghia dng 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 trnh c chuong trnh con, bi?n du?c s? d?ng cho chuong trnh chnh g?i lă bi?n g?
CÂU HỎI TỰ LUẬN
PHẦN 2:
1. Trnh 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 dng 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 trnh 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 trnh 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 trnh nh?p văo h? vă tín c?a hai h?c sinh, sau d in ra măn hnh 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 trnh tnh giai th?a (n!) c s? d?ng th? t?c ho?c hăm
Program TnhGiaithua;
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 trnh 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 cng c?a xđu th? 2 :
- N?u gi?ng nhau th xu?t ra dng ch? :
Trng nhau
- N?u khng 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
....
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
8. Khai bâo ki?u b?n ghi lă SINHVIEN c câc thu?c tnh : 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;
CHC MAY M?N
LĂM BĂI D?T
K?T QU? T?T
Các ý kiến mới nhất