O’zbekiston respublikasi oliy va o’rta maxsus ta‘lim vazirligi

Protsedura va funktsiyalar
Pascal dasturlash tilida protsedura va funktsiyalardan foydalaniladi. Pascal tilidagi protsedurani beysik tilidagi qism dasturga kiyoslash mumkin. Dastur tuzishda ba‘zan bir xil hisoblashni, kattaliklarning turli kiymatlari uchun bir necha marta takrorlab yozishga to’g’ri keladi. Bunday hollarda shu takrorlanuvchi hisoblashni alohida protsedura shaqlida yozib, undan istalgancha foydalanish Maqsadga muvofikdir.
Dasturda ishlatiladigan protseduralar dasturning protseduralar va funktsiyalarni bayon etish bo’limida tavsiflanishi lozim.
Protseduraning umumiy ko’rinishi quyidagicha:
procedure n (p1:t1; p2:t2; var p3:t3,…);
By yerda n-protsedura nomi, PI-formal parametrlar, TI-parametr turlari. Protsedura ham asosiy dastur qanday strukturaga ega bo’lsa shu strukturaga ega. Protsedura asosiy dasturning var bo’limidan keyin va begin bo’limidan oldinda joylashadi.
Protseduradan foydalanib 5,7u2-1,2u-8,3=0 tenglamani yechish dasturini tuzamiz.


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 {asosiy dastur boshlandi}
sq(5.7, -1.2, -8.3, y1, y2);
writeln (‘x1=’, x1 , ’ y2=’, y2);
end.


natija х1=0.49, х2=-5.2


Agar protsedurada bir dona kattalikning kiymati hosil kilinsa, unda bunday protsedurani funktsiya sifatida tashkil qilish qulay. Funktsiya function suzi bilan boshlanib, sungra uning nomi (ixtiyoriy identifikator) yoziladi va uning parametrlari, turlari ko’rsatilib dasturda begin va end operatorlari oraligida funktsiya tanasi yoziladi. Protsedura funktsiyaning umumiy ko’rinishi quyidagicha:
function n ({parametrlar ro’yxati}: {protsedura kiymatining turi});
Misol:

a=0,13457; b=2,13458; c=1,71345.
Dastlab nostandart funktsiyani aniqlab olamiz. Soxta parametrlar sifatida x va u larni olamiz, u holda nostandart ( foydalanuvchining) funktsiyasi bo’ladi. Berilgan funktsiyani hisoblash algoritmining blok – sxemasi va dasturini tuzamiz.