Bài giảng Tin học Lớp 11 - Bài 19: Chương trình con và phân loại

 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 phân số a/b; 
* OUTPUT : Phân số c/d - Trong đó: c = a/ ƯCLN(a,b) ; 
	 d = b/ ƯCLN(a,b) ; 
 Viết chương trình con thực hiện tìm ƯCLN(a,b) và gọi nó khi tính c,d trong chương 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 
Nhận xét 
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. 
Hãy nhớ! 
 Chương 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 chương trình gồm: 
Phân loại chương trình con: 
 + Hàm 
 + Thủ tục