Паскаль тилида чизикли тузилмали ва тармогланувчи тузулмали алгоритмлар асосида дастур тузиш - Информатика и ИТ - Рефераты

Паскаль тилида чизикли тузилмали ва тармогланувчи тузулмали алгоритмлар асосида дастур тузиш

Загружено в:

20.09.2019

Скачано:

0

Размер:

135.513671875 KB

Паскаль тилида чизикли тузилмали ва тармогланувчи тузулмали алгоритмлар асосида дастур тузиш Режа: 1. Паскаль тилида такрорланувчи тузилмали алгоритмларни дастурлаш. 2. Муракаб цикллар асосида дастурлар тузиш.

Паскаль тилида чизикли тузилмали ва тармогланувчи тузулмали алгоритмлар асосида дастур тузиш Алгоритмнинг блок-схема тарзидаги тавсифланиши ЭХМлар учун дастур тузиш амалиётида жуда кенг кулланилади. Берилган масаланинг ечиш алгоритми блок-схема шаклида тавсифлаш алгоритмини дастурлаштириш учун анча кулайлик яратилади. Блоклари кетма-кет, блок схемада жойлашган тартибда бажариладиган алгоритм чизикли структурали алгоритм дейилади. Чизикли структурадаги дастурларда хеч кандай шарт булмайди, шунинг учун улар алгоритм билан аникланган кетма-кетликда бажариладилар. Чизикли структурадаги дастурларни ташкил этиш учун узлаштириш операторлари, маълумотларни киритиш ва маълумотларни кайта ишлаш натижаларини чикариш операторлари киради. Масалан у= ax 2 + b х+с функцияни кийматини хисоблаш учун блок-схема ва дастур тузамиз a=1.21, b=3.12, c=-0.2, x=0.45 Дастури куйидагича булади . Program t1(input,output); Var a,b,c: real; x, y: real; Begin Write(‘ узгарувчиларни киритинг ’); Read(a,b,c,x); y:=a*SQR(x)+b*x+c; writeln(‘ натижа y=’,y); end. Натижа y=1.449025бошлаш тамома, в,с, х у=ах 2 + b х+с у=

Куриниб турибдики блок-схемада блоклар кетма-кет жойлашган. Тармокланувчи тузилмали дастурларни ташкил этишда албатта шарт булади ва бу шарт бажарилишига караб бир-нечта операторлар кетма- кетлиги танланади. Тармокларни ташкил этиш учун дастурда утиш, шартли ва танлаш операторлари булиши керак. Шартсиз утиш оператори . Шартсиз утиш операторини умумий куриниши GOTO N бу ерда GOTO оператор N - метка (сатрга куйилган номер, белги) N метка LABEL ёрдамчи сузи билан куйилиши керак. Масалан : Program t(output); Label 7; var a,b:real; Begin …….. goto 7 ……… 7: a := b *3 ……… end . Бу ерда бошкариш Goto оператори оркали 7-меткага (номерга) утказилаяпти. Меткалар туртта ракамдан ошмаган ишорасиз бутун сонлар булиб, улар меткаларни тавсифлаш булимида тавсифланадилар. Шартли утиш оператори куйидаги умумий куринишдаги езувга эга: А ) IF b1 THEN a1; киска ёзилиши В ) IF b1 THEN a1 ELSE a2 ; тулик ёзилиши Бу ерда: b1- мантикий ифода; а1 ,а2 -операторлар. Операторнинг а) куринишдаги езуви агар мантикий ифода TRUE кийматга эга булса, а1 операторни хисоблашни ташкил этади, акс холда а1 бажарилмайдиган шартли оператордан кейин турадиган оператор бажарилади. В) куринишда агар мантикий ифода TRUE кийматни кабул килса, унда а1 оператор

бажарилади, акс холда а2 оператор бажарилади. Шуни такидлаш керакки ELSE операторидан олдин “;” нукта-вергул куйилмайди. Масалан: IF Y >0 THEN D := SQRT ( Y ) ELSE D := Y Яъни у>0 булса, d =√у бажарилади акс холда d = y булади. CASE оператори дастурда тармокланишни ташкил этиб, бир неча операторлар орасидан бирини танлаш имконини беради.Унинг умумий куриниши куйидагича; CASE < ифода > OF < операторлар > END Масалан: CASE I OF 2: x:=0; 3: x:=a*x; 100: x:=SIN(x); END; A := B ; Агар I 3га тенг булса x := a * x бажарилади ва бошкариш А:=В; операторга утади. Куйидаги функцияни хисоблаш алгоритм блок-схемаси ва А tgx + bcosx агар x >1 булса Y = ax + b агар 0  х  1 булса А 2 x 2 + bx агар x <0 булса дастурини тузайлик Ушбу функцияни хисоблаш дастури куйидагича булади. А=3.8; в=3.4; х=0.6 1 Program T1 (input, output); Label 2бошлаш a,b,x X >1X<0

2 5 3 йук йук ха ха 4 6 7 8 9 10 Var a,b,x: real; y: real; begin if x<0 then y:=a*a*x*x+b*x goto 2 else if x>0 then y:=a*sin(x)/cos(x)+ +b*cos(x) goto 2 else y:=a*x+b; 2: writeln (‘натижа у=’, y ); end . Бу дастурда 3-блок бажарилганда 4- блокхисобланади, бажарилмаган да 5-блок шарти текширилади ва бу блок бажарилганда 6-блок хисобланади, бажарилмаганда эса бошкариш автоматик равишда 7- блокка утиб шу блок хиобланади. Паскаль тилида такрорланувчи тузилмали алгоритмларни дастурлаш. Муракаб цикллар асосида дастурлар тузиш. Циклик (такрорланувчи) тузилмали дастур бир пайтда бир ёки бир нечта парметрлар узгаришида, бир гурух операторлар хисоблашини куп марта такрорлаш имконини беради. Масалани куйилишига караб такрорланишлар сони олдиндан маълум булган ва такрорланишлар олдиндан номаълум булган циклга булинади. Циклик структурали дастурлар шартли операторлар ёрдамида ташкил этилиши мумкин. Бу холда циклик параметрини бошлангич кийматини бериш керак, циклда эса бу параметр билан хисоблашни амалга ошириш керак. Агар цикл тугамаган булса, унда хисоблашларни давом эттириш керак.

