Турбо-Паскалда содда программалар тузиш. Операторлар - Информатика и ИТ - Рефераты

Турбо-Паскалда содда программалар тузиш. Операторлар

Загружено в:

20.09.2019

Скачано:

0

Размер:

79 KB

Турбо-Паскалда содда программалар тузиш. Операторлар Режа: 1. Умумий маълумотлар 2. К иритиш-чикариш процедуралари 3. Чикариш форматлари 4. Энг содда операторлар 5. Структурали операторлар

ЭХМда энг содда масалани ечишда хам киритиш-чикариш амалидан фойдаланилади. Берилганларни киритиш - ташки ташувчидан оператив хотирага кайта ишлаш учун олиб утиш, чикариш-тескари жараен, бунда берилганлар кайта ишлаш. Кейин оператив хотирадан ташки ташувчига олиб утилади. Ташки ташувчи сифатида, киритиш-чикариш юмшок (диск) еки каттик (винчестер) магнит диск ва бошка курилмалар, хизмат килиши мумкин. Паскаль тилида стандарт одам ва ЭХМ уртасидаги мулокат воситаси бу олдиндан аникланган ва файллари хизмат килади. Улар эълон килинмаганда дастур параметрлари булиб хизмат килади. Дастур киритиладиган маълумот файлидан олади ва ишлов берилган натижани файлга езади. Файлига стандарт клавиатура белгиланган, файлга эса - терминал экрани киритиш чикариш процедураси. Укиш процедураси, езиш процедураси. Киритиш-чикариш амалини бажаришда 4 та процедура ишлатилади: Берилган мавзуда уларни ишлаш жараени курилади . Клавиатурадан берилганларни киритиш ва экранга чикариш , чоп этиш курилмалари символларни , каторларни ва укиш процедурасида сонли берилганларни киритиш ва навбатдаги дастур билан ишлов беришни таъминлайди. Ёзилиши: Read (X1, X2,...,Xn); еки Read (FV, X1, X2,...,Xn); бу ерда этилган берилган типлари узгарувчилар файл билан богланган узгарувчи Берилган мавзуда фарматнинг 1 чи варианти киритилади . Уларнинг белгиси минимум 1 пробел оралиги билан клавиатура киритиш ва экранда куринади 1 Read процедурасининг берилганлари киритилгандан кейин Enter босилади Узгарувчиларни белгилари Паскаль тилининг синтаксиси катъий муносабатда киритиш . Агар муносабат бузилса , ( масалан , х 1 integer типда , киритганда эса char типи киритилган ) киритиш - чикариш хатолари пайдо булади . Хатони эълон килиш куйидаги

куринишда булади . Хато коди , бу ерда тушунтириш матни дастурни тухташи сабабини аниклайди . Мисол . VAR I : real; J : integer; K : char; BEGIN Read (I, J, K); . . . Жавобнинг 1 чи варианти . Биринчи вариант берилганларни тугри киритишни таълим , киритилаетган берилганлари узгартириш типидаги тугри келади . Процедурасидаги 2 чи вариант 10 ули хатони чикаради , узгариш учун Read типни урнига char типи киритилганлиги учун . Агарда дастурда бир нечта Read процедураси булса , берилганлар киритилгандан кейинги Read процедурасининг берилганлари киритилади катор тугагандан сунг кейинги каторга утилади . Мисол . VAR A, B, Sum1 : integer; C, D, Sum2 : real; ... BEGIN Read (A, B); Sum1 := A + B; Read (C, D); Sum2 := C + D; ... END. Клавиатурадан куйидагилар киритилади : 18758 34 2.62E-02 1.54E+01.

