14-tema. Paskalda qatarıy shamalar menen islew

Program sqatar4; Var S1, S2, S3, S4: string [20]; V1, V2: integer; V3 :real; K1, K2, K3: integer; Begin S1:='2'; S2:='3'; S3:=S1+S2; Writeln ('S3=', S3); S4:='E+2';

Val (S1, V1, K1); val (S2, V2, K2); Writeln (V1+V2); Writeln ('K1=', K1,' ': 10, 'K2=' , K2); Val (S1+S4, V3, K3); writeln (V3); Write ('K3=', K3); end. Nátiyje S3=23 5 K1=0 K2=0 2,00000000000E+0,2

Biz massiv dep bir tipten bolǵan ózgeriwshiler toparına aytamız. Al jazıwlar bolsa, massivten parıqlanıp, hár túrli tipten bolǵan ózgeriwshiler kópligine aytamız. Basqasha aytkanda jazıwlar kombinirlengen aralas tip depte aytıladı.
Jazıwlar tipler bóliminde tómendegishe kórsetiledi.
Type R=record a1: t1; a2: t2;..., an: tn; end;
Bul jerde R jazıw atı, identifikator; a1, a2,...,an - jazıwdı quraytuǵın maydanlar atları; t1,t2,...,tn bolsa, sáykes túrde a1,a2,...,an - maydanlarınıń tipleri.
Mısal(Example):Berilgen topardaǵı studentlerdiń tuwılǵan kúnleri kombinirlengen tip arqalı ańlatılsın.
Type Date=record Mesr:1,. . 12; Den R; 1. . 31; God R: integer; End;
Var X: date; Bul jerde date jazıwı mesR, denR, godR atlı sanlı maydanlardan ibarat bolıp, olar sáykes túrde 1..12, 1..31 sheklengen tiplerge hám integer tipine tiyisli. X:=date; jazıwı X ózgeriwshisine topardaǵı qálegen student tuwılǵan kúni haqqında maǵlıwmatlardı (tuwılǵan kún, ayı hám jılı) menshiklew múmkin ekenligin ańlatadı.
Mısal(Example):X ózgeriwshisine ’2017-jıldıń 21-oktyabri’ maǵlıwmatın beriw ushın X.mesR:=10; X.denR:=21; X.godR:=2017; operatorların orınlaymız.
Mısal. Type avtomobil=resord Nomer: integer; Marka: string {20}
fioVL: string {40} DadrVL: string {60}
Var X,Y : avtomobil;
Bul X hám Y ózgeriwshilerine avtomobil tipine tiyisli bolǵan mánislerdi kiritiw múmkinshiligin ańlatadı. Bul tipke tiyisli bolǵan hár bir mánis 4 komponentten ibarat bolıp, birinshi integer tipine tiyisli, keyingi úshewi bolsa string tipine tiyisli. Jazıwǵa kiretuǵın komnonentler sáykes túrde nomer, marka, fioVL hám DadrVL dep ataladı. Z.avtomobil ózgeriwshisine mánis beriw ushın Z.nomer, Z.marka, Z.fioVL, Z.ADrVL ózgeriwshilerine mánis beriledi. Mısal:
Z.Nomer:=6288; Z.Marka:=’Spark-01’; Z.fioVL:=’Abdullaev’; Z.DadrVL:=’Pamir 4 ’: Bul ózgeriwshiler kópligi 4 elementke iye t ólshemli massiv dep qaraw múmkin. Eger Z massiv bolsa, onıń elementlerine kvadrat skopkanıń ishine jazılǵan indeks boyınsha múrájat etiw múmkin. Bul jerde komponentke múrájat etiw ushın Z izine “. ” tochka belgisi qoyıladı hám maydanshanıń atı kórsetiledi.
Z.nomer, Z.tochka h. t. b. kórinistegi atlarǵa strukturalı atlar delinedi. Olarǵa mánis beriw ushın kiritiw-shıǵarıw operatorlarınan paydalanıladı.
Mısal: Read(Z.nomer, Z.tochka, Z.fioVL, Z.ADrVL ); Bir tipten bolǵan X hám Y ózgeriwshilerine X:=Y; menshiklew operatorın paydalanıw múmkin.
Bul jaǵdayda Y jazıwı elementlerine sáykes túrde X jazıwı elementleri menshiklenedi. Ayırım jaǵdaylarda jazıwlardan massiv elementleri járdeminde paydalanǵan qolaylı boladı. Mısal: Type magliwmat=record fio:string [20];
godr:integer; dadr:string [60]; end; Vektor magliwmat=array[1..25] of magliwmat; var G333: Vektor magliwmat; Bul G333 ózgeriwshisine 25 elementli bir ólshemli massiv hám onıń hár bir elementine stulent atı, familiyası, atasınıń atı, tuwılǵan jeri tuwralı maǵlıwmatlardı menshiklew múmkinligin ańlatadı. Mısal:
G333[1] fio:= ’Abdullaev B.A.’; G333[1] godr:=’2017’;
G333 [1]dadr:=’Nókis qalası, Pamir kóshesi 4 ’;
G333[2] fio:= ’Abdullaev A. A’; G333[2] godr:=’1976’;
G333 [2]dadr:=’Nókis qalası, Pamir kóshesi 4’; ...
Ayırım jaǵdaylarda programma kólemin kemeyttiriw maqsetinde with operatorınan paydalanıladı. Ol with do ;
kórinisinde jazıladı. Mısal: With G333[1] do fio:= ’ Abdullaev B.A.’;
godr:=’2017’; dadr:= ’Nókis qalası, Pamir kóshesi 4 ’; end;
yamasa With G333[2] do fio:= ’Abdullaev A. A’; godr:=’1976’;
dadr:= ’Nókis qalası, Pamir kóshesi 4’; end;
Paskal tilinde kompleks sanlar menen islesiw ushın da kombinirlengen tipten paydalanıwǵa boladı. Mısal(Example):