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

2. Оддий комбинацияли типлар
Соддалик учун, бир авлодли структура ор=али ёзилган комбинацияли тип маълумотлари билан танишиб чи=айлик.
Ёзувларни ани=лаш (киритиш) =уйидаги синтаксис =оида быйича амалга оширилади:


<комбинацияли типни ани=лаш>::= record
< майдонлар рыйхати>
end


<майдонлар рыйхати>::=<ёзув секцияси>{;<ёзув секцияси>}
<ёзув секцияси>::=<майдон исми>{,<майдон исми>}:<тип>

Шу =оидага асосланиб, математика фанидан яхши таниш былган комплекс сонли тип киритайлик (a + bi -комплекс сон, a, b - ща=и=ий сонлар, i²=-1) ва тип номини complex деб атайлик:

type
CompLex = record
re: real;
im: real;
end

Бу типни =уйидагича тушунтириш мумкин: CompLex типига тегишли ихтиёрий =иймат иккита щадли (майдонли) ёзувдан ташкил топган структурадир. Ёзув майдонлари re ва im номлари билан аталади ва улар real типига тегишлидир.

re ва im бир хил типли былгани учун, уларни битта рыйхатга бирлаштириб ёзса щам былади:
type
CompLex = record
re, im: real;
end
Энди барча комплекс (мавщум) =ийматлар =абул =илувчи ызагарувчиларнинг типларини var былимида ани=лаш мумкин:


var
x, y, z: CompLex;

Бу типдаги ызгарувчиларга бирор =иймат ызлаштириш учун, уларнинг майдонларини ташкил этувчиларга =иймат бериш керак былади. Масалан, x ызгарувчига 4,5 + i * 6,75 =ийматини ызлаштириш учун, re ва im исмли майдонларга =иймат бериш керак:

x.re := 4.5; x.im := 6.75;

Бир хил комбинацияли типга тегишли ызгарувчилар учун фа=ат ызлаштириш амалигина ыринли холос:

y := x;

Ёзувларга доир =уйидаги мисол устида, улар билан ишлаш малакамизни оширайлик:

Мисол: х ва у мавщум сонлари устида =ышиш, айириш ва кыпайтириш амалларини бажариш программасини тузинг.
Масалани ечиш алгоритми:

Агар x = Re x + i Im x, y = Re y + i Im y былса, улар устида санаб ытилган амалларни бажариш алгоритми =уйидагича былади:

u = x + y,	Re u = Re x + Re y, Im u = Im x + Im y;
v = x - y ,	Re v = Re x - Re y, Im u = Im x - Im y;
w = x * y,	Re w = Re x * Re y - Im x * Im y, Im w = Re y * Im x + Re x * Im y

Энди мазкур алгоритмни программада ифода этамиз:

Program L1;
type
comp = record
re, im: real
end;
var
x, y, u, v, w: comp;
begin {х ва у мавщум сонларнинг ща=и=ий (Re x, Re y) ва
мавщум (Im x, Im y) =исмларини киритиш}
readln (x.re, x.im, y.re, y.im);