КАТЕГОРИИ:


Астрономия- (809) Биология- (7483) Биотехнологии- (1457) Военное дело- (14632) Высокие технологии- (1363) География- (913) Геология- (1438) Государство- (451) Демография- (1065) Дом- (47672) Журналистика и СМИ- (912) Изобретательство- (14524) Иностранные языки- (4268) Информатика- (17799) Искусство- (1338) История- (13644) Компьютеры- (11121) Косметика- (55) Кулинария- (373) Культура- (8427) Лингвистика- (374) Литература- (1642) Маркетинг- (23702) Математика- (16968) Машиностроение- (1700) Медицина- (12668) Менеджмент- (24684) Механика- (15423) Науковедение- (506) Образование- (11852) Охрана труда- (3308) Педагогика- (5571) П Arhitektura- (3434) Astronomiya- (809) Biologiya- (7483) Biotehnologii- (1457) Военно дело (14632) Висока технологиите (1363) Geografiya- (913) Geologiya- (1438) на държавата (451) Demografiya- ( 1065) Къщи- (47672) журналистика и SMI- (912) Izobretatelstvo- (14524) на външните >(4268) Informatika- (17799) Iskusstvo- (1338) История- (13644) Компютри- (11121) Kosmetika- (55) Kulinariya- (373) култура (8427) Lingvistika- (374) Literatura- (1642) маркетинг-(23,702) Matematika- (16,968) инженерно (1700) медицина-(12,668) Management- (24,684) Mehanika- (15423) Naukovedenie- (506) образование-(11,852) защита truda- (3308) Pedagogika- (5571) п Политика- (7869) Право- (5454) Приборостроение- (1369) Программирование- (2801) Производство- (97182) Промышленность- (8706) Психология- (18388) Религия- (3217) Связь- (10668) Сельское хозяйство- (299) Социология- (6455) Спорт- (42831) Строительство- (4793) Торговля- (5050) Транспорт- (2929) Туризм- (1568) Физика- (3942) Философия- (17015) Финансы- (26596) Химия- (22929) Экология- (12095) Экономика- (9961) Электроника- (8441) Электротехника- (4623) Энергетика- (12629) Юриспруденция- (1492) Ядерная техника- (1748) oligrafiya- (1312) Politika- (7869) Лево- (5454) Priborostroenie- (1369) Programmirovanie- (2801) производствено (97182) от промишлеността (8706) Psihologiya- (18,388) Religiya- (3217) с комуникацията (10668) Agriculture- (299) Sotsiologiya- (6455) спортно-(42,831) Изграждане, (4793) Torgovlya- (5050) превозът (2929) Turizm- (1568) физик (3942) Filosofiya- (17015) Finansy- (26596 ) химия (22929) Ekologiya- (12095) Ekonomika- (9961) Telephones- (8441) Elektrotehnika- (4623) Мощност инженерно (12629) Yurisprudentsiya- (1492) ядрена technics- (1748)

За Cycle броене




изявления контур

Варианти на оператора дело

Ако условен израз

Null изявление (;)

Повикването на оператор на процедура или функция

<Процедура / име функция> [(<аргументи>)]. Контролът се прехвърля към споменатата процедура или функция със съответните стойности на аргументи. Функция повикване може да бъде всеки израз. Вложени функции допускат в поканата.

Празна изявление може да се използва за организиране на празни цикли, преходът към края на отчета за съединение.

Ако <състояние> Тогава <изявление-1> [Друго <изявление 2>];

<Състояние> - всеки израз на логически тип. Ако това е - истината, тогава <изявление-1> и <изявлението 2> се пропуска. Ако състоянието не е верен, <изявлението 1> се пропуска, и се извършва <изявление 2>. Това даде възможност вложени условни конструкции. Когато вложени вграждане оператор Else съответства на най-близките Ако.

Дело <клавиш за избор> От

<Списък-1> <изявление-1>;

...

<-list п>: <оператор п>

[Друго <оператор>]

Край;

Ключ за избор - е израз на типа на последователност (не реални числа и стрингове), стойността на който определя избора на желания оператор да направи смисъла на този израз, който принадлежи към един от списъците.

Списък - I - списък на номера, варира, или други видове константи разделени със запетая. Ако стойността изберете бутона принадлежи към списъка-тото, тогава операторът стои след този списък.

Иначе, определен от оператора, който се изпълнява, когато стойността не принадлежи на някой от списъците.

Пример един знак анализ потребителското отговор:

Var Otvet: Char // декларация на променлива със символа на отговор на потребителя

... Case Of Otvet // анализ на възможните варианти за потребителското отговор

"Y", "Y", " г", "D": PrYes; // положителен отговор - програмируем изпълнение. PrYes

"N", "N", " М", "H": PrNo; // отрицателен отговор - програмируем изпълнение. PrNo

Иначе ShowMessage ( "Грешен отговор! '); // невалидни знаци

Можете да се измъкнем преди всеки цикъл, като се използва изявлението на почивката и преминете към следващия цикъл на повторение, като се използва процедурата Продължи.

За <брой>: = <първоначална стойност> {Да | Downto} <край стойност>

Смятате <изявление>;

<Counter> - цифрова променлива, която се увеличава автоматично (или декрементирани ако е посочено Downto) след оператора с първоначалната стойност до крайна стойност.

Това даде възможност на цикъла за гнездене.



Пример О Процедура зарежда:

Процедура TForm1.Button1Click (Sender: TObject); // глава процедура

Var, Й: цяло число; prostoe: булева; // декларира променливи

Започнете // начало на операторите на секциите

Защото: = 3-100 Do // външен изглед на номера цикъл 3-100

Започнете prostoe: = True; // началото на външния контур на тялото

За J: = 2 до I-1 Do // започне на вътрешния контур разделители избора на I на

Ако аз мод й = 0 тогава Започнете prostoe: = False; Счупете; Край; // съставно число и

Ако prostoe след Label1.Caption: = Label1.Caption + IntToStr (I) + ","; // прост и

Край // край на външния контур

Край // край на процедурата,

1.4.8.2. Цикъл повтаряща До

Повторете <оператори тялото цикъл> До <тип състояние все още не разполага с>;

След извършване на състоянието на тялото на оператора на цикъла се тества, и ако е вярно, тогава цикълът завършва, друг - повторенията цикъл.

Пример. Изчислява се сумата от серия 1 + 1/2 + 1/3 + ... 1 / п, до 0.0001 (до 1 / п <0.0001).

Процедура TForm1.Button1Click (Sender: TObject); // глава процедура

Var I: цяло число; ите: реален; Строителство е = 0.0001; // декларира променливи и константи

Започнете S: = 0; I: = 0; Повторете I: = I + 1; S: = S + 1 / и До (1 / и) <Е; // сумиране цикъл

Label1.caption: = FloatToStr (и) Край; // изписват сумата и в края на процедурата,