Условный оператор IF в Delphi » DelphiComponent.ru
Условный оператор IF в Delphi
Если взять один кирпич, мало толку в нём, Потому что из него не построишь дом. Если пару кирпичей рядом положить, Будет только две стены — неудобно жить.
Песенка Тыквы из мультфильма Чиполлино
С условными операторами будущий программист знакомится уже в раннем детстве благодаря педагогическому усердию родителей. Папа воспитывает кнутом, а мама — пряником: «Если ты будешь себя хорошо вести, то получишь большую сладкую конфету, а иначе не пойдёшь гулять во двор». В переводе на скупой язык Delphi мамины посулы выглядели бы так:
IF условие THEN результат1 ELSE результат2;
Здесь условие — «хорошее поведение»; результат1 — «конфета»;
результат2 — «временное ограничение свободы».
Действует эта воспитательная конструкция — как в жизни: если условие соблюдено, то подопечный получает конфету, не соблюдено — принудительная домашняя отсидка.
Более лапидарный родитель, коим является отец семейства, изложил бы свои требования в более категоричной форме: «Если получишь двойку, то выпорю».
IF условие THEN результат;
В школе порка запрещена, поэтому там так мало настоящих педагогов- мужчин.
А теперь о том же, но — серьёзно!
Условный оператор IF служит для того, чтобы изменять порядок выполнения операторов в программе в зависимости от некоторого логического условия. Он имеет две формы — сокращённую и полную:
IF условие THEN оператор; IF условие THEN оператор1 ELSE оператор2;
Обратите внимание: весь оператор IF это единое предложение, поэтому ни перед словом THEN, ни перед словом ELSE точка с запятой не ставится!
Условие в этих записях — обычное логическое выражение, в котором используются знаки операций сравнения =, <, > и другие. Результатом логического выражения может быть константа TRUE (истина) или FALSE (ложь).
Действует условный оператор так.
Если условие удовлетворено (значение выражения равно TRUE), то выполняется оператор после слова THEN. Если не удовлетворено, то для сокращённой формы оператор пропускается, а управление передаётся следующему за ним оператору. Для полной формы выполняется оператор2.
Например, если мы хотим найти большее из двух чисел, то легко сделаем это с помощью условного оператора:
var max, n1, n2: integer; if n1 > n2 then max:= n1 else max:= n2;
Если после THEN и ELSE нужно выполнить несколько операторов, то следует использовать составной оператор BEGIN — END.
Если после зарезервированных слов THEN и ELSE следует условный оператор IF, то он называется вложенным. В этом случае каждый элемент ELSE относится к ближайшему оператору IF, который не имеет ELSE.
В этой записи ELSE принадлежит второму, вложенному, оператору IF:
IF усл1 THEN IF усл2 THEN оп1 ELSE оп2;
Если ELSE должен входить в состав первого оператора IF, то используйте составной оператор:
IF усл1 THEN begin IF усл2 THEN оп1 end ELSE оп2;
А в этой — первому оператору IF:
IF усл1 THEN оп1 ELSE
Помоги проекту! Расскажи друзьям об этом сайте:
If then else в Delphi
Операторы
If Then Else (Условия, условные операторы в Delphi)Чтобы понять, что означает условный оператор If и вся конструкция If then else, ее просто нужно перевести на русский язык.
Оператор If — не зря назван условным, он предназначен для работы с условиями. К программированию на Delphi это имеет следующее отношение…
Допустим нам нужно, чтобы программа произвела какие нибудь действия, в зависимости от исхода какого нибудь события, например:
если a<>b тогда c=d+e иначе c=d*e ,
Тут как раз к нам на помощь и приходит конструкция, If then else, — призванная реализовать нашу задумку.
Записываем, теперь то же условие, только уже на языке понятном программе:
1 2 3 4 5 6 7 8 | var a,b,c,d,e: Integer; begin if a<>b then //если a<>b тогда с:=d+e else //иначе, выполнить действия ниже c:=d*e; end; |
Кстати, применение секции
else в нашей конструкции, не является обязательным, если мы например хотим сформулировать условие, без else, например:1 2 3 4 5 6 | var a,b,c,d,e: Integer; begin if a<>b then // если a<>b тогда с=d+e иначе — ничего не делать; с:=d+e; end; |
Этот пример, тоже будет работать.
Здесь только важно обратить внимание на синтаксис. Если мы применяем постусловие else, то после выражения, за которым оно следует, знак — ; (точка с запятой) — не ставится. Если мы не применяем постусловие — else, тогда наоборот знак — ; (точка с запятой) — ставится обязательно.
Здесь только важно обратить внимание на синтаксис. Если мы применяем постусловие else, то после выражения, за которым оно следует, знак — ; (точка с запятой) — не ставится. Если мы не применяем постусловие — else, тогда наоборот знак — ; (точка с запятой) — ставится обязательно.Если нужно, чтобы после проверки условия выполнился — ряд операций, тогда этот ряд после
«if — then» нужно заключить в конструкцию «begin — end». Например мы хотим, чтобы после проверки if a<>b then выполнились не только с:=d+e, но еще f:=f*h, и i:=j/k, тогда пишем код следующим образом:1 2 3 4 5 6 7 8 9 10 | var a,b,c,d,e,f,g,h,i,j,k: Integer; begin if a<>b then // если a<>b тогда с=d+e иначе — ничего не делать begin с:=d+e; f:=f*h; i:=j/k; end; end; |
Если все-таки нужно применить постусловие
else, например, в случае, если a<>b — ложно, выполнить — l:=m-k, Тогда после — end, идущего перед else, знак — ; (точка с запятой) — не ставится.
См пример ниже:1 2 3 4 5 6 7 8 9 10 11 12 | var a,b,c,d,e,f,g,h,i,j,k,l,m,k: Integer; begin if a<>b then // если a<>b тогда с=d+e иначе — ничего не делать begin с:=d+e; f:=g*h; i:=j/k; end else l:=m-k; end; |
Далее рассмотрим некоторые тонкости.
Например, если в операции
if — then нам нужно рассмотреть несколько условий, например — если a<>b и z<=0, тогда выполнить с:=d+e; мы эти свои два условия a<>b и z<=0 объединяем при помощи логической операции and, а сами условия берем в скобки.1 2 3 4 5 6 | var a,b,c,d,e,z: Integer; begin if (a<>b) and (z<=0) then // если a<>b и z<=0, тогда с:=d+e; иначе — ничего не делать с:=d+e; end; |
Здесь у нас and — означает и, а еще можно объединять условия при помощи логических операций or — или, not — не, или других операций — xor например.
Еще, отдельного рассмотрения требует
вложенность условий, например когда мы хотим реализовать следующее:если a<>b тогда проверяем если z<=0 тогда c:=d+e; иначе c:=0; Записываем:
1 2 3 4 5 6 7 8 9 | var a,b,c,d,e,z: Integer; begin if a<>b then if z<=0 then // если a<>b и z<=0, тогда с:=d+e; иначе — ничего не делать с:=d+e else // относится к if где — z<=0 c:=0; end; |
В этом примере не все условные операторы имеют постусловие else. И чтобы понимать к какому из упомянутых дважды в нашем коде — 
Новости города — Новости города Дельфи
В сентябре город Дельфы будет промывать пожарные гидранты по всему городу. Гидранты на южной стороне Дир-Крик будут промываться с 6 по 16 сентября. Гидранты в остальной части города будут промываться с 18 по 30 сентября.
Если у вас вода ржавого цвета, откройте краны, пока вода не станет чистой. Также запустите стиральную машину на один полный цикл перед стиркой одежды.
Если у вас есть вопросы, обращайтесь в отдел водоснабжения города Делфи по телефону 564-3944. Мы очень ценим ваше сотрудничество в этом вопросе.
280 просмотров
Теги:
Новости
280 просмотров
В городе Дельфы открыта вакансия на полную ставку для сотрудника в Департамент водоснабжения. Отличные преимущества. Описание вакансии и информацию о заработной плате можно найти по этой ссылке:
Должностная инструкция работника отдела водоснабжения 2022
Контактное лицо: Департамент водного хозяйства Этот адрес электронной почты защищен от спам-ботов.
У вас должен быть включен JavaScript для просмотра. для получения дополнительной информации.
632 Просмотров
Теги:
Новости
632 Просмотров
С понедельника, 23 мая, перекресток улиц Монро и Маркет станет остановкой для четырехстороннего движения. Обратите внимание на все знаки и стоп-сигналы.
865 Просмотров
Метки:
Новости
865 Просмотров
Весенняя уборка для жителей Дельфи состоится в субботу, 7 мая. Все предметы должны быть размещены на обочине до 6:00 утра в день получения. Подрядчик мусора не вернется во второй раз. Вещи должны быть размещены в упорядоченном порядке на обочине. Следующие предметы НЕ принимаются:
- Строительные материалы
- Фреоновые приборы и электроника
- Краска и масло
- Камень и кирпич
Если у вас есть какие-либо вопросы, пожалуйста, обращайтесь в отдел Delphi Street по телефону 564-2353.
.
Метки:
Новости
1003 Просмотров
Город Дельфы будет проводить ежегодную весеннюю уборку кладбищ Морнинг-Хайтс и Робинсон-Баум, начиная с недели 11 апреля -й . Любые цветы или композиции, которые вы хотите оставить себе, должны быть забраны до 11 апреля -го года. Оставшиеся украшения будут удалены городскими властями. Мы заранее благодарим вас, и если у вас есть какие-либо вопросы, пожалуйста, свяжитесь с городом Дельфи 765-564-2027.
1117 Hits
Теги:
News
1117 HITS
Археологический сайт Delphi — Центр мирового наследия ЮНЕСКО
Выдающаяся универсальная стоимость
Краткий синтез
Delphi -Lies между двумя частями. как Скалы Фаидриад (Сияющие) в региональной единице Фокиды в Центральной Греции. Здесь находится общеэллинское святилище Аполлона, олимпийского бога света, знания и гармонии.
Критерий ( i) : Макет Delphi является уникальным художественным достижением. Гора Парнас — настоящий шедевр, на ней был построен ряд памятников, модульные элементы которых — террасы, храмы, сокровищницы и т. д. — объединяются, чтобы сформировать сильное выражение физических и моральных ценностей места, которое можно описать как волшебное. .
Критерий (ii): Дельфы оказали огромное влияние на весь древний мир, о чем свидетельствуют различные подношения королей, династов, городов-государств и исторических деятелей, которые считали, что отправка ценного дара святилищу, обеспечит благосклонность бога. Святилище в Дельфах, объект великой щедрости и перекресток самых разных влияний, в свою очередь, подражали всему древнему миру. Его влияние распространилось до Бактрии после завоевания Азии Александром Македонским. Даже разграбление святилища императором Нероном и Константином Великим, увозившим из него добычу в Рим и Константинополь, усилило художественное влияние Дельф.
Критерий (iii): Дельфы являются уникальным свидетельством религии и цивилизации Древней Греции. На легендарном месте, где Аполлон убил змея Пифона, небесные культы заменили хтонические культы и привнесли древнее наследие мифов, восходящих к первобытным временам. Дельфийский оракул, вокруг которого велись четыре священные войны, является одним из центров политической истории Греции, а Театр и Стадион, где каждые четыре года проводились Пифийские игры, были местами общественных торжеств, отражающих триумф эллинизма.
Критерий (iv): Дельфы, расположенные в великолепной природной среде, которая до сих пор нетронута, представляет собой выдающийся архитектурный ансамбль и пример великого панэллинского святилища.
Критерий (vi): Согласно древним, Храм Аполлона был там, где находился Омфалос, то есть пуп вселенной, центр земли. Следовательно, Дельфы прямо и ощутимо связаны с верой явной универсальной значимости.
Целостность
Объект всемирного наследия включает в себя все ключевые атрибуты, отражающие выдающуюся универсальную ценность объекта.
Место не менялось веками. Реставрационные проекты, которые были предприняты, были ограниченными и небольшими по масштабу и проводились в соответствии с принципами Венецианской хартии. В пределах собственности был построен только археологический музей, который необходим для защиты находок и для адекватного понимания святилища и его предложений. Более широкий район Дельф, являющийся трансформогенным геофизическим районом на периферии великого тектонического разлома Центральной Греции, с древних времен сталкивался с теми же проблемами: землетрясениями и оползнями, эрозией почв и осадконакоплением, а также периодическими рост растительности и связанный с этим риск возникновения пожара.
Подлинность
Памятники этого места соответствуют критериям подлинности, поскольку они подверглись мягким вмешательствам с абсолютным уважением к материалу, форме и дизайну. Они заключаются в перемещении древних архитектурных материалов на их первоначальное место или в восстановлении памятников с использованием в основном аутентичных материалов, чтобы получить их первоначальный план.
Кроме того, древние строительные материалы использовались для восстановления некоторых памятников и подношений на этом месте. Сайт до сих пор сохраняет аутентичность ландшафта. Современные посетители, идущие по Святой дороге от Римского рынка до Стадиона, могут испытывать те же чувства, что и человек, посетивший этот район в древности.
Требования к охране и управлению
Археологические раскопки в Дельфах охраняются в соответствии с положениями Закона № 3028/2002 «Об охране древностей и культурного наследия в целом». В соответствии с министерскими указами 13624/728/1991, 1266/1991 и 35829/1801/2012 археологические раскопки в Дельфах являются частью наиболее обширной географической области с ландшафтом и памятниками, находящимися под охраной. Строительство запрещено в районе склонов горы Парнас и оливковой рощи, а также существует защитная зона, охватывающая территорию, которая простирается на две региональные единицы (Беотия и Фокида).
Имущество находится в ведении Министерства культуры, образования и по делам религий через Эфорат древностей Фокиды, его компетентную региональную службу, которая систематически контролирует территорию на предмет любых актов незаконных раскопок, контролирует и вмешивается, когда это необходимо , в случаях обнаружения древностей в ходе земляных работ и осуществляет контроль за земляными работами для основания новых зданий, а также за их размерами и архитектурным решением, в соответствующих случаях.
Археологические раскопки в Дельфах находятся под круглосуточной охраной. Имеется адекватная система противопожарной защиты, периодически модернизируемая; приняты некоторые меры по основной проблеме падающих камней, которые пока носят временный характер, такие как два металлических забора, которые были построены в этом районе. Для окончательного решения вопроса Центральный археологический совет утвердил исследование по креплению самих скальных откосов. Ведутся работы по благоустройству археологического памятника (благоустройство помещений для посетителей, улучшение доступа посетителей с ограниченными возможностями, охрана и реставрация самих памятников). Несколько информационных табличек уже установлены, а некоторые другие планируется установить, обновляя существенную информацию для посетителей, что касается археологических раскопок. Поддержание выдающейся универсальной ценности объекта с течением времени потребует завершения всех незавершенных работ, которые приведут к лучшему восприятию памятников посетителями и охране объекта, при этом приоритетом будет закрепление скальных откосов.