Bài giảng Tin học 11 - Bài 18: Ví dụ về cách viết và sử dụng chương trình con

 Bài 18 
 VÍ DỤ VỀ CÁCH VIẾT VÀ
SỬ DỤNG CHƯƠNG TRèNH CON Cấu trúc của thủ tục:
 Procedure [()];
 []
 Begin
 []
 End; Program VD; Biến toàn cục
Uses crt; Biến cục bộ
var a,b: byte;
Procedure Ve_HCN( chdai,chrong:integer);
Var i,j: integer;
 Begin 
 For i:=1 to chdai do write(‘ * ’); Tham số 
 Writeln; hình thức
 For j:=1 to chrong-2 do 
 begin
 write(‘ * ’);
 for i:=1 to chdai-2 do write(‘ ‘);
 writeln(‘ * ’);
 end;
 For i:=1 to chdai Do write(‘ * ’); 
 writeln;
 end; Tham số thực sự 
BEGIN (tham trị) 
 CLRSCR; 
 Ve_HCN(25,10);
 Writeln; a:=5 ; b:=10; 
 Ve_HCN(a,b);
readln;
END. Program VD;
Uses crt; Biến toàn cục
 Biến cục bộ
 var a,b: integer; Tham số hình 
 thức biến
Procedure Hoan_doi(Var x,y:integer);
 Var TG: integer;
 Begin 
 TG:= x;
 x:= y;
 y:=TG;
 end;
BEGIN 
 CLRSCR; 
 a:= 5 ; b:= 10;
 Writeln( a:6 , b:6); Tham số thực sự 
 Hoan_doi(a,b);
 Writeln( a:6 , b:6); 
readln;
END. VD: Lập chơng trình tính tổng luỹ thừa S = am +bn +cp +dq
 * INPUT : Các cơ số a,b,c,d và các số mũ lần lợt n,m,p,q
 * OUTPUT : S 
 Viết chơng trình con dạng tổng quát Luythua = xk 
 Trong đó: Luythua, x kiểu thực, k kiểu nguyên.
 Khi tính luỹ thừa của các số hạng trong tổng trên ta chỉ cần gọi tên chơng 
 trình con Luythua và thay thế (x,k) bằng các giá trị tơng ứng. Ví dụ nh: 
 Luythua(a,m). luythua(b,n), luythua(c,p),luythua(d,q). Nhận xét
 • Biến khai báo ở CT chính 
 có tác dụng ở mọi chơng 
 trình gọi là biến toàn cục.
 • Biến đợc khai báo ở trong 
 CTC chỉ có tác dụng trong 
 CTC gọi là biến cục bộ.
 • Biến đợc khai báo cho dữ 
 liệu vào/ra ở CTC gọi là 
 tham số hình thức. 
 • Biến chứa trong lời gọi 
 CTC ở chơng trình chính là 
 tham số thực sự. Nhap vao tu so va mau so: 6 10
Program tgps;
 Phan so toi gian = 3/5 
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;
 USCLN=2; UCLNUSCLN=2; := a;
 end;
BEGINBEGIN
Write(Write(‘ ‘NhapNhap vaovao tutu soso vavà maumau so:so:’’);); readln(tu,mau);Readln(tu,mau);
C :=:= tu6 divdiv UCLN(tu,mau)UCLN(6,10) ; dd := := mau 10 div div UCLN(tu,mau);UCLN(6,10);
Writeln(‘ Phan so toi gian = ’, 3,c, ‘‘ // ’’,, d);5);
Readln;
END.