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

function fact(m: integer): integer;
var
k: integer;
begin
if m=0 then fact:=1 else fact:= fact(m-1) * m;
end;
begin
readln (n);
y:= fact (n);
writeln(y);
end.

Функцияларни рекурсив ани=лаш =ис=а ва тушунарли тилда былади, рекурсив эмас ани=лаш эса узо= ва функцияни кыриниш эффектини бузади, лекин биринчи щолда сарфланган ЭЩМ ва=ти ва хотира нисбатан анча ю=оридир.

3. Параметрларни локаллаштириш принципи
Ю=орида кыриб чи=илган ва ани=ланган барча процедура ва функцияларнинг параметрлари ёки =андайдир типли =иймат, ёки ызгарувчилар былган эди. Аммо, шундай щоллар щам учраб турадики айрим параметрларни функциялар ёки процедуралар ор=али ани=лаш лозим былади. Бу щолга мисол сифатида
ва
ани= интегралларни трапеция усулида та=рибий щисоблаш программасини кыриб чи=амиз.
Бу ерда a, b, c, d - =ийматлари бериладиган ызгарувчилар;
f(x) =e^2x + sin6x, g(x)= x² - 3x³cosx
Ани= интегралларни трапеция усули ёрдамида щисоблаш алгоритми =уйидаги формула асосида бажарилади:

бу ерда , n - [ a, b] орали=ни былишлар сони.


Program L1;
var
a, b, c, d, y, z: real;
function f(x: real) : real;
begin
f:=exp(2*x)+sin(6*x)
end;
function g(x: real) : real;
begin
g:=sqr(x) - 3*x*sqr(x)*cos(x)
end;
procedure int(A, B: real; function F(x: real): real; var R: real);
const
n=20;
var
x, h: real; k: integer;
begin
h:= (B - A)/n; R:=(f(A)+f(B))/2;
for k:=1 to n-1 do
R:= R+ f(a + k * h);
R:= R * h;
end;
{асосий программанинг операторлар былими}
begin {1 - интеграл чегараларини киритинг}
read ( a, b);
int (a, b, f, y);
writeln( ‘y=’,y);
{2-интеграл чегараларини киритинг}
read (c, d); int ( c, d, g, z);
write (‘z=’, z);
end.
Назарий саволлар ва таянч иборалар:

1. 
   Процедура-функциянинг асосий фар=ини =андай изощлайсиз?
   
2. 
   Функция структураси =андай ани=ланган?
   
3. 
   Функцияга мурожаат =андай амалга оширилади?
   
4. 
   Рекурсивлик хоссасини =андай изощлайсиз?
   
5. 
   Локал ва глобал ызгарувчилар =андай фар=ланади?
   
6. 
   Параметрларни локаллаштириш принципини изощлаб беринг;
   
7. 
   Sinx, Cosx, e^x, - каби стандарт функцияларни хисоблаш процедура-функцияларини яратинг.