Ахборот ва педагогик технологиялар факультети
Download 0.59 Mb. Pdf ko'rish
|
1111dasturlash texnologiyalari
Модулга мисол
Мисол сифатида бутун сонлар учун 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. 0> Download 0.59 Mb. Do'stlaringiz bilan baham: |
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling