Кисм дастурлар - Информатика и ИТ - Рефераты

Кисм дастурлар

Загружено в:

20.09.2019

Скачано:

0

Размер:

48.5 KB

www.arxiv.uz Кисм дастурлар Режа : 1.Кириш. 2 .Про ц едуралар . 3 .Функ ц иялар. 4 .Айрим но ст андарт про ц едура ва функ ц иялар.

www.arxiv.uz Кириш Дастурлаш жараёнида шундай холатлар буладики , бир хил операторлар кетма - кетлигини дастурнинг бир неча жойларида такроран ёзишга тугри келади . Бундай такрорланишни йукотиш максадида дастурлашнинг купгина тилларида кисм дастур тушунчаси киритилган. Улар мустакил дастур булаги сифатида дастурнинг бош кисмида бир маротаба ёзи лади . Паскаль тилида кисм дастур процедура ёки функция куринишида берилади. Асосий дастур билан процедура орасида узгарувчилар киймат алмашуви формал ва фактик параметрлар ёрдамида амалга оширилади. Процедура ичида яна бир неча процедура ёки функция ишлатилиши мумкин. Дастурда эълон килинган узгарувчилар, шу дастурдаги процедура ва функцияларга нисбатан глобал дейилади. Процедура ва функцилар ичида эълон килинган узгарувчилар локал дейилади. У ларнинг таъсир доираси шу кисм дастур ичида булади. Процедуралар Процедураларни эълон килиш куйидагича булади. Procedure <проц.номи> (<формал параметрлар>); <узгарувчи ва узгармасларни тавсифлаш кисми> Begin <асосий кисм> End; Формал параметрларни шу процедура бош кисмида ёки сарлавхада эълон килиш мумкин. Масалан. Procedure AB (x,y: Real); Хар кандай процедурани кичик бир дастур деб караш мумкин. Процедура хам дастурга ухшаб бош ва асосий кисмлардан тошкил топади. Бош кисмда процедура номи ва унинг параметрлари эълон килинади. Асосий кисм операторлар кетма-кетлигидан ташкил топган булиб, улар Begin - End ичига олинади. Процедура номи фойдаланувчи тамонидан берилади. Мисол. Procedure Dr(Var x,h1,h2,z1,z2 : Real); Var h,z: Real;

www.arxiv.uz Begin h:=h1/z1+h2/z2; z:=z1/z2; x:=(h+z)/2; End; Бу процедурада h 1, z 1, h 2, z 2 параметрлар киймати процедурага мурожат килинганда аникланган булиши керак. Натижани эса x - параметр узатади. h ва z узгарувчилар ички узгарувчилардир. Бу процедурага дастурдан куйидагича мурожаат килинади Dr ( x , h 1, h 2, z 1, z 2) . Процедурага мурожаат килинганда мос параметрлар киймати бир бирига узатилади. Бериладиган формал ва фактик параметрлар сони тенг ва улар турлари бир хил булиши шарт. Лекин параметрлар номлари хар хил булиши мумкин. Функциялар Функциялардан фойдаланиш ва уларни ташкил килиш худди процедура каби булиб, у куйидагича булади: Function <ф-я номи>(<формал параметрлар>):<ф-я тури>; <узгарувчи ва узгармасларни тавсифлаш кисми> Begin <асосий кисм> End; Функциянинг процедурадан фарки, унга мурожат килинганда натижа факат битта булиб, у шу функция номига узатилади. Мисол 1. Куйидаги хисоблашни функцияни ишлатган холда дастурини тузинг.C n m n m nm  ! !( )! . Program Kol; Var ncm:Real; n,m,i: Integer; Function Fact (k: Integer): Integer; Var P,i: Integer; Begin

www.arxiv.uz P:=1; For i:=1 to k do P:=P*i; Fact:=P; End; Begin Read(n,m); l:=n-m; ncm:=Fact(n)/Fact(m)/Fact(i); Write(‘ncm=’,ncm); End. Мисол 2. К уйидаги хисоблашни процедурани ишлатган холда дастурсини тузинг.z th a th a b th a b th x e e x x        2 2 2 2 2 1 1 ( ) ( ) , . Program Fun1; Var a,b,z,c,d,t1,t2,t3: Real; Procedure Th(Var x,r: Real); Var c: Real; Begin c:=exp(2.0*x); r:=(c-1)/(c+1); End; Begin Read(a,b); th(a,t1); c:=a-b; th(c,t2); d:=Sqr(a)-Sqr(b); th(d,t3); z:=(t1+Sqr(t2))/Sqrt(t3); Write(‘z=’,z:10:3); End. Айрим но ст андарт про ц едура ва функ ц иялар Паскаль тилида бир канча махсус процедура ва функциялар мавжуд булиб, улар куйидаги гурухларга булинади:  каторни кайта ишлаш;  файллар билан ишлаш;

www.arxiv.uz  динамик узгарувчилар учун хотирани бошкариш;  арифметик функциялар;  экран билан ишлаш. Уларнинг айримларини куриб чикамиз: Halt- дастурни бажаришдан тухтатиш; Odd(i)- I-ток булса “True” акс холда “False” киймат олади; Edit - бажарилаётган блокдан чикиш; Random - 0 дан 1 гача булган сонни тасоддифан олиш; GotoXY ( x , y )- курсорни курсатилган жойга куйиш; ClrScr - экранни тозалаб, курсорни экран бошига куйиш; Trunc - аргументнинг бутун кисми: Str ( I ; Var S : String )- ракамни символга утказиш ( I -ифода ёки узгарувчи); Val ( S : String ; Var P ; ko : Integer )- символни ракамга утказиш ( P - узгарувчи); Length (S:String)- к атор узунлигини ани к лаш . Pos ( st 1, st ) - катордаги катор кисми холатини аниклаш. Мисол : st:=’ Тошкент ’; st1:=’ кент ’; p:=pos(st1,st); Жавоб : p=4. Агар изланаётган катор кисм каторда йук булса киймат нулга тенг булади . Copy(st,m,n) - катордан фрагмент кесиб олади . Мисол : st:=’ Тошкент ’; p:=Copy(st,4,4); Жавоб : p=’ кент ’. Delete(st,m,n) - катордан фрагмент кесиб олиб ташлайди . Мисол : st:=’ Тошкент ’; p:=Delete(st,4,4); Жавоб : p=’ Тош ’.

Похожие

Кисм дастурлар (2)

Ўрнатилувчи дастурлар яратиш

TSR дастурлар яратиш

Тармокланувчи таркибли дастурлар

Такрорланувчи таркибли дастурлар