Ўзбекистон Республикаси Олий ва Ўрта Махсус таълим вазирлиги Фаргона политехника институти



Download 1,17 Mb.
bet17/69
Sana28.06.2022
Hajmi1,17 Mb.
#712699
1   ...   13   14   15   16   17   18   19   20   ...   69
Bog'liq
PASCAL

2.22Кайтариш операторлари


Цикл, кайтариш операторлари, цикл сарлавхаси ва танаси

FOR, REPEAT, WHILE кайтарилиш операторлари ихар хил типли циклларни яратишда ишлатилади.


FOR кайтарилиш оператори цикл сарлавхаси ва танасидан иборат. У иккита форматда булиши мумкин:
FOR < цикл параметри> := TO DO <оператор>;
FOR < цикл параметри > := DOWNTO 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.

Download 1,17 Mb.

Do'stlaringiz bilan baham:
1   ...   13   14   15   16   17   18   19   20   ...   69




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish