Var a,b,c: Real; D: Real

Parametrsiz protseduralar
Yuqorida aytib o‘tganimizdek, protsedura hisoblab bergan natijalar uning faktik parametrlari orqali asosiy dasturga uzatiladi. Lekin, ayrim paytlarda protsedura parametrsiz ham bo‘lishi mumkin. Bu holda asosiy dasturning barcha parametrlari protsedura parametrlari rolini bajaradi. Parametrsiz protsedurada ham protseduraning barcha bo‘limlari saqlanib qoladi, faqat parametrlar ro‘yxatigina qatnashmaydi.
Protseduralarni aniqlash va ulardan foydalanishni quyidagi misol ustida ko‘rib chiqaylik:
1-misol: u =max (x+y, x*y), v = max (0.5,u) – berilgan x va y haqiqiy sonlardan foydalanib u va v qiymatlarni aniqlash. Bu yerda x, u - qiymatlari kiritiladigan haqiqiy turli o‘zgaruvchilar.
1. Masalani yechish dasturining protseduradan foydalanmay tuzilgan holi:
var
x, y, u, v: real;
a, b, s: real;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);
a:= x +y; b:= x*y;
if a > b then s:= a else s:=b;
u := s;
a:= 0.5; b:=u;
if a > b then s:= a else s:=b;
v:=s;
label1.Caption:='u='+floattostr(u)+#13+'v='+floattostr(v);
end.
Ahamiyat bersangiz, dasturdagi shartli operator ikki marta takrorlanib, bir xil ish bajardi.
2. Masalani yechish dasturini parametrsiz protseduradan foydalanib tuzilgan holi (endi yuqoridagi dasturda yo‘l qo‘yilgan kamchilikni protseduralar orqali tuzatishga harakat qilamiz):
var x, y, u, v: real; a, b, s: real;
procedure max1;
begin
if a>b then s:=a else s:=b;
end;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);
a:= x + y; b:=x * y;
max1; {max1 protsedurasiga 1-marta murojaat qilinmoqda}
u:=S;
a:=0.5; b:= u;
max1; { max1 protsedurasiga 2-marta murojaat qilinmoqda }