Protsedura ha'm funksiya

Parametrsiz protseduralar
Joqorida aytip o‘tkenimizdey, protsedura esaplap bergen natiyjaler onin' faktik parametrleri arqali tiykarg'i programmaga uzatiladi. Biraq, ayrim waqtlarda protsedura parametrsiz ha'm bo‘liwi mumkin. Bul jag'dayda tiykarg'i programmanin' barliq parametrleri protsedura parametrleri rolin orinlaydi. Parametrsiz protsedurada ha'm protseduranin' barliq bo‘limleri saqlanip qaladi, tek qana parametrler dizimine qatnaspaydi.
Protseduralardi aniqlaw ha'm olardan paydalaniwdi tomendegi masele ustinde ko‘rip shig'amiz:
1-masele: u =max (x+y, x*y), v = max (0.5,u) – berilgen x ha'm y haqiyqiy sanlardan paydalanip u ha'm v manislerdi aniqlaw. Bul jerde x, u - qmamisleri kiritiletug'in haqiyqiy turli o‘zgariwshiler.
1. Masaleni sheshiw programmasinin' protseduradan paydalanbay duzilgen jag'dayi:
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.
Itibar bersen'iz, programmadag'i shartli operator eki marte takrarlanip, birdey jumis atqaradi.
2. Maseleni sheshiw programmani parametrsiz protseduradan paydalanip duzilgan jag'dayi (endi joqaridag'i programmada jo‘l qo‘yilg'an kemshilikdi protseduralar arqali duzetiwge hareket 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 protsedurasina 1-marte murajaat qilinip atir}
u:=S;
a:=0.5; b:= u;