Protsedura ha'm funksiya

var
x, y, u, v: real;
procedure max3(a, b: real; var S: real);
begin
if a>b then S:=a else S:=b;
end;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);i
max3( x + y, x * y, u); {x+y va x*y an'latpanin' ulkeni ol o‘zgeriwshige o‘zlestirilmekde}
max3( 0.5, u, v); {0.5 ha'm an'latpanin' ulkeni V o‘zgeriwshige o‘zlestirilmekde}
label1.Caption:='u='+floattostr(u)+#13+'v='+floattostr(v);
end;
Solay etip, bir programmani protseduranin' ush turli varianti ushin tuzip shig'ip, natiyjede qolaylu ha'm apiwayi programmag'a iye bo‘ldiq.
Protseduralardi aniqlawda sol waqitqasha apiwayi turli parametrlerden paydalanip keldik. Biraq, biz soni jaqsi bilemiz, Paskal tilinde tuwindi turlerida bar. Parametr - o‘zgeriwshige tuwindiliq, jan'a turler beriw tap sonday apiwayi skalyar tur beriw siyaqli amelde orinlanaberedi. Biraq parametr - manislerde jan'a turler maselesine shuqirraq itibar beriw kerek.
Bizler joqarida aytip o‘tkenimizdey, faktik parametr formal parametr - manisinde mas turli qalegen an'latpa bo‘liwi mumkin. Biraq, Paskal tilinde qalegen turli manisler ushin sol turdegi natiyje beriwshi hesh qanday amel ko‘zde tutilmag'an. Sonin' ushin, bul turler ushin faktik parametrler tek qana sol turge mas o‘zgeriwshiler bo‘liwi mumkin. Bunday jag'day, jeke jag'dayda massivler ushin ha'm o‘rinli bolip esaplanadi.
Oylap koreyik, programmada o‘zgeriwshiler tomendegidey dag'azalang'an bolsin:
const n=20;
type vector = array [1..N] of real;
var u, v: real;
x, y: vector;
Bul jerde u=max{x_i}, v=max {y_i} lardi aniqlaw talap qilinip atirg'an bo‘lsin.
Vektordin' en' ulken ag'zani tobiw albette protsedura ko‘rinisinde sholkemlestiremiz:
procedure max1 (A:vector; var S: real);
var i: integer;