B�i 19
Giáo án điện tử tin học lớp 11
D? vi?t chuong trỡnh gi?i cỏc b�i toỏn l?n, ph?c t?p ngu?i l?p trỡnh cú th? chia th�nh nhi?u b�i toỏn nh?, m?i b�i toỏn l� m?t dóy l?nh mụ t? m?t s? thao tỏc nh?t d?nh (g?i l� ctc). Sau dú ghộp n?i cỏc chuong trỡnh con th�nh chuong trỡnh chớnh.
Nhúm tru?ng
Vi?c A
Vi?c B
1. Chuong trỡnh con (ctc)
2. Phõn lo?i chuong trỡnh con
Chuong trỡnh con
H�m (Function)
L� chuong trỡnh con th?c hi?n m?t s? thao tỏc n�o dú, 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 n�o dú, v� khụng tr? v? giỏ tr? n�o qua tờn c?a nú.
Tớnh t?ng lu? th?a
S = an + bm + cp + dq
V? v� dua ra m�n hỡnh 5 hỡnh ch? nh?t cú kớch thu?c khỏc nhau.
3. C?U TR�C C?A CHUONG TRèNH CON

< Ph?n thõn>
Function [()] :ki?u c?a h�m;
[< Ph?n khai bỏo >]
Begin
[]
tờnh�m := giỏtr?;
End;
Procedure [()];
[< Phan khai bao >]
Begin
[]
End;
H�m (Function)
Th? t?c (Procedure)
4. M?t s? vớ d?
B�i toỏn 1: L?p chuong trỡnh t?i gi?n phõn s?
Vớ d?: nh?p 6/10 => ra 3/5
* INPUT : Nh?p phõn s? a/b;
* OUTPUT : Phõn s? c/d - Trong dú: c = a/UCLN (a,b);
d = b/UCLN(a,b);
? Vi?t chuong trỡnh con th?c hi?n tỡm UCLN(a,b) v� g?i nú khi tớnh c,d trong chuong trỡnh chớnh.
Program tgps;
Uses crt;
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 và 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.
Write(`Nhap vao tu so va mau so:`);
C := 6 div
d := 10 div
UCLN(6,10)
UCLN(6,10);
Writeln(` Phan so toi gian = `, 3, ` / `, 5);
Readln;
END.
BEGIN
Readln(tu,mau);
USCLN=2;
USCLN=2;



Nhap vao tu so va mau so:
6 10
Phan so toi gian= 3/5
Cỏc CTC thu?ng du?c d?t sau ph?n khai bỏo c?a chuong trỡnh chớnh.
CTC ch? du?c th?c hi?n khi cú l?i g?i nú.
L?i ớch c?a vi?c s? d?ng chuong trỡnh con:
H? tr? vi?c th?c hi?n cỏc chuong trỡnh l?n.
Trỏnh du?c vi?c ph?i vi?t l?p di l?p l?i cựng m?t dóy l?nh n�o dú.
Thu?n ti?n cho vi?c phỏt tri?n v� nõng c?p chuong trỡnh.
Hóy nh?!
? Chuong trỡnh con l� m?t dóy l?nh gi?i quy?t m?t b�i toỏn con c? th?.
? C?u trỳc chuong trỡnh g?m:
Phõn lo?i chuong trỡnh con:
+ H�m
+ Th? t?c

< Ph?n thõn>