Главное меню delphi


Var j : integer;rez : LongInt;  Procedure



Download 0,82 Mb.
Pdf ko'rish
bet17/21
Sana09.07.2022
Hajmi0,82 Mb.
#759077
TuriЛекция
1   ...   13   14   15   16   17   18   19   20   21
Bog'liq
rus 9 DELPHI

Var
j : integer;rez : LongInt; 
Procedure
Sum; 
Begin
rez := 0; n=100; 
FOR
j := 5 
To

Do
Inc(j); rez := rez+j; 
mmOut.Lines.Add:=’Сумма чисел от 5 до 100 равна ’+IntToStr(rez);
End

Как видите, код значительно уменьшился в объеме и стал более удобен для чтения.
В приведенном примере с каждым шагом цикла переменная-счетчик увеличивается на единицу, 
но иногда необходимо, чтобы счетчик уменьшался
 
с каждым шагом цикла. для этого вместо слу-
жебного слова To используется служебное слово DownTo. Предыдущий пример можно модифициро-
вать так, чтобы он вычислял сумму любых чисел, как положительных, так и отрицательных. При n<0 
в том виде как записано выше тело цикла выполнится только один раз. потому что 1>0. Предполо-
жим, что значение n передается извне, тогда наш пример можно записать так: 
Var
j : integer; rez : extended; 


24 
Procedure
Sum; 
Begin
rez := 0; 
IF
n>0 
THEN
FOR 
j := 5 
To
100 
Do
Inc(j); rez := rez+j 
ELSE
FOR
j := 5 
DownTo
100 
Do
Inc(j); rez := rez+j; 
mmOut.Lines.Add:=’Сумма чисел от 5 до 100 равна ’+IntToStr(rez);
End

Счетные циклы очень быстрые и генерируют компактный исполняемый код, но всем им присущ 
один традиционный недостаток, – параметр должен принадлежать перечислимому типу, а шаг не 
может быть изменен. Для организации циклов с произвольным шагом применяются другие операто-
ры циклов. Счетный оператор цикла допускает любую глубину «вложенности», т.е. он может содер-
жать внутри себя любое количество счетных операторов цикла, которые также могут иметь вложен-
ные циклы. 
Итак, счетный оператор цикла имеет параметр цикла – переменную счетчик. Мы задаем грани-
цы изменения счетчика, определяя, таким образом, число повторений. Другие два оператора цикла не 
имеют собственных параметров, а связаны только с проверкой какого-либо условия. Рассмотрим их. 
Оператор цикла с предусловием – WHILE

WHILE <условие> DO <оператор> 
WHILE и DO – зарезервированные слова (пока [выполняется условие] делать…); условие – это 
логическое выражение; оператор – пустой, простой или составной оператор, называемый телом цик-
ла. Условие может быть как логическим выражением, так и переменной логического типа.
Если при исполнении программы встречается этот оператор, то компьютер проверяет условие 
данного оператора, если оно имеет значение True, то выполняется тело цикла и управление передает-
ся вновь на проверку условия. Если же условие имеет значение False, то программа переходит к вы-
полнению действий, следующих за телом цикла. 
При написании циклов с предусловием следует помнить о двух вещах. Во-первых, чтобы цикл 
имел шанс когда-нибудь завершиться, содержимое тела цикла должно обязательно влиять на условие 
цикла. Во-вторых, условие должно состоять из корректных выражений, определенных еще до перво-
го выполнения тела цикла. Поясним сказанное на примере вычисления факториала числа N. 

Download 0,82 Mb.

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




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