Delphi/Условия
< Delphi
В этом уроке мы познакомимся с условиями. Условие имеет конструкцию if…then…else. Общий вид условия:
if (условие) then
begin
//если условие верно, выполняем действия
end
else
begin
//если условие неверно, выполняем действия
end;
Есть еще неполное условие:
if (условие) then
//если условие верно, выполняем действия
Теперь напишем программу с условием:
procedure TForm1.Button1Click(Sender: TObject);
var a, b:integer;
begin
a:=StrToInt(Edit1.Text);
if a<5 then
begin
Edit2.Text:='Число подходит!';
end
else
begin
Edit2.Text:='Число неправильное!!';
end;
end;
Таблица операторов
Оператор | Значение |
---|---|
< | меньше |
> | больше |
= | равно |
<= | нестрогое неравенство |
>= | нестрогое неравенство |
<> | не равно |
Таблица логических слов
Слово | перевод |
---|---|
and | и |
or | или |
not | не |
Давайте теперь напишем игру «Пароль». Суть заключается в том, что нужно назвать правильное слово (другие слова не подойдут).
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='Яблоко' then //пароль - "яблоко"
begin
Edit2.Text:='Пароль - верный!';
end
else
begin
Edit2.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
Теперь добавим одно слово для пароля, если одно из двух правильных слов будет введено, то пароль верный. Чтобы в условие добавить ИЛИ, нужно между двумя условиями добавить or
.
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='Яблоко') or (Edit2.Text='картошка') then //пароль - "яблоко" или "картошка"
begin
Edit3.Text:='Пароль - верный!';
end
else
begin
Edit3.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
Изменим условие, теперь нужно ввести два слова, чтобы пароль был верным. Для этого добавим в условие И, вместо or
добавим and
.
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='Яблоко') and (Edit2.Text='картошка') then //пароль - "яблоко" и "картошка"
begin
Edit3.Text:='Пароль - верный!';
end
else
begin
Edit3.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
Урок 4.Перевод переменных ← Предыдущий урок
Следующий урок → Урок 6.Цикл