Хар бир берилганлар жуфтлиги киритилгандан сунг Enter тугмачаси босилади , яъни . 18758 34 Enter 2.62 Е -02 1.54 Е +01 Enter. Укиш процедураси Readln худди Read процедурасига ухшайди , битта фаркли томони шуки , Readln процедурасида берилганларнинг 1- катори тугагандан сунг кейинги катор берилганлари укилади . Агар юкоридаги мисолда Read процедурасини Readln процедурасига алмаштирсак : . . . Readln (A, B); Sum1 := A + B; Readln (C, D); Sum2 := C + D; . . . клавиатурада А ва В ларнинг кийматлари киритилгандан сунг курсор автоматик равишда кейинги каторга утади , бунда C ва D ларнинг кийматлари киритилади : 18758 34 Enter 2.62 Е -02 1.54 Е +01 Enter Езиш процедураси Write сонли берилганларни , символларни , каторларни ва булев кийматларини чикаришни таъминлайди . Формати : Write (Y1, Y2,...,Yn); еки Write (FV, Y1, Y2,...,Yn); Бу ерда Y1, Y2,...,Yn - integer, byte, real, char, boolean ва хакозо типдаги ифодалар . FV - файл номи, бу ерга чикарилган натижалар езилади. Принтерга чикариш учун FV киймати Lstга тенглаштирнилади. Lst курилмаси ишга тушиши учун албатта USES сузи ердамида Printer модули уланиши шарт . Мисол. USES Printer;

VAR ... BEGIN Write(234); {ифода кийматларда такдим килинган} Write(A+B-2); {ифоданинг натижаси чикарилади} Write(Lst, 'хисоблаш натижалари = ', Result1); END. Форматнинг биринчи вариантида Y1, Y2,...,Yn ларнинг кийматлари экранга чикарилади, иккинчи вариантда эса чоп этиш курилмасига. Езиш оператори Writeln худди Write процедурасига ухшайди,лекин руйхат охиридаги жорий процедуранинг киймати чикарилгандан кейин курсор кейинги каторнинг бошига утади. Параметрларсиз езилган Writeln процедураси каторнинг утишига олиб келади.Writeln процедурасини ишлаш жараенини курсатиш учун программанинг кисмини курамиз: A := 4; B := 6; C := 55; Write(A:3); Write(B:3); Write(C:3); Sum:= A + B + C; Writeln('A=', A); Writeln('B=', B); Writeln('C=', C); Writeln(' A+B+C йигиндиси тенг ', Sum); Натижа: 4 6 55 A=4 B=6 C=55 А+В+С йигиндиси 65 га тенг.

Содда операторлар Операторларнинг булувчиси, содда операторлар ,шартсиз утиш оператори,процедурани чакириш оператори, буш оператор, узлаштириш оператори, структурали оператор. Turbo Pascal тилидаги программанинг асосий кисми операторлар кетма - кетлигидан иборат, хар битта оператор берилганлар устида амал бажаради . Операторларнинг булувчиси сифатида нукта вергул белгиси ишлатилади. Turbo Pascal тилидаги хамма операторлар икки гурухга булинади : содда ва структурали. Таркибига бошка операторлар кирмаган операторлар содда операторлар дейилади. Бунга узлаштириш оператори, шартсиз утиш оператори, процедурани чакириш оператори ва буш операторлар киради. Узлаштириш оператори (:=) унг томонда берилган ифодани бажаришни ва унинг кийматини чап томонда турган узгарувчига тенглаштиради. Ифода ва узгарувчининг типи бир хил булиши керак. Мисол: FuncKey := False; Ch := 'G'; Sum := X + Y; Шартсиз утиш оператори (goto) "... га утиш " деган маънони англатади ва у бирор оператор бажарилгандан кейин навбатдаги операторни бажаришга эмас балки бошка бирор белги ердамида белгиланган операторни бажаришда ишлатилади . Эслатиб утамиз, белги ракам еки харф символидан иборат булиши мумкин. Мисол : GOTO 999; GOTO EndBlock; Goto оператори ишлатилганда белги таъсир киладиган жой бу факат шу оператор езилган блок булиши мумкин. Бошкаришни бошка блокка узатиш ман этилади.

Процедуранинг чакириш оператори фойдаланувчи томонидан белгиланган процедурани еки стандарт процедурани ишга тушириш учун ишлатилади. Масалан : ClrScr; { стандарт процедурани чакириш } InitWork(True); { фойдаланувчи процедурасини чакириш } Буш оператор хеч кандай амал бажармайди ва унинг таркибида хеч кандай символлар йук. Одатда буш оператор локал еки глобал блокнинг охирига утишда ишлатилади : LABEL Metka; ... BEGIN ... GOTO Metka; { переход в конец блока } ... Metka: { пустой оператор помечен меткой } END; Структурали операторлар катъиян белгиланган коидалар буйича бошка операторлардан тузилган операторлардир. Хамма структурали операторлар уч гурухга булинади: таркибий , шартли, кайтариладиган . Таркибий оператор бу бир-биридан нукта вергул белгиси ва BEGIN ва END операторли кавслар ердамида ажратилган операторлар гурухидир: BEGIN <оператор;> ... <оператор> END; Таркибий оператор программанинг хохлаган тилнинг синтаксиси рухсат берадиган кисмида жойлашиши мумкин .

