BÀI 17
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 trưở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à đưa ra màn hình 5 hình chữ nhật có kích thước khác nhau.
3. Cấu trúc của chương trình con


< Phần thaân>
4. M?t s? ví d?
Bài toán 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 phaõn s? a/b;
* OUTPUT : Phaõn s? c/d - Trong ủoự : 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.
Phan so toi gian= 3/5
Các CTC thường được đặt sau phần khai báo của chương trình chính.
CTC chỉ được thực hiện khi có lời gọi nó.
Lợi ích của việc sử dụng chương trình con:
Hỗ trợ việc thực hiện các chương trình lớn.
Tránh được việc phải viết lặp đi lặp lại cùng một dãy lệnh nào đó.
Thuận tiện cho việc phát triển và nâng cấp chương trì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 chương trình con:
+ Hàm
+ Thủ tục
Hãy nhớ!


< Ph?n thân>