Bosh sahifa
Referatlar
Informatika va AT
Комбинацияли (ёзувлар) ва тупламли типлар
Комбинацияли (ёзувлар) ва тупламли типлар
Yuklangan vaqt:
20.09.2019
Ko'chirishlar soni:
0
Hajmi:
118 KB
Ko'chirib olish
O'xshashlar
Тупламлар ва ёзувлар
Файлли типлар
Турбо-Паскал тилининг асосий тушунчалари
Дастур тушунчаси. Дастурлаш тиллари классификацияси. Паскаль тили характеристикаси, структураси
Каторлар
![begin { х ва у мавхум сонларнинг ха к и к ий (Re x, Re y) ва мавхум (Im x, Im y) к исмларини киритиш } readln (x.re, x.im, y.re, y.im); { 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](/data/documents/e98bc92e-b845-4372-8371-95b265708668/page-6.png)
![Мисол сифатида « 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; 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;](/data/documents/e98bc92e-b845-4372-8371-95b265708668/page-8.png)
![хадлари бир хил типли ва чекли сондаги булиши керак. Тупламдаги хадларнинг сони 256 тадан ортмаслиги ёки умуман туплам буш булиши хам мумкин. Тупламнинг хадлари урта кавс ичига олиниб, узаро вергул билан ажратилиб ёзилади. Паскал тилида туплам типлари сифатида олдинги мавзуларда куриб чикилган ихтиёрий скаляр тип кабул килиниши мумкин, факат Real типини кабул килиши мумкин эмас. Паскал тилида ёзилган тупламларга мисоллар: 1. [ ] - буш туплам; 2. [2,3, 5, 7, 11] - 2, 3, 5, 7, 11 бутун сонларидан тузилган туплам; 3. [1..10] - 1 дан 10 гача булган бутун сонлар туплами; 4. [‘ a ’, ‘ b ’, ‘ d ’] - a , b , d харф (белги)лардан тузилган туплам; 5. [ок,кора, сарик] - 3 та хадли, саналма типдаги кийматлардан хосил килинган туплам; 6. [‘ d ’..’ a ’] - буш туплам; 7. [‘ a ’..’ d ’,’ f ’..’ h ’, ‘ k ’] - a , b , c , d , f , g , h , k харфларидан ташкил топган, белгили типли туплам; 8. [1..1,5..1] - бир кийматли, битта хадли, сонли туплам, яъни [1] га тенг кучли. Тупламларнинг умумий назариясидаги каби Паскалда хам, туплам хадларининг тартиб жойи хеч кандай вазифа бажармайди ва хар бир хад факат бир марта хисобга олинади: 1) [ true , false ] ва [ false , true ] тупламлари эквивалентдир; 2) [1,2,3,2..5,6,4,3] туплами [1,2,3,4,5,6] тупламига эквивалент, у эса уз навбатида [1..6] тупламига эквивалент. Нотугри ёзилган тупламлардан намуналар:](/data/documents/e98bc92e-b845-4372-8371-95b265708668/page-12.png)
![1) [5.3, 2.5] – туплам хадлари Real типидаги сон булиши мумкин эмас; 2) [9, 7, “ P ”,0] – туплам хадлари бир хил типли булиши лозим эди; 3) [‘ abc ’,’ Axad ’] – туплам хадлари хосилавий типларга тегишли булиши мумкин эмас. Тупламлар устидаги муносабат амалларининг куйидаги жадвалини эътиборингизга хавола киламиз: Паскалдаги ёзилиши Математик ёзилиши Натижавий киймат True False AкB A к B А ва В тупламлари мос тушади акс холда A .<> B A B А ва В тупламлари мос тушмайди акс холда A<кB A B А тупламининг барча хадлари В тупламга тегишли акс холда A>кB A B B тупламининг барча хадлари A тупламга тегишли акс холда x in A X A х хади А тупламга тегишли акс холда 6 . Т у п л а м л а р у с т и д а а м а л л а р 1. Иккита А ва В тупламлари тенг (бир хил) дейилади, агарда уларнинг барча хадлари узаро бир хил булса (АкВ). Мисол: Ак[4,1,3], Вк[4,1,3]. 2. А туплам В тупламининг туплам остиси дейилади, агарда А нинг барча хадлари В нинг хам хадлари булса (А<В). Мисол: Ак[1, 2, 3] , B к[1, 2, 3, 4, 5, 6]. 3. А ва В тупламларининг кесишмасидан яна туплам хосил булади ва натижавий тупламнинг хадлари А тупламга хам, В тупламга хам тегишли булади (С кА*В).](/data/documents/e98bc92e-b845-4372-8371-95b265708668/page-13.png)
![Мисол: [1,2,3,4,5] * [2,5,6,7,8] к [2,5]. Агар А ва В тупламлари бир хил хадларга эга булмаса, С к А*В натижа – буш туплам булади С к [ ]. 4. А ва В тупламларнинг бирлашмаси (С кАкВ) уларнинг хеч булмаса бирортасига тегишли булган хадлардан ташкил топади. Мисол: [1,2,3,4,5] к [2,5,6,7,8] к [1,2,3,4,5,6,7,8]. 5. А тупламдан В тупламни айирмаси деб, шундай тупламга айтиладики, натижавий тупламнинг хадлари А тупламга тегишли лекин В тупламга тегишли булмайди (С к А - В). Мисол: [1,2,3,4,5] - [2,5,6,7,8] к [1,3,4]. 6. x кийматни А тупламига тегишлилигини аниклаш учун « in » амалидан фойдаланилади. x in A к true , агар x киймат А тупламига тегишли булса; x in A к false , агар x киймат A тупламига тегишли булмаса. Мисол: А к[2, 3, 4, 7] булса, 6 in A ифодасининг натижаси false : 3 in A ифодани натижаси эса True . 7 . Т у п л а м л и т и п н и б е р и ш в а т у п л а м л и у з г а р у в ч и л а р Тупламли типларни аниклаш куйидагича амалга оширилади: Set of <туплам типи>; бу ерда Set ва of - Паскал тилининг хизматчи сузлари. Мисол: 1. Set of 1..3 - тупламнинг базавий типи 1 дан 3 гача булган бутун сонлар оралиги, шунинг учун бу тупламнинг кийматлари сифатида 1, 2 ва 3 сонларидан тузилган барча тупламларни олиш мумкин ( хатто буш тупламни хам): [ ], [1], [2], [3], [1, 2], [1, 3], [2, 3] ва [1, 2, 3]. Факат шу тупламларгина, юкорида аникланган тупламли типнинг кийматлари булиши мумкин. 1. Set of boolean ;](/data/documents/e98bc92e-b845-4372-8371-95b265708668/page-14.png)
![бундай аникланган тупламнинг кийматлари туплами: [ ], [ true ], [ false ], [ true , false ] 3. type oy к (yanv, fev, ..., dek); yiloyi к Set of oy bool к Set of boolean; var bolalar: Set of (ugil, kiz); oylar: yiloyi; mantiq: bool; Тупламли к ийматларни тупламли узгарувчиларга узлаштириш учун узлаштириш оператори ишлатилади : V :к S ; бу ерда V - туплам типига тегишли узгарувчи; S - тупламли ифода. Тупламли ифодага мисоллар: 1. [1, 2, 5, 6,7] * [2, 6] к [3,9], натижаси [2, 3, 5, 6, 9]; 2. ([3,4,5]к[1-,3,6,7]) * [5..7]-[6], натижаси [5,7]. Энди тупламлар устида бажариладиган амалларга доир куйидаги мисол дастурини яратайлик. Киритилган каторнинг факат сон, лотин харфлари ва буш жойлардан ташкил топганлигини аниклаш программасини тузинг.](/data/documents/e98bc92e-b845-4372-8371-95b265708668/page-15.png)
![Program Tuplamlar; Var Str:string; L:Byte; Tru:Boolean; Begin Writeln (‘к аторни киритинг ’); Readln(Str); L:кLength(Str); { Киритилган символлар сони } Tru:кL>0; {True, агар буш к атор булмаса } While Tru and (l>0) do {катор охиригача текшириш } Begin Tru:кStr[L] in [‘0’..’9’, ’A’..’Z’, ’a’..’z’, ’ ‘]; {Символлар тугрилигини текшириш } Dec ( L ); {Олдинги символ } End; If Tru Then Writeln (‘ Ту г ри ёзилган к атор ’) Else Writeln (‘ Ноту г ри ёзилган к атор ’); End. куйида ф а к ат ха к и к ий сонларни к абул к ила оладиган функцияни яратиш дастури келтирилган : Program Set_Of; Uses Crt; Var R:Real; Function Input_R:Real; {Щакийкий сонларни киритиш функцияси} Var](/data/documents/e98bc92e-b845-4372-8371-95b265708668/page-16.png)
![S:String[15]; {S узгарцвчига купи билан 15 та белги си г ади } S1:Set Of Char; {Белгиларни текшириш учун туплам} Ch:Char; {Белгиларни кабул киладиган узгарувчи} Code:Integer; R1:Real; Begin S:к''; S1:к['0'..'9','.','-']; Repeat Ch:кReadkey; If Ch in S1 Then { Ch га киритилган белгини S1 туплам ич идан текшириш} Begin S:кSкCh; Write(Ch); End; Until Chк#13; {Enter клавиши босилгунча цикл айланади } Val(S,R1,Code); Input_R:кR1; End; Begin R:кInput_R; { Input_R функциядан фойдаланиш } Writeln; Writeln('1- натижа к ',R:10:4); Writeln('2- натижа к ',Input_R:10:4); { Input_R функциядан фойдаланиш } Readln; End.](/data/documents/e98bc92e-b845-4372-8371-95b265708668/page-17.png)