Шартли операторлар. Шартли оператор,шарт, жойлаштирилган операторлар. Turbo Pascal тилида иккита шартли операторлар мавжуд : IF ва CASE. IF шартли оператори , операторларнинг бажарилиш жараенининг табиий холатини узгартирадиган энг куп воситалардан бири. У куйидаги куринишлардан бирига эга булиши мумкин: IF <шарт> THEN <оператор1> ELSE <оператор2>; IF <шарт> THEN <оператор>; Шарт - бу булев типдаги ифода . Биринчи холатда , агар ифода киймати хакикат булса , <оператор1>бажарилади , агар хакикат эмас булса <оператор2>бажарилади. Иккинчи холатда - агар ифода натижаси True булса , <оператор>бажарилади, агар False булса - IF операторидан кейинги оператор бажарилади. IF операторлари жойлаштирилган булиши мумкин . Мисол : Read(Ch); IF Ch='N' THEN Parol:= True ELSE Parol:= False; Read(X); IF Parol = True THEN IF X = 100 THEN Write('Пароль и код правильны.'); ELSE BEGIN Writeln(' Ошибка в коде .'); Halt(1) END; Танлаш оператори . Танлаш оператори,селектор,параметрлар руйхати,танлаш узгармаслари руйхати.

Танлаш оператори CASE мавжуд вариантлардан танлаш имкониятини беради. У хар бирига танлаш узгармаслари руйхати (руйхат битта узгармасдан иборат булиши мумкин) тегишли селектор деб номланган ифодадан ва параметрлар руйхати дан иборат. Формати: CASE <ифода-селектор> OF <руйхат1>: <оператор1; > <руйхат к2>: <оператор2; > . . . <руйхат N>: <операторN> ELSE <оператор> END; Узгармаслар типи доим селектор типига тугри келиши керак . Селектор учун real ва string типлари ман этилган. CASE оператори куйидагича ишлайди. Биринчи навбатда селектор- ифода киймати хисобланади, кейинги навбатда жорий селектор кийматига тенг булган узгармас катнашган оператор бажарилади. Агар хеч кайси узгармас селекторнинг жорий кийматига тенг булмаса ELSE сузидан кейинги оператор бажарилади. Агар ELSE сузи булмаса END сузидан кейинги оператор ишга тушади,яъни CASE чегарасидан кейинги оператор. Селектор бутун сонли ( -32768..32767 диапазонида булган) булев, литер еки фойдаланувчи типига боглик булиши керак . Узгармас кийматлар руйхати тасодифий киймат еки диапазондан иборат, улар бир-биридан вергул ердамида ажратилади. Диапазон чегаралари иккита бири-биридан ".." белгиси ердамида ажратилган узгарамас сонлар ердамида езилади. Узгармаслар типи селектор типига тугри келиши керак. Куйида CASE операторининг типик езилиш тартиби курсатилган: Интервал типли селектор : CASE I OF 1..10: Writeln (' ракам ', I:4, ' диапазон 1 - 10');

11..20: Writeln (' ракам ', I:4, ' диапазон 11 - 20'); 21..30: Writeln (' ракам ', I:4, ' диапазон 21 - 30') ELSE Writeln ('число ', I:4, ' контроля чегарасидан ташкарида') END; Бутун сон типли селектор : CASE I OF 1: Z := I + 10; 2: Z := I + 100; 3: Z := I + 1000 END; Фойдаланувчи хисоб типли селектор: VAR Season: (Winter, Spring, Summer, Autumn); BEGIN ... CASE Season OF Winter: Writeln('Winter'); Spring: Writeln('Spring'); Summer: Writeln('Summer'); Autumn: Writeln('Autumn') END; END; Кайтариш операторлари Цикл, кайтариш операторлари, цикл сарлавхаси ва танаси FOR, REPEAT, WHILE кайтарилиш операторлари ихар хил типли циклларни яратишда ишлатилади. FOR кайтарилиш оператори цикл сарлавхаси ва танасидан иборат. У иккита форматда булиши мумкин: FOR < цикл параметри> := <S1> TO <S2> DO <оператор>;

