1-маъруза: Математик моделлаштиришнинг асосий тушунчалари, масалаларни эщмда ечиш бос=ичлари ва алгоритмлар назарияси

2. Параметрсиз процедуралар
Ю=орида айтиб ытганимиздек, процедура щисоблаб берган натижалар унинг фактик параметрлари ор=али асосий программага узатилади. Лекин, айрим пайтларда процедура параметрсиз щам былиши мумкин. Бу щолда асосий программанинг барча параметрлари процедура параметрлари ролини бажаради. Параметрсиз процедурада щам процедуранинг барча былимлари са=ланиб =олади, фа=ат параметрлар рыйхатигина =атнашмайди.
Процедураларни ани=лаш ва улардан фойдаланишни =уйидаги мисол устида кыриб чи=айлик:
Мисол: u =max (x + y, x * y), v = max ( 0.5, u) – берилган x ва y ща=и=ий сонлардан фойдаланиб u ва v =ийматларни ани=лаш.
бу ерда х, у - =ийматлари киритиладиган ща=и=ий типли ызгарувчилар.
1. Масалани ечиш программасининг процедурадан фойдаланмай тузилган щоли:
Program max;
var
x, y, u, v: real;
a, b, s: real;
begin
{х, у - ми=дорларни киритиш};
readln (x,y);
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;
{олинган натижалар};
writeln (u, v)
end.

Ащамият берсангиз, программадаги шартли оператор икки марта такрорланиб, бир хил иш бажарди.

2. Масалани ечиш программасини параметрсиз процедурадан фойдаланиб тузилган щоли (энди ю=оридаги программада йыл =ыйилган камчиликни процедуралар ор=али тузатишга щаракат =иламиз):


Program max;
var x, y, u, v: real; a, b, S: real;
procedure max1;
begin
if a>b then S:=a else S:=b;
end;


begin
readln (x, y);
a:= x + y; b:=x * y;
max1; {max1 процедурасига 1-марта мурожаат =илинмо=да}
u:=S;
a:= 0.5; b:= u;