Delphi/Условия: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки |
DannyS712 (обсуждение | вклад) м <source> -> <syntaxhighlight> (phab:T237267) |
||
Строка 1:
В этом уроке мы познакомимся с условиями. Условие имеет конструкцию if…then…else. Общий вид условия:
<
if (условие) then
begin
Строка 9:
//если условие неверно, выполняем действия
end;
</syntaxhighlight>
Есть еще неполное условие:
<
if (условие) then
//если условие верно, выполняем действия
</syntaxhighlight>
Теперь напишем программу с условием:
<
procedure TForm1.Button1Click(Sender: TObject);
var a, b:integer;
Строка 30:
end;
end;
</syntaxhighlight>
Таблица операторов
{|class="wikitable"
Строка 70:
Давайте теперь напишем игру «Пароль». Суть заключается в том, что нужно назвать правильное слово (другие слова не подойдут).
<
procedure TForm1.Button1Click(Sender: TObject);
begin
Строка 82:
end;
end;
</syntaxhighlight>
Теперь добавим одно слово для пароля, если одно из двух правильных слов будет введено, то пароль верный. Чтобы в условие добавить ИЛИ, нужно между двумя условиями добавить <code>or</code>.
<
procedure TForm1.Button1Click(Sender: TObject);
begin
Строка 96:
end;
end;
</syntaxhighlight>
Изменим условие, теперь нужно ввести два слова, чтобы пароль был верным. Для этого добавим в условие И, вместо <code>or</code> добавим <code>and</code>.
<
procedure TForm1.Button1Click(Sender: TObject);
begin
Строка 110:
end;
end;
</syntaxhighlight>
<br />
<div align="left"> [[Delphi/Перевод переменных|Урок 4.Перевод переменных]] ← Предыдущий урок</div> <div align="right">Следующий урок → [[Delphi/Цикл|Урок 6.Цикл]]</div>
| |||