FOR < цикл параметри > := <S1> DOWNTO <S2> DO < оператор >; S1 ва S2 - ифодалар , цикл параметрининг бош ва охирги кийматини аниклайди . FOR ... DO - цикл сарлавхаси , < оператор > - цикл танаси . Цикл танаси содда ёки таркибий оператордан иборат булиши мумкин . FOR оператори циклнинг параметрлари бош ва охирги кийматлари бажарилиб булгунча цикл танасини ишини бошкаради . Мисол : FOR I:= 1 TO 100 DO Read(M[I]); { массив элементларини укиш } FOR I:= 100 DOWNTO 1 DO Write(M[I]); { массив элементларини чикариш } Цикл параметри, унинг бош ва охирги киймати берилганларнинг битта типига карашли булиши керак. Бунда хохлаган скаляр тип катнашиши мумкин, хакийкийдан ташкари. REPEAT кайтариш оператори REPEAT сарлавхадан, танадан ва UNTIL шартдан иборат. Ёзилиши: REPEAT <оператор;> ... <оператор> UNTIL <шарт>; REPEAT ва UNTIL сузлари орасидаги операторлар, цикл танаси хисобланади. Энг аввало цикл танаси бажарилади, кейнги навбатда циклдан чикиш шарти текширилади. Агар булев ифоданинг натижаси False га тенг булса, у холда цикл танаси яна бир бор активлашади, агар натижа True га тенг булса - циклдан чикилади. Цикл операторларидан хеч булмаганда биттаси шарт кийматига таъсир курсатиши керак, акс холда цикл тухтамайди. Куйидаги фрагментда Y ва N тугмачалари босишни кутишда REPEAT оператори ишлатилиши курсатилган. Бошка тугмачалар босилиши таъсир килмайди:

USES Crt; VAR YN: char; BEGIN ... REPEAT YN:= ReadKey UNTIL UpCase(YN) IN ['Y','N']; ... END. WHILE оператори худди REPEAT операторига ухшайди , лекин цикл танасининг бажарилиш шарти оператор бошида текширилади . Формати: WHILE <шарт> DO < цикл танаси>; Шарт - булев ифода, цикл танаси - содда ёки таркибий оператор. Цикл танаси хар бир бажарилишидан олдин шарт ифодасининг киймати хисобланади. Агар натижа True га тенг булса, цикл танаси бажарилади ва яна шарт ифодаси хисобланади. Агар натижа False га тенг булса, циклдан чикилади ва WHILE дан кейинги биринчи операторга утилади. WHILE ишлаш тартибини куриш учун DemoWhile дастури мисол була олади, бу программа 10 тасодифий киритилган бутун сонлар йигиндисини хисоблайди. PROGRAM DemoWhile; CONST Limit = 10; { киритиладиган сонлар микдори чегараси } VAR Count, Item, Sum: integer; BEGIN Count:= 0;

Sum:= 0; WHILE (Count < Limit) DO BEGIN { цикл бажарилиш шарти } Count:= Count+1; Write(' Бутун ', Count, '- чи сонни киритинг : '); Readln(Item); Sum:= Sum+Item; END; Writeln(' Киритилган сонлар йигиндиси тенг ', Sum); END. Пунктуация коидалари Операторларни ёзишда куйидаги пунктуация коидаларига риоя килиш керак: 1. Нукта вергул белгиси UNIT, USES, LABEL, TYPE, CONST, VAR резервланган сузларидан кейин куйлмайди ва хар бир описаниедан кейин куйилади. 2. Нукта вергул белгиси BEGIN сузидан кейин ва END сузидан олдин куйилмайди, чунки бу сузлар оператор эмас, балки оператор капвсларидир 3. Нукта вергул операторларни ажратиши учун хизмат килади, агар у операторлар орасида куйилмаса компиляцион хато вужудга келади 4. Цикл операторларида нукта вергул белгиси WHILE, REPEAT, DO лардан кейин ва UNTIL дан олдин куйилмайди. 5. Шартли операторларда нукта вергул THEN дан кейин ва ELSE дан олдин куйилмайди.

Похожие

Турбо-Паскалнинг модуллари ва фойдаланувчи модулини яратиш. System модулининг процедура ва функциялари

Паскал программалаш тили

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

Паскал тилининг асосий типлари ва Паскал программанинг структураси

Процедура – операторлар