Delphi/Условия: различия между версиями
Содержимое удалено Содержимое добавлено
ВикиРин (обсуждение | вклад) Нет описания правки |
ВикиРин (обсуждение | вклад) Нет описания правки |
||
Строка 46:
|-
|<=
|нестрогое
|-
|>=
|нестрогое
|-
|<>
Строка 68:
|не
|}
Давайте теперь напишем игру "Пароль". Суть заключается в том, что нужно назвать правильное слово, другие не подойдут.
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='Яблоко' then //пароль - "яблоко"
begin
Edit2.Text:='Пароль - верный!';
end
else
begin
Edit2.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
</source>
Теперь добавим одно слово для пароля, если одно из двух правильных слов будет введено, то пароль верный. Чтобы в условие добавить ИЛИ, нужно между двумя условиями добавить <code>or</code>.
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='Яблоко') or (Edit2.Text='картошка') then //пароль - "яблоко" или "картошка"
begin
Edit3.Text:='Пароль - верный!';
end
else
begin
Edit3.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
</source>
Изменим условие, теперь нужно ввести два слова, чтобы пароль был верным. Для этого добавим в условие И, вместо <code>or</code> добавим <code>and</code>.
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='Яблоко') and (Edit2.Text='картошка') then //пароль - "яблоко" и "картошка"
begin
Edit3.Text:='Пароль - верный!';
end
else
begin
Edit3.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
</source>
| |||