Ахборот ва педагогик технологиялар факультети

Модулга мисол 
Мисол сифатида бутун сонлар учун 
min
ва 
max
арифметик 
функцияларини ва даражага кўтариш функциясини сақловчи модулни 
оламиз. Бу функциялар 
System
стандарт модулида мавжуд эмас.
unit modul1; 
interface 
function min(a,b: integer): integer; 
function max(a,b: integer): integer; 
function deg(a,b: integer): integer; 
implementation 
function min; 
begin if a>b then min:= b 
else min:= a; 
end; 
function max; 
begin if aelse max:= a; 
end; 
function deg; 
begin deg:= exp(b*ln(a)); 
end. 
Энди бу модулни асосий дастурга улаб бу учала функциядан ҳам 
фойдаланиш мумкин. 
Энди асосий дастурни қуйидагича ёзиш мумкин: 

---

55
program modulPR; 
uses modul1; 
var 
k, i,j:integer; 
begin 
readln(i,j); 
writeln(max(i,j)); 
writeln(min(i,j)); 
writeln(deg(i,j)); 
k:= max(i,j)+ min(i,j)+ deg(i,j); 
writeln(k); 
end. 
Худди шунингдек, динамик таркибли берилмаларни (рўйхатлар, 
дарахтлар стеклар ва бошқаларни) бир марта қисм дастур шаклида ёзиб олиб 
уни таҳрирлаш, отладка қилиш ва компиляция қилиб олиб бирон бир махсус 
модулда сақлаш лозим ва улардан ҳохлаган вақтда фойдаланиш мумкин. 
Бундай ёндошув дастурлаш технологияси ёндошувларига киради ва улардан 
кўплаб марта фойдаланишади.
2-мисол. Факториални ҳисоблайдиган модул ёзинг ва ундан 
фойдаланиб n!, m!, (n-m)! ни қийматини ҳисоблаш учун дастур тузинг. 
unit modul1; 
interface 
function fact(n: integer): integer; 
implementation 
function fact; 
begin 
var nf,mfnmf,n,m pf,i:integer; 
begin 
if k<0 then fact:=0 
else if k=0 then fact:=1 
else 
begin 
pf:=1; 
for i:=2 to k do 
pf:=pf*I; 
fact:=pf
end 
end; End. 
program modulFact; 
uses modul1; 
Var n1,m1,nf1,mf1,nmf1:integer; 
Begin 

---

56
readln(n1,m1); 
nf1:=fact(n1); 
mf1:=fact(m1); 
nmf1:=fact(n1*m1); 
write(‘nf1=’,nf1,‘ ’:4,‘mf1=’,mf1, ‘ ’:4, ‘ mnf1=’,nmf1); 
End.