Ôn thi HK2 (Phần 2)
Chia sẻ bởi Nguyễn Hữu Định |
Ngày 10/05/2019 |
54
Chia sẻ tài liệu: Ôn thi HK2 (Phần 2) thuộc Tin học 11
Nội dung tài liệu:
Ô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!
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Hữu Định
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)