Bai 17 Chuong trinh con va phan loai

Kiểm
Kiểm tra
tra bài
bài cũ
cũ
Câu 1:
Chọn đáp án Đúng nhất khi nói về khái niệm Chương trình con.

A. CTC là chương trình thực hiện một số thao tác khơng nhất định
B. CTC bao hàm chương trình chính
C. CTC là một dãy lệnh, mô tả một số thao tác nhất định và có thể được thực hiện
(được gọi) từ nhiều vị trí trong chương trình chính.
D. CTC bắt đầu bằng từ khóa Begin


Câu 2:

Cho những hàm và thủ tục sau, hãy phân loại chúng:

1.upcase(ch) 2.rewrite 3.read 4.delete(st,vt,n) 5.length(x) 6.reset
7.assign 8.insert(s1,s2,vt)
Hàm

9.pos(s1,s2)
Thủ tục

10.close(<biến tệp>)


§17. CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI (Tiết 2)

1.
1. Bài
Bài tốn
tốn
2.
2. Khái
Khái niệm
niệm
3.
3. Phân
Phân loại
loại chương
chương trình
trình con
con

3


Quan
Quan sát
sát 22 chương
chương trình
trình sau:
sau: ((lưu
lưu ýý phần
phần được
đượctơ
tơ màu
màuđỏ)

đỏ)
(*Tinh tong*)
Var a,b,S : byte;
Procedure TD(var x:byte; y:byte);
var i: byte;
Begin
i:=5;
writeln(x,’ ‘,y);
x:= x+i; y:= y+i;
S:= x+y;
writeln (x,’ ‘,y);
End;
Begin
write(‘nhap a va b:’);
readln(a,b);
TD(a,b);
writeln(a,’ ‘,b,’ ‘,S);
readln;
End.

(* Chuong trinh tinh UCLN*)
Var tu,mau,c,d:integer;
Function UCLN(a,b:integer):integer;
Begin
while a<> b do
If a>b then a:=a-b
else b:=b-a;
UCLN:=a;
End;
Begin

Write(‘Nhap vao tu so va mau so:’);
Readln(tu,mau);
c:=tu div UCLN(tu,mau);
d:=mau div UCLN(tu,mau);
Writeln(‘phan so toi gian=‘,c,’/’,d);
Readln
End.


§17. CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI (Tiết 2)

3.
3. Phân
Phân loại
loại chương
chương trình
trình con
con

Thảo
Thảo luận
luận nhóm
nhóm
Nhóm
Nhóm 1,3
1,3
- Phân loại chương trình con
- Cấu trúc chương trình con

Nhóm

Nhóm 2,4
2,4
- Phân loại chương trình con
- Các biến sử dụng trong chương trình
con.
5


§17. CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI (Tiết 2)

3.
3. Phân
Phân loại
loại chương
chương trình
trìnhcon
con
a) Phân loại:

CHƯƠNGTRÌNH
TRÌNHCON
CON
CHƯƠNG

HÀM
HÀM(Function)
(Function)
-- Là
Là chương
chương trình

trình con
con
thực
thựchiện
hiệndãy
dãylệnh.
lệnh.
-- Trả
Trả về
về giá
giá trị
trị cụ
cụ thể
thể
qua
quatên
têncủa
củanó.
nó.

THỦ
THỦTỤC
TỤC(Procedure)
(Procedure)
-- Là
Là chương
chương trình
trình con
con
thực

thựchiện
hiệndãy
dãylệnh.
lệnh.
-- Khơng
Khơng trả
trả về
về giá
giá trị
trị nào
nào
qua
quatên
têncủa
củanó.
nó.

Ví dụ :

Ví dụ :

Sqrt(16)=4

Writeln(‘Hello’);

Abs(-5)=5

Readln(a,b);
6

§17. CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI (Tiết 2)

Các bài tốn sau dùng hàm hay thủ tục:
Hốnđổi
đổihai
haisố
sốaavà
vàb:
b: Hoandoi(a,b)
Hoandoi(a,b)
1.1.Hốn
Procedure Hoandoi (a,b:real);
Tìmước
ướcchung
chunglớn
lớnnhất
nhấtcủa
củaaavà
vàb:
b:UCLN(a,b)
UCLN(a,b)
2.2.Tìm
Function UCLN (a,b: integer): integer;
3.Xóaxâu
xâuSStại
tạivịvịtrí
trív,v,xóa
xóannphần
phầntử:

tử:Delete(s,v,n)
Delete(s,v,n)
3.Xóa
Procedure Delete (s:string;v,n:byte);
Kiểmtra
traa,b,c
a,b,ccó
cólà
làba
bacạnh
cạnhcủa
củamột
mộttam
tamgiác:
giác:KT(a,b,c)
KT(a,b,c)
4.4.Kiểm
Function tamgiac (a,b,c: word): Boolean;
7


§17. CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI (Tiết 2)

3.
3. Phân
Phân loại
loại và
và cấu
cấu trúc
trúcchương

chương trình
trìnhcon
con
b) Cấu trúc:
<PHẦNĐẦU>
ĐẦU>
[KHAIBÁO>]
BÁO>]
[PHẦNTHÂN
THÂN>>
<
< Tên chương trình con>
BEGIN
< Các lệnh>;
END;

Lưu ý:
ý:
Lưu
Vị trí
trí của
của chương
chương trình
trình con
con được
được viết:

viết:
Vị
Sau phần
phần khai
khai báo
báo Var
Var và
và
•• Sau
Trước từ
từ khóa
khóa BEGIN
BEGIN của
của chương
chương trình
trình
•• Trước
chính.
chính.
Sử dụng
dụng CTC
CTC thì
thì ta
ta gọi
gọi ::
Sử
TênCTC (giá
(giá trị)
trị)
TênCTC

§17. CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI (Tiết 2)

c)
c) Biến
Biến
-- Biến
Biến cục
cục bộ:Là
bộ:Là các
các
biến
biến được
được khai
khai báo
báo trong
trong
CT
CT con.
con.
-- Biến
Biến tồn
tồn cục:Là
cục:Là các
các
biến
biến được
được khai
khai báo

báo trong
trong
CT
CT chính.
chính.

(* Tinh tong *)
Var
a,b,S: byte;
Procedure TD(var x:byte; y:byte);
var i: byte;
Begin
i:=5;
writeln(x,’ ‘,y);
x:= x+i; y:= y+i;
S:= x+y;
writeln (x,’ ‘,y);
End;
Begin
write(‘nhap a va b:’); readln(a,b);
TD(a,b);
writeln(a,’ ‘,b,’ ‘,S);
readln;
End.


Củng
Củng cố
cố
Câu 1: So sánh cấu trúc của chương trình chính và chương trình con.

Bbbbbb
Chương trình chính
Chương trình con
Cấu trúc:
[<Phần khai báo>]

<Phần đầu>

<Phần thân>

[<Phần khai báo>]
<Phần thân>

Phần thân:
Begin
<các lệnh>;
End.

Begin
<các lệnh>;
End;

Biến:
Biến toàn cục

Biến cục bộ


Củng
Củng cố

cố
Câu 2: So sánh cấu trúc của hàm và thủ tục trong chương trình con. Cho VD.
Bbbbbb
Hàm( Function)
Thủ tục(Procedure)
Giống

- Là chương trình
con thực hiện dãy
lệnh.

- Là chương trình
con thực hiện dãy
lệnh.

Khác
- Trả về giá trị qua tên
của nó
VD

Length(‘abc’)=3

- Khơng trả về giá trị
qua tên của nó

Readln(a,b,c);


Câu 3:

Các bài toán sau dùng hàm hay thủ tục:

Hàm:

Thủ tục:

1.
2.
3.
4.
5.
6.
7.
8.

Tính Max của hai số thực x,y.
Kiểm tra N có phải là số ngun tố khơng?
Tính S= 1+sin(x)+cos(x)
Tìm UCLN(a,b).
Tìm BCNN(a,b).
Xác định vị trí xuất hiện đầu tiên của xâu s1 trong s2.
Xác định độ dài của xâu S.
Tính giá trị của xn

9.Kiểm tra a,b,c có phải là ba cạnh của tam giác khơng?
10. Viết chương trình để đổi từ chữ hoa sang chữ thường.
11.Viết chương trình hóa đổi 2 số a,b.
12.Xóa xâu S tại vị trí v, xóa n phần tử.
13.Chèn xâu s1 vào s2 từ vị trí vt.
14.Tạo xâu gồm n kí tự liên tiếp bắt đầu từ vị trí vt của

xâu S.


Câu 4: Điền vào chỗ trống phần còn thiếu của chương trình sau. Sau đó giải thích ý nghĩa của
những từ cịn thiếu đó.
a, b ….:integer;
Var ……
x,y
Procedure
…………...Hoandoi(var
………..:integer);
Var TG:integer;
Begin
TG
……..:=x;
x:=y;
y:=…..; TG
End;
Begin
Begin
Write(‘Nhap vao hai so a,b:’);
Write(‘Nhap vao hai so a,b:’);
Readln(a,b);
Readln(a,b);
Hoandoi(a,b);
Hoandoi(a,b);
Writeln(‘Sau
khi hoan doi:’,a,b);
Readln
Writeln(‘Sau khi hoan doi:’,a,b);

End.
Readln
End.

- Procedure : Thủ tục
- x,y,TG : biến cục bộ
- a,b : biến tồn cục

- Tham số hình thức
- Tham số thực sự
- Thực hiện chương trình con


§17. CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI (Tiết 2)

Nội
Nội dung
dung bài
bài học
học

- Cấu trúc Chương trình con
- Phân biệt được 2 loại chương trình con là hàm và thủ tục
- Phân biệt được biến cục bộ và biến toàn cục