Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
119 / 84 / 42
Регистрация: 14.12.2015
Сообщений: 945

IF-THEN-ELSE

17.09.2019, 15:05. Показов 1546. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. С данным ЯП никогда не был знаком, но по долгу службы пришлось разбирать код написанный на этом ЯП. Подскажите как написать несколько вложенных условий IF-ELSE? Мне надо примерно так: если <условие> то <операторы>, а если <условие> то <другая группа операторов>. Я с begin' ами, end' ами уже запутался. Напишите какой нибудь простенький код для наглядности.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.09.2019, 15:05
Ответы с готовыми решениями:

более 3х условий в If then else
Прошу не пинать если уже обсуждалось, но я не нашел, если всеже обсуждалось, то прошу дать ссылку на тему. if ( ( (условие1) and...

if then else
Помогите пожалуйста разобраться. У меня есть три значения полученные в последствии расчетов.Надо рассмотреть 3 случая: 1) если первое...

убрать из процедуры FormCloseQuery if then else и заставить работать
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('Закончить программу?',...

8
Модератор
4149 / 2360 / 812
Регистрация: 15.11.2015
Сообщений: 9,456
17.09.2019, 15:12
Лучший ответ Сообщение было отмечено Talamaur как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  x, y, z: integer;
begin
  // заполнение X, Y, Z.
 
  if x = 1 then begin
    // Здесь код выполнится, если X равен 1.
  end else // Дальше один оператор (IF в данном случае) выполнится, если X не равен 1.
    if (y = 2) and (z = 3) then begin
      // Здесь код выполнится если не выполняется условие первого IF, но выполняются
      // оба условия второго IF: и Y равен 2 и Z равен 3.
      //
    end;
end;
Begin .. end нужен, если нужно выполнить более одного действия в конструкции if .. then .. else ..
1
119 / 84 / 42
Регистрация: 14.12.2015
Сообщений: 945
17.09.2019, 15:56  [ТС]
Цитата Сообщение от AzAtom Посмотреть сообщение
Begin .. end нужен, если нужно выполнить более одного действия в конструкции if .. then .. else ..
А тут не могли бы Вы немножко поподробнее? А то у меня тут код и такое ощущение что в блоке begin end он как то циклически выполняется. У меня идет заполнение строк таблицы в Excel через Report Builder и вот сложилось такое впечатление что как то по кругу бегает этот блок

Добавлено через 1 минуту
Или begin end то же самое что в C# фигурные скобочки обозначающие кодовый блок ({<несколько строк кода>}) ?
0
453 / 177 / 31
Регистрация: 04.08.2018
Сообщений: 721
17.09.2019, 16:22
Цитата Сообщение от Talamaur Посмотреть сообщение
Или begin end то же самое что в C# фигурные скобочки обозначающие кодовый блок ({<несколько строк кода>}) ?
Это операторные скобки.
0
 Аватар для GoodWeather
886 / 588 / 179
Регистрация: 28.02.2017
Сообщений: 2,359
Записей в блоге: 1
17.09.2019, 17:04
Си-подобные:
C++
1
2
3
4
5
if(...){
  ...
}else{
  ...
};
Паскаль-подобные:
Pascal
1
2
3
4
5
6
7
8
If (...) Then
  Begin
  ...
  End
Else
  Begin
  ...
  End;
1
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
17.09.2019, 17:10
Цитата Сообщение от Talamaur Посмотреть сообщение
Или begin end то же самое что в C# фигурные скобочки обозначающие кодовый блок ({<несколько строк кода>}) ?
точно так.
0
17.09.2019, 17:15

Не по теме:

GoodWeather, с С-подобных перед else ставится ;
В С# подобных - не знаю...

0
17.09.2019, 17:23

Не по теме:

хм..? Перед? Возможно оно "разрешается", но вот я всегда писал без... %)

0
1 / 1 / 0
Регистрация: 27.08.2019
Сообщений: 16
18.09.2019, 14:11
Delphi
1
2
3
4
5
6
7
8
9
var x:integer
begin
x:=1;
if x>0 then
x:=x+1;
if x<0 then
x=100;
writeln(x)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.09.2019, 14:11
Помогаю со студенческими работами здесь

Составить программу вычисления функции у с применением операторов IF THEN ELSE условный оператор
1. {√x+1 при 10&lt;x&lt;13 Y={cos x x&lt;10 {sin x x&gt;13 2. {x^3 0.5&lt;x&lt;1 Y={cos x x&gt;1 {sin...

Ошибка в операторе if then else
procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text:='1' then ShowMessage('1'); end; end. Што тут не так ...

if then else
Уважаемые Люди, помогите решить проблемку. Условие, если в edit1 ввести число которое попадает в пределы от 5 до 10, то в edit2 вывести...

if-then-else для таблицы (ADO)
Здравствуйте, Мне надо сделать условие, но оно непонятно работает. У меня на форме есть ComboBox, ListBox и DBGrid. Мне надо...

IF THEN ELSE Подскажите
У меня в программке нужно ввести анализ крови. Нужно будет в Edit ввести некоторое число и если он будет меньше конкретного числа,то...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru