Ilmiy_хodim = record
fish : record {fish – фамилияси, исми, шарифи}
fam, ism, shar: rab
end;
tug : data;
jins: (erkak, ajl);
malum: (boch, orta, ortmax, olij);
maosh: integer;
ildar: (darajasiz, fan_nom, doktor); {ildar – илмий даражаси}
ilunvon: (unvonsiz, dos, kat_ul_xodim, prof); {Ilunvon – илмий унвони}
uyadr: record
ind: integer;
shah, kucha: rab;
uy, kvar: integer;
end;
tel: record
uy, hizmat: integer
end;
end;
Энди «shaxs» деган «Ilmiy_хodim» типидаги ызгарувчини киритамиз:
var
shaxs: Ilmiy_хodim;
Бу ызгарувчининг =ийматларини барча майдонларнинг =ийматларини ани=лаш ор=али берилади, масалан:
shaxs.fish.ism:= ‘Ащмад’;
shaxs.fish.fam:=’Пылатов’;
shaxs.fish.Shar:=’Анварович’;
shaxs.tug.kun:=’15’;
shaxs.tug.oy:=maj;
shaxs.tug.yil:=’1953’;
shaxs.jins:=erkak;
shaxs.malum:=olij;
shaxs.maosh:=’3000’;
shaxs.ildar:=fan_nom;
shaxs.ilunvon:=dos;
shaxs.uyadr.ind:=’717325’;
shaxs.uyadr.shah:=’Наманган’;
shaxs.uyadr.kucha:=’Навоий’;
shaxs.uyadr.uy:=’20’;
shaxs.uyadr.kv:=’5’;
shaxs.tel.uy:=’45215’;
shaxs.tel.hiz:=’40625’;
4. Бо\лама оператори
Олдинги мавзуда щавола =илинган программадан кыриниб турибдики, ёзувлар билан ишлаш программанинг матнини жуда узун =илиб, щар доим ёзувнинг тыли= исмларини ёзишга ты\ри келади. Жумладан, бу мисолда 18 марта «shaxs» сызи такрорланди. Шундай такрорланувчи ёзув щадларини камайтириш ма=садида бо\лама оператори киритилган:
<бо\лама оператори>::= <оператор>
::=with <ёзувли ызгарувчилар рыйхати> do
<ёзувли ызгарувчилар рыйхати>::=<ёзувли ызгарувчи>{,<ёзувли ызгарувчи>}
Энди бу операторларни амалда ишлатилишини кыриб чи=амиз:
with R do S
бу ерда with ва do - хизматчи сызлар;
R - комбинацияли типга тегишли ызгарувчи;
S - ихтиёрий оператор.
Бо\лама операторининг бажарилиши – S операторининг бажарилиши демакдир. Фа=ат S операторининг ички =исмида R.p ёзуви ырнига ( p- майдон исми) фа=ат p ёзилади холос.
Масалан, олдинги мисолимиз учун with shaxs do
операторидан кейин ызгарувчиларнинг =ийматларини ёзсак:
fish.ism :=’Ахмад’;
Бу ерда кыриниб турибдики, программа матни ызлаштириш операторининг чап томонидаги исмларда “Shaxs” сызи тушириб =олдирилганлиги сабабли анча ихчамлашди.
Операторнинг ишлашини яхширо= тушуниш учун =ис=аро= программани кыриб чи=айлик.
+уйидаги ызгарувчиларнинг =ийматлар типларини эълон =илиш былими мавжуд былсин:
var
R2: record
A, B, C: integer
end;
R3: record
A, D: integer;
B: record
C, E : integer
end
end;
У щолда бо\лама операторининг киритилиши:
with R3, B, R2 do
begin
A:=1; B:=2; C:=3; D:=4; E:=5
end
=уйидаги ташкилий операторга тенг кучлидир:
begin
R2.A:=1; R2.B:=2; R2.C:=3; R3.D:=4; R3.B.E:=5
End.
Do'stlaringiz bilan baham: |