А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов

рrоgram max4;
var
x,y,u,v: real;
рrоcedure maxxx(r1,r2:real; var res:real);
begin
if r1>r2 then res:=r1 else res:= r2;
end;
begin
write(‘x va y larni kiriting ‘); readln(x,y); maxxx(x+y,x*y,u); maxxx(0. 5,u,v);
writeln(u:3:2, ‘ ‘,v:3:2);
end.
Агарда процедура параметрлари ҳосилавий тур бўлса, масалан, жадвал катталиклар, бу турларни асосий дастурнинг турлар эълон қилиш бўлимида эълон қилиш керак. Процедура эълонида эса эълон қилинган турдан фойдаланиш керак. Ўлчами катта бўлган ўзгарувчиларни параметр-ўзгарувчи кўринишда эълон қилиш машина хотирасини ва машина вақтини тежаш нуқтаи-назаридан афзаллик беради, айниқса жадвал катталиклар катта ўлчамли бўлган ҳолда.
Параметрли процедураларда процедура дастурини ёзишда формал параметрлар рўйхати, процедурадан фойдаланишда эса фактик параметрлар рўйхати келтирилади, улар уч хил типли бўлади:
а) ўзгарувчи параметрлар;
б) қийматли параметрлар;
в) аралаш параметрлар;
Ўзгарувчи формал параметрлар рўйхат ичида var сўзи билан ёзилади, бу сўз биринчи нуқтали вергулгача таъсир қилади: процедура номи (...var <руйхат>: <тип>;...)
Қийматли формал параметрларни олдида эса var сўзи ёзилмайди;

процедура номи(... <руйхат>: <тип>;...)

5. Аралаш параметрлар. Формал параметрлар рўйхати ичида ҳам ўзгарувчи параметрлар, ҳам қийматли параметрлар фойдаланилади

процедура номи(...var <руйхат>: <тип>;...; <руйхат>: <тип>;...)

Процедурадан фойдаланишда ўзгарувчи формал параметр ўрнида мос типдаги фактик ўзгарувчи ёзилади, қийматли формал параметр ўрнида эса мос типда қиймат берувчи ихтиёрий ифода ёзиш мумкин.

Мисол.
procedure fakt1(f,r:integer);
.......................................
procedure fak2(a;real);
........................................
fakt1(2+s,50);
fak2(sin(a)-exp(3.444));