Bài 18. Ví dụ về cách viết và sử dụng chương trình con

GV : Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc
B�i 18
TrU?NG THPT D?NG H?
T?: TO�N - TIN
NGU?I So?N: DINH QUANG HUY
TIẾT THỨ: 43
Em hãy cho biết cấu trúc của thủ tục?
Thủ tục (Procedure)
có cấu trúc như sau:
Procedure [()];
[< Phần khai báo >]
Begin
[]
End;
2. Cách viết và sử dụng hàm
Chương trình con
Hàm (Function)
L� chuong trỡnh con th?c hi?n m?t s? thao tỏc nh?t d?nh, v� tr? v? m?t giỏ tr? qua tờn c?a nú.
Thủ tục (Procedure)
L� chuong trỡnh con th?c hi?n m?t s? thao tỏc nh?t d?nh, v� khụng tr? v? giỏ tr? n�o qua tờn c?a nú.
a.Cấu trúc Hàm
Function [()] :;
[< Phần khai báo >]
Begin
[]
:=;
End;
Procedure [()];
[< Phần khai báo >]
Begin
[]
End;
Hàm (Function)
Thủ tục (Procedure)
b. Ví dụ
Ví dụ 1: Lập chương trình tối giản phân số
Ví dụ: nh?p 6/10 => ra 3/5
* INPUT : Nhập phân số x/y;
OUTPUT : Phân số tối giản c/d (tuso/mauso)
- Trong dó: tuso = tuso/UCLN(x,y);
mauso = mauso/UCLN(x,y);
? Vi?t chuong trỡnh con th?c hi?n tỡm UCLN(x,y) v� g?i nú khi tớnh tuso, mauso trong chuong trỡnh chớnh.
Program toigian_phanso;
Var tuso, mauso, a: integer;
Function UCLN(x,y:integer):Integer;
Var sodu:Integer;
Begin
while y<>0 do
begin
sodu:=x mod y;
x:=y;
y:=sodu;
end;
UCLN:=x;
end;
BEGIN
Write(‘Nhap tu so, mau so:’); readln(tuso,mauso);
a:= UCLN(tuso,mauso);
If a>1 then
begin
tuso:=tuso div a;
mauso:=mauso div a;
end;
Writeln(tuso:4,mauso:4); readln;
END.
Function [()] :;
[< Phần khai báo >]
Begin
[]
:=;
End;
Các biến:
- tuso, mauso, a là biến toàn cục
- sodu là biến cục bộ
Program toigian_phanso;
Var tuso, mauso, a: integer;
Function UCLN(x,y:integer):Integer;
Var sodu:Integer;
Begin
while y<>0 do
begin
sodu:=x mod y;
x:=y;
y:=sodu;
end;
UCLN:=x;
end;
BEGIN
Write(‘Nhap tu so, mau so:’); readln(tuso,mauso);
a:= UCLN(tuso,mauso);
If a>1 then
begin
tuso:=tuso div a;
mauso:=mauso div a;
end;
Writeln(tuso:4,mauso:4); readln;
END.
Việc sử dụng hàm:
- Hoàn toàn tương tự như việc sử dụng hàm chuẩn
- Khi viết lệnh gọi gồm tên hàm và tham số thực sự tương ứng với tham số hình thức

Ví dụ 2: Tìm số nhỏ nhất trong 3 số a,b,c
Ví dụ: nh?p 3 2 6 => min 2
* INPUT : Nhập 3 số a,b,c;
OUTPUT : Số nhỏ nhất trong 3 số

? Vi?t chuong trỡnh th?c hi?n tỡm s? nh? nh?t trong 3 s? nh?p t? b�n phớm. S? d?ng h�m tỡm s? nh? nh?t trong 2 s?
Program min3so;
Var a,b,c:real;
Function min(a,b:real):real;
begin
if a min:=a
else
min:=b;
end;
BEGIN
write(‘Nhap vao 3 so a,b,c’);
readln(a,b,c);
Writeln(‘So nho nhat trong 3 so la’,min(min(a,b),c));
Readln;
END.
Function [()] :;
[< Phần khai báo >]
Begin
[]
:=;
End;
- Lệnh gọi hàm có thể tham gia vào biểu thức như một toán hạng và thậm chí là tham số của lời gọi hàm, thủ tục khác
GV : Đinh Nguyên Thanh Tú (st) – CENTEA Data chưa rõ nguồn gốc
Hãy nhớ!
Cấu trúc của thủ tục và hàm
Cách viết và sử dụng thủ tục, hàm trong chương trình con
Phân biệt
Tham trị, tham biến
Biến toàn cục, biến cục bộ
Tham số thực sự, tham số hình thức