Цикл оператори FOR такрорланишлар сони олдиндан маълум булган циклларни ташкил этиш учун ишлатилади. Операторнинг умумий куриниши : FOR I:=m 1 TO m 2 DO S; ёки FOR I:=m 1 DOWNTO m 2 DO S; Бу ерда : I - цикл параметри - у хакикий турда булиши мумкин эмас ; m 1 ва m 2 - цикл параметрининг бошлангич ва охирги кийматлари ; S - цикл танаси ( содда ёки таркибий оператор ). TO хизматчи сузида цикл параметрининг узгариш кадами 1 га тенг . DOWNTO да эса -1 га тенг . WHILE оператори хисоблашларни такрорлашлар сони ёзилган шартга боглик булган циклларни ташкил этиш имконини беради . Операторнинг умумий куриниши : WHILE b 1 DO S; b 2 бу ерда b 1 мантикий ифода (шарт, оператор) b 2 ифода ёки оператор булиши мумкин. S -содда ёки такрибий оператордан иборат цикл танаси. Агар мантикий ифода TRUE кийматга эга булса (бажарилса), унда цикл операторлар бажарилади. Мантикий ифода FALSE кийматини кабул килиши билан цикл операторларининг бажарилиши тугалланади. Мисол. S =∑ n=1 50 1 n ни хисоблаш алгоритм блок-схемаси ва дастурини

WHILE операторидан фойдаланиб тузамиз. ха йук Энди FOR операторидан тузамиз Program N1(output); Var s: real; n: integer; begin s:=o; n:=1; while n<=50 do begin s:=s+1/n; n:=n+1; end; writeln(‘ йигинди киймати s=’,s); end. бу йугиндини хисоблаш дастурида такрорланиш жараёни n нинг кийма - ти 50га тенг булгунча давом этади. N нинг киймати 50 дан катта булганидан йигиндини хисоблаш жараёни тухтатилади ва натижа экранга чикарилади. Натижа s =4.499... Фойдаланиб дастур Program N2(output); Var s: real; n: integer; begin s:=o;S=N<=50 тамомN=n+1S=s+1/n N=1 S=0бошлаш S=0бошлаш

for n:=1 to 50 do s:=s+1/n; writeln(‘ йигинди киймати s=’,s); end . йигиндини киймати s =4.499… FOR ва WHILE операторларидан ташкари REPAET оператори ёрдамида хам такрорланиш жараёнини ташкил этиш мумкин . REPAET операторининг умумий куриниши куйидагича REPAET A UNTIL B ; Бу ерда А-операторлар цикл танаси, В-мантикий ифода. Агар В шарт бажарилса бошкариш В дан кейинги операторга утади, В бажарилмаса цикл давом этиши тухтайди. Битта цикл ичига бир ёки бир нечта бошка цикллар кирса, каррали цикл структурали дастурлар хосил булади. Бунда ички циклнинг таъсир доираси уни уз ичига олувчи циклда жойлашади. Мисол. А(10,15) матрицанинг мусбат элементларининг ёзувга чикариш дастурини тузамиз. Хар бир каторда матрицанинг берилган каторига мансуб элементларни ёзувга чикарсин. Агар каторда мусбат элементлар булмаса, у буш булиши керак.

Дастури: PROGRAM MATR ( INPUT , OUTPUT ) CONST IMAX=10;YMAX=15; VAR Y,I:INTEGER; A: ARRAY (1...IMAX,1....YMAX) OF REAL; BEGIN FOR I=1 TO IMAX DO BEGIN FOR Y:=1 TO YMAX DO BEGIN READ (A(I,Y)); IF (A(I,Y))>0 THEN WRITE (A(I,Y):2:2) END; WRITE LN END; END.

Адабиётлар руйхати: 1. Гуломов С.С., Шермухамедов А.Т. ва Бегалов Б.А. Иктисодий информатика. Тошкент-Узбекистон. 1999.- 527 б. 2. Рахмонкулова С.И. IBM PC шахсий компьютерида ишлаш. НМК «ШАРК» - INSTAR Тошкент – 1996, 143 бет. 3. Кушниренко А.Г., Лебедев Г.Б., Сворень Р.А. Информатика ва хисоблаш техникаси асослари. Тошкент: Укитувчи, 1991.240б. 4. Нурмухамедов Т.А. IBM PC ва MS DOS билан танишув. Т:,- ”Мехнат”, 1994. 5. Абдукодиров А.А. ва бошкалар. Хисоблаш математикаси ва программалаш: Пед.Ин-ти Студ.учун укув кулланма. А.А.Абдукодиров, Ф.Н.Фозилов, Т.Н.Умурзоков.:Укитувчи, 1989.-216 б.

Похожие

Аралаш стуктурали алгоритмлар асосида дастурлар тузиш

Tакрорланувчи тузулмали алгоритмлар ва уларни дастурлаштириш. Mураккаб цикллар. Mураккаб алгоритмлар ва уларни дастурлаштириш

Карат мухитида дастур тузиш

Турбо-Паскаль тилида массивлар ва улар билан ишлаш

Дастур тушунчаси. Дастурлаш тиллари классификацияси. Паскаль тили характеристикаси, структураси