Mm ivaat nosirov doc

3. Процедура ва функциялар
Pascal дастурлаш тилида процедура ва функциялардан фойдаланилади. Pascal тилидаги процедурани бейсик тилидаги кисм дастурга киёслаш мумкин. Дастур тузишда баъзан бир хил хисоблашни, катталикларнинг турли кийматла-ри учун бир неча марта такрорлаб ёзишга тугри келади. Бундай холларда шу такрорланувчи хисоблашни алохида процедура шаклида ёзиб, ундан исталганча фойдаланиш максадга мувофикдир.
Дастурда ишлатиладиган процедуралар дастурнинг процедуралар ва функцияларни баён этиш булимида тавсифланиши лозим.
Процедуранинг умумий куриниши куйидагича:
procedure n (p1:t1; p2:t2; var p3:t3,…);
Бy ерда n-процедура номи, PI-формал параметрлар, TI-параметр турлари. Процедура хам асосий дастур кандай структурага эга булса шу структурага эга. Процедура асосий дастурнинг var булимидан кейин ва begin булимидан олдин-да жойлашади.
Процедурадан фойдаланиб 5,7у²-1,2у-8,3=0 тенгламани ечиш дастурини тузамиз.
program kv _t(output); var y1,y2,d: real;
procedure sq (a,b,c:real; var x1,x2:real);
begin
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
end; begin {асосий дастур бошланди} sq(5.7, -1.2, -8.3, y1, y2); writeln (‘x1=’, x1 , ’ y2=’, y2);
www.qmii.uz/e-lib
51
end.
натижа х1=0.49, х2=-5.2
Агар процедурада бир дона катталикнинг киймати хосил килинса, унда бундай процедурани функция сифатида ташкил килиш кулай. Функция function сузи билан бошланиб, сунгра унинг номи (ихтиёрий идентификатор) ёзилади ва унинг параметрлари, турлари курсатилиб дастурда begin ва end операторлари оралигида функция танаси ёзилади. Процедура функциянинг умумий куриниши куйидагича: