В этом уроке мы познакомимся с условиями. Условие имеет конструкцию 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.Цикл