А. А. Медатов, М. З. Носиров, М. К

рrоgram max4;
var
x,y,u,v: real;
рrоcedure maxxx(r1,r2:real; var res:real);
if r1>r2 then res:=r1 else res:= r2;
end;
begin
read(x,y); maxxx(x+y,x*y,u); maxxx(0. 5,u,v);
writeln(u,v)
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));
Масала.
Қуйидаги ифодани ҳисоблаш учун уч турда дастур ёзинг
1+2!+3!+...+N!
1. Ўзгарувчи параметрли процедура ёрдамидаги дастур.