Ôn thi ký II
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Phạm Bằng Việt
Ngày gửi: 19h:56' 12-04-2008
Dung lượng: 1.2 MB
Số lượt tải: 172
Nguồn:
Người gửi: Phạm Bằng Việt
Ngày gửi: 19h:56' 12-04-2008
Dung lượng: 1.2 MB
Số lượt tải: 172
Số lượt thích:
0 người
ÔN TẬP
TIN HỌC 11 – THI HỌC KỲ 2
(Tiếp theo)
Cđu h?i 1: Trnh băy câc thao tâc d?c t?p?
a. G?n tín t?p
ASSIGN(,);
b. M? t?p d? ghi k?t qu?:
REWRITE ();
c. 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>)
Sai ? di?m năo?
Tr? L?i:
b. M? t?p d? d?c d? li?u:
RESET ();
Cđu h?i 2: Trnh băy câc thao tâc ghi t?p?
a. M? t?p d? ghi k?t qu?:
REWRITE ();
b. G?n tín t?p
ASSIGN(,);
c. Th? t?c ghi d? li?u ra t?p
WRITE(, );
WRITELN (, );
d. Th? t?c dng t?p
CLOSE(< tín bi?n t?p>)
Sai ? di?m năo?
Tr? L?i:
b. M? t?p d? ghi k?t qu?:
REWRITE ();
a. G?n tín t?p
ASSIGN(,);
Cđu h?i 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
Sau khi ch?y chuong trnh c? 2 bi?n d?u thay d?i
Program CT;
Var a,b :integer;
Procedure Hoan_Doi( );
Var TG: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
Begin
a:=20 ; b:= 4;
Writeln( a : 6, b : 6);
Hoan_Doi(a,b);
Writeln(a: 6, b:6);
Readln;
End.
Khai bâo bi?n toăn b?
Vi?t chuong trnh hoân d?i v? tr 2 bi?n x vă y
Khai bâo bi?n t?m
Khai bâo bi?n c?c b?
Xâc d?nh giâ tr? cho 2 bi?n toăn b?
Hi?n giâ tr? 2 bi?n toăn b? lín măn hnh
G?i th? t?c Hoân d?i
Xu?t k?t qu? sau khi hoân d?i
D?ng chuong trnh xem k?t qu?
var x,y :integer
Program CT;
Var a,b :integer;
Begin
Procedure Hoan_Doi(var x,y :integer);
Var GT: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
a:=5; b:=10;
Writeln( a : 6 , b : 6);
HoanDoi(A,B);
Writeln(a : 6 , b : 6);
Readln;
End.
Tín bi?n sai : lă TG
Tín th? t?c sai, bi?n a, b khng vi?t hoa
Var TG: integer;
Hoan_Doi(a,b);
Chuong trnh sai ? dđu?
Cđu h?i 4
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
Sau khi ch?y chuong trnh ch? c 1 bi?n bi?n thay d?i
Program CT;
Var a,b :integer;
Begin
Procedure
Hoan_Doi(var x,y :integer);
Var TG: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
a:=5; b:=10;
Writeln( a : 6 , b : 6);
Hoan_Doi(a,b);
Writeln(a : 6 , b : 6);
Readln;
End.
Program CT;
Var a,b :integer;
Begin
Procedure
Hoan_Doi(x, var y :integer);
Var TG: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
a:=5; b:=10;
Writeln( a : 6 , b : 6);
Hoan_Doi(a,b);
Writeln(a : 6 , b : 6);
Readln;
End.
Ch?n chuong trnh dng. Gi?i thch v sao?
Chuong trnh năy
c g c?n luu ?
Bi?n x khng d?t trong khai bâo bi?n Var
K?t qu?
khi ch?y
chuong trnh
a ko d?i
Nh?p :
a = 5 vă b = 10
Xu?t :
a = 5 vă b = 5
Cđu h?i 5
Vi?t chuong trnh tnh giai th?a (n!) c s? d?ng hăm - Function
Program TnhGiaithua;
Var n : integer;
Function Giai_thua ( ) : 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); ho?c n:=10;
Giai_thua(n);
Readln;
End.
Khai bâo bi?n toăn b?
Vi?t chuong trnh tnh giai th?a vă tr? v? giâ tr?
Khai bâo bi?n ch?y vă bi?n tnh giai th?a
Khai bâo bi?n c?c b?
G?i hăm tnh Giai th?a
D?ng chuong trnh xem k?t qu?
m : integer
Nh?p ho?c xâc d?nh giâ tr? c?n tnh giai th?a
Program TnhGiaithua;
Function Giai_thua (m : integer )
Var i : integer;
gt : real;
Begin
gt := 1;
For i:=1 to m do
gt := gt * i;
End;
Begin
Write(`Ban nhap so n = `); Readln(n); ho?c n:=10;
Readln;
End.
Var n : integer;
: Real;
giaithua := gt;
Giai_thua(n);
Chuong trnh sai ? dđu?
Thi?u khai bâo bi?n toăn b?
Thi?u ki?u d? li?u tr? v?
Thi?u tr? v? giâ tr?
Thi?u g?i hăm Giai th?a
Program TnhGiaithua;
End;
Begin
Write(`Ban nhap so n = `); Readln(n); ho?c n:=10;
Readln;
End.
Readln;
End.
Cđu 6
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 nh?p sau.
Program bt;
Var a,b : String;
Begin
Writeln (` Nhap xau ho ten thu nhat : `);
Readln(a);
Writeln (` Nhap xau ho ten thu hai : `);
Readln(b);
If length(a) > length(b) then
Writeln(` Ket qua : `,a)
Else
Writeln(b);
Readln;
End.
Khai bâo bi?n
Nh?p văo h? tín h?c sinh th? nh?t
Nh?p văo h? tín h?c sinh th? hai
So sânh d? dăi 2 xđu
Xu?t k?t qu?
D?ng chuong trnh xem k?t qu?
Cđu 7 :
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? 1 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 : Byte;
a, b : String;
Begin
Writeln ( `Nhap xau thu nhat : `);
Readln (a);
Writeln ( `Nhap xau thu hai : `);
Readln (b);
x := length (b);
If a[1] = b[x] then
Writeln (` Trung nhau`)
else Writeln (`Khac nhau`);
Readln;
End.
Khai bâo bi?n
Nh?p văo h? tín h?c sinh th? nh?t
Nh?p văo h? tín h?c sinh th? hai
So sânh k t? d?u xđu 1 vă k t? cu?i xđu 2
Xu?t k?t qu?
D?ng chuong trnh xem k?t qu?
Xâc d?nh d? dăi xđu 2 d? bi?t v? tr cu?i c?a xđu 2
Cđu 8 :
Vi?t chuong trnh nh?p văo h? vă tín c?a hai h?c sinh
Ki?m tra 2 k t? cu?i c?a 2 xđu :
- 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
Writeln ( `Nhap xau thu nhat : `);
Readln (a);
Writeln ( `Nhap xau thu hai : `);
Readln (b);
x := length (a);
y := length (b);
If a[x] = b[y] then
Writeln (` Trung nhau`)
else Writeln (`Khac nhau`);
Readln;
End.
Khai bâo bi?n
Nh?p văo h? tín h?c sinh th? nh?t
Nh?p văo h? tín h?c sinh th? hai
So sânh 2 k t? cu?i c?a 2 xđu
Xu?t k?t qu?
D?ng chuong trnh xem k?t qu?
Xâc d?nh d? dăi xđu 2 d? bi?t v? tr cu?i c?a 2 xđu
TIN HỌC 11 – THI HỌC KỲ 2
(Tiếp theo)
Cđu h?i 1: Trnh băy câc thao tâc d?c t?p?
a. G?n tín t?p
ASSIGN(
b. M? t?p d? ghi k?t qu?:
REWRITE (
c. 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>)
Sai ? di?m năo?
Tr? L?i:
b. M? t?p d? d?c d? li?u:
RESET (
Cđu h?i 2: Trnh băy câc thao tâc ghi t?p?
a. M? t?p d? ghi k?t qu?:
REWRITE (
b. G?n tín t?p
ASSIGN(
c. Th? t?c ghi d? li?u ra t?p
WRITE(
WRITELN (
d. Th? t?c dng t?p
CLOSE(< tín bi?n t?p>)
Sai ? di?m năo?
Tr? L?i:
b. M? t?p d? ghi k?t qu?:
REWRITE (
a. G?n tín t?p
ASSIGN(
Cđu h?i 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
Sau khi ch?y chuong trnh c? 2 bi?n d?u thay d?i
Program CT;
Var a,b :integer;
Procedure Hoan_Doi( );
Var TG: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
Begin
a:=20 ; b:= 4;
Writeln( a : 6, b : 6);
Hoan_Doi(a,b);
Writeln(a: 6, b:6);
Readln;
End.
Khai bâo bi?n toăn b?
Vi?t chuong trnh hoân d?i v? tr 2 bi?n x vă y
Khai bâo bi?n t?m
Khai bâo bi?n c?c b?
Xâc d?nh giâ tr? cho 2 bi?n toăn b?
Hi?n giâ tr? 2 bi?n toăn b? lín măn hnh
G?i th? t?c Hoân d?i
Xu?t k?t qu? sau khi hoân d?i
D?ng chuong trnh xem k?t qu?
var x,y :integer
Program CT;
Var a,b :integer;
Begin
Procedure Hoan_Doi(var x,y :integer);
Var GT: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
a:=5; b:=10;
Writeln( a : 6 , b : 6);
HoanDoi(A,B);
Writeln(a : 6 , b : 6);
Readln;
End.
Tín bi?n sai : lă TG
Tín th? t?c sai, bi?n a, b khng vi?t hoa
Var TG: integer;
Hoan_Doi(a,b);
Chuong trnh sai ? dđu?
Cđu h?i 4
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
Sau khi ch?y chuong trnh ch? c 1 bi?n bi?n thay d?i
Program CT;
Var a,b :integer;
Begin
Procedure
Hoan_Doi(var x,y :integer);
Var TG: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
a:=5; b:=10;
Writeln( a : 6 , b : 6);
Hoan_Doi(a,b);
Writeln(a : 6 , b : 6);
Readln;
End.
Program CT;
Var a,b :integer;
Begin
Procedure
Hoan_Doi(x, var y :integer);
Var TG: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
a:=5; b:=10;
Writeln( a : 6 , b : 6);
Hoan_Doi(a,b);
Writeln(a : 6 , b : 6);
Readln;
End.
Ch?n chuong trnh dng. Gi?i thch v sao?
Chuong trnh năy
c g c?n luu ?
Bi?n x khng d?t trong khai bâo bi?n Var
K?t qu?
khi ch?y
chuong trnh
a ko d?i
Nh?p :
a = 5 vă b = 10
Xu?t :
a = 5 vă b = 5
Cđu h?i 5
Vi?t chuong trnh tnh giai th?a (n!) c s? d?ng hăm - Function
Program TnhGiaithua;
Var n : integer;
Function Giai_thua ( ) : 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); ho?c n:=10;
Giai_thua(n);
Readln;
End.
Khai bâo bi?n toăn b?
Vi?t chuong trnh tnh giai th?a vă tr? v? giâ tr?
Khai bâo bi?n ch?y vă bi?n tnh giai th?a
Khai bâo bi?n c?c b?
G?i hăm tnh Giai th?a
D?ng chuong trnh xem k?t qu?
m : integer
Nh?p ho?c xâc d?nh giâ tr? c?n tnh giai th?a
Program TnhGiaithua;
Function Giai_thua (m : integer )
Var i : integer;
gt : real;
Begin
gt := 1;
For i:=1 to m do
gt := gt * i;
End;
Begin
Write(`Ban nhap so n = `); Readln(n); ho?c n:=10;
Readln;
End.
Var n : integer;
: Real;
giaithua := gt;
Giai_thua(n);
Chuong trnh sai ? dđu?
Thi?u khai bâo bi?n toăn b?
Thi?u ki?u d? li?u tr? v?
Thi?u tr? v? giâ tr?
Thi?u g?i hăm Giai th?a
Program TnhGiaithua;
End;
Begin
Write(`Ban nhap so n = `); Readln(n); ho?c n:=10;
Readln;
End.
Readln;
End.
Cđu 6
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 nh?p sau.
Program bt;
Var a,b : String;
Begin
Writeln (` Nhap xau ho ten thu nhat : `);
Readln(a);
Writeln (` Nhap xau ho ten thu hai : `);
Readln(b);
If length(a) > length(b) then
Writeln(` Ket qua : `,a)
Else
Writeln(b);
Readln;
End.
Khai bâo bi?n
Nh?p văo h? tín h?c sinh th? nh?t
Nh?p văo h? tín h?c sinh th? hai
So sânh d? dăi 2 xđu
Xu?t k?t qu?
D?ng chuong trnh xem k?t qu?
Cđu 7 :
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? 1 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 : Byte;
a, b : String;
Begin
Writeln ( `Nhap xau thu nhat : `);
Readln (a);
Writeln ( `Nhap xau thu hai : `);
Readln (b);
x := length (b);
If a[1] = b[x] then
Writeln (` Trung nhau`)
else Writeln (`Khac nhau`);
Readln;
End.
Khai bâo bi?n
Nh?p văo h? tín h?c sinh th? nh?t
Nh?p văo h? tín h?c sinh th? hai
So sânh k t? d?u xđu 1 vă k t? cu?i xđu 2
Xu?t k?t qu?
D?ng chuong trnh xem k?t qu?
Xâc d?nh d? dăi xđu 2 d? bi?t v? tr cu?i c?a xđu 2
Cđu 8 :
Vi?t chuong trnh nh?p văo h? vă tín c?a hai h?c sinh
Ki?m tra 2 k t? cu?i c?a 2 xđu :
- 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
Writeln ( `Nhap xau thu nhat : `);
Readln (a);
Writeln ( `Nhap xau thu hai : `);
Readln (b);
x := length (a);
y := length (b);
If a[x] = b[y] then
Writeln (` Trung nhau`)
else Writeln (`Khac nhau`);
Readln;
End.
Khai bâo bi?n
Nh?p văo h? tín h?c sinh th? nh?t
Nh?p văo h? tín h?c sinh th? hai
So sânh 2 k t? cu?i c?a 2 xđu
Xu?t k?t qu?
D?ng chuong trnh xem k?t qu?
Xâc d?nh d? dăi xđu 2 d? bi?t v? tr cu?i c?a 2 xđu
Các ý kiến mới nhất