Ôn thi HK2 (Phần 2)
- 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:24' 19-11-2009
Dung lượng: 1.2 MB
Số lượt tải: 272
Nguồn:
Người gửi: Nguyễn Hữu Định (trang riêng)
Ngày gửi: 08h:24' 19-11-2009
Dung lượng: 1.2 MB
Số lượt tải: 272
Số lượt thích:
1 người
(Nguyễn Ngọc Trà My)
ÔN TẬP
TIN HỌC 11 – THI HỌC KỲ 2
(Tiếp theo)
CÂU HỎI TỰ LUẬN
NHẬN XÉT CHƯƠNG TRÌNH
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
Good luck!
TIN HỌC 11 – THI HỌC KỲ 2
(Tiếp theo)
CÂU HỎI TỰ LUẬN
NHẬN XÉT CHƯƠNG TRÌNH
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
Good luck!
Các ý kiến mới nhất