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

{ u=x+y}
u.re:= x.re + y.re; u.im := x.im + y.im;
{v=x-y}
v.re :=x.re - y.re; v.im := x.im - y.im;
{w=x*y}
w.re := x.re * y.re - x.im * y.im;
w.im := x.re * y.im + x.im * y.re;
writeln ( ‘x + y =’,u.re,’+’,u.im,’*i’);
writeln ( ‘x - y =’,v.re,’+’,v.im,’*i’);
writeln ( ‘x * y =’,w.re,’+’,w.im,’*i’);
end.

+уйида яна бир мисолни кыришимиз мумкин, бу мисол ёзувлар устида амал бажаришни баъзи бир операторларини намойиш =илади:

program RecordExample;
type
check = record
number: integer;
amount: real;
date: array [1..8] of char; { '99/99/99' }
payee: string[40];
end;
var
MyCheck : check;
YourCheck: check;
begin
MyCheck.number := 753; { Янги йил совгалари }
MyCheck.amount := 87000000.00;
MyCheck.date := '12/25/88';
MyCheck.payee := ' Ызинг учун ';
YourCheck := MyCheck; { хамма майдон автоматик тарзда кабул килинади }
YourCheck.number := YourCheck.number + 1;
with YourCheck do
begin
Writeln('На=тига: ',amount);
Writeln('Кун: ',date);
end;
end.
3. Иерархик ёзувлар
Олдинги мавзуда биз киритган ёзувларнинг майдонлари скаляр ми=дорлар эди. Паскал тилида эса, ю=орида таъкидлаганимиздек, ёзув майдонининг типларига щеч =андай чеклашлар =ыйилмайди, шунинг учун ёзувнинг щадлари яна ёзувлардан, уларнинг щадлари щам ыз навбатида ёзувлардан ташкил топиши мумкин.
Ёзув майдонининг типи икки хил усул билан ани=ланиши мумкин:

• 
  ты\ридан - ты\ри комбинацияли тип ичида ани=ланиши;
  
• 
  олдиндан ани=ланган типлар ор=али ани=ланиши.
  

Иерархик (авлодли) структура быйича ани=ланган ёзувдаги энг паст даражада фа=ат оддий скаляр типларгина =атнашади. Авлод даражасининг ысиб бориши давомида, типларнинг мураккаблик даражаси щам ортиб боради.

Мисол сифатида «Ilmiy_хodim» деган ёзувли типни кыриб чи=айлик. Бу типни киритишдан аввал, бир нечта ёрдамчи типларни ани=лаб оламиз. Бу типлар асосий «Ilmiy_хodim» типини ани=лашда керак былади:


type rab = packed array [1..15] of char;
data = record
kun : 1..31;
oy : (yanv, fev, mart, apr,may, iyun, iyul, avg, setnt, oct, noy, dek);
yil: integer;
end;