Delphi tilida asosiy operatorlar tavsifi



Download 227 Kb.
bet9/10
Sana22.02.2022
Hajmi227 Kb.
#106352
1   2   3   4   5   6   7   8   9   10
Bog'liq
1409027032 58857

Repeat
S

Until B


Бу ерда B -мантиқий ифода, ‘True’ ёки ‘False’ қиймат қабул қилади; S -цикл танаси бўлиб, бир ёки бир неча операторлар кетма-кетлигидан иборат бўлиши мумкин. Агар мантиқий ифода ‘False’ қиймат қабул қилса циклда такрорланиш давом этади, акс ҳолда тўхтайди.
Мисол. 1,2,...,10 coнлар йиғиндисини ҳисоблаш дастурсини тузинг.
Program S10;
Const kn=10;
Var i: Integer; S: Real;
Begin
S:=0; i:=0;
Repeat
i:=i+1; S:=S+i;;
Until I>kn;
Write (‘S=’,S);
Readln;
End.
Одатда WHILE оператори REPEAT операторига нисбатан кўп ишлатилади. Бунга сабаб кўпчилик масалаларда цикл тугалланиш шарти цикл бошланмасдан текшириш мақсадга мувофиқдар. Зарур бўлса циклни умуман бажармасдан ўтиш мумкин.
Кўпчилик масалаларни ечишда тузилган дастурда ичма-ич жойлашган цикллар ташкил этишга тўғри келади. Бундай циклларга мураккаб цикллар дейилади. Мураккаб цикллар ташкил этилганда қуйидаги талаблар бажарилиши зарур.
-ички цикл ташқи цикл ичида тўлиқ ётиши керак;
-цикллар бир-бири билан кесишмаслиги керак;
-цикл ичига ташқаридан тўғридан-тўғри кириш мумкин эмас;
-цикл параметрлари бошқа-бошқа идентификаторлар билан белгила-ниши керак;
Мисол. ифодани ҳисоблаш дастурсини тузинг.
Бу формулада агар йиғиндини очсак у қуйидаги кўринишга келади.

Program SP;
Var
i,j: Integer; S: Real;
Begin
S:=0;
For i:=1 to 10 do
Begin
P:=1;
For j:=1 to 5 do P:=P*(i+j)/Sqrt(i*j);
S:=S+P;
End; Write (‘S=’,S);
End.


    1. Amaliy masalaning berilishi va uning algoritmi

Agar =(4,2; 3; 6; 5,3;) ekanligi malum bo’lsa




ni hisoblang.
Ushbu masalani echish algoritmini blok-sxemasi quyidagicha bo`ladi.





    1. Download 227 Kb.

      Do'stlaringiz bilan baham:
1   2   3   4   5   6   7   8   9   10




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