Ô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: Tr�nh 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 d�ng 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: Tr�nh 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 d�ng 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 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
Sau khi ch?y chuong tr�nh 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 tr�nh 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 h�nh
G?i th? t?c Hoân d?i
Xu?t k?t qu? sau khi hoân d?i
D?ng chuong tr�nh 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 kh�ng vi?t hoa
Var TG: integer;
Hoan_Doi(a,b);
Chuong tr�nh sai ? dđu?
Cđu h?i 4

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
Sau khi ch?y chuong tr�nh 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 tr�nh d�ng. Gi?i th�ch v� sao?
Chuong tr�nh năy
c� g� c?n luu �?
Bi?n x kh�ng d?t trong khai bâo bi?n Var
K?t qu?
khi ch?y
chuong tr�nh
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 tr�nh t�nh giai th?a (n!) c� s? d?ng hăm - Function
Program T�nhGiaithua;
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 tr�nh t�nh giai th?a vă tr? v? giâ tr?
Khai bâo bi?n ch?y vă bi?n t�nh giai th?a
Khai bâo bi?n c?c b?
G?i hăm t�nh Giai th?a
D?ng chuong tr�nh xem k?t qu?
m : integer
Nh?p ho?c xâc d?nh giâ tr? c?n t�nh giai th?a
Program T�nhGiaithua;
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 tr�nh 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 T�nhGiaithua;
End;
Begin
Write(`Ban nhap so n = `); Readln(n); ho?c n:=10;
Readln;
End.
Readln;
End.
Cđu 6

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 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 tr�nh xem k?t qu?
Cđu 7 :
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? 1 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 : 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 tr�nh 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 tr�nh 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 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
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 tr�nh 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)