Delphi/Условия: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки |
Нет описания правки |
||
Строка 2:
<source lang="delphi">
if (условие) then
begin
//если условие верно, выполняем действия
end
else
begin
//если условие неверно, выполняем действия
end;
</source>
Есть еще неполное условие:
<source lang="delphi">
if (условие) then
//если условие верно, выполняем действия
</source>
Теперь напишем программу с условием:
Строка 20:
var a, b:integer;
begin
a:=StrToInt(Edit1.Text);
if a<5 then
begin
Edit2.Text:='Число подходит!';
end
else
begin
Edit2.Text:='Число неправильное!!';
end;
end;
</source>
Строка 73:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='Яблоко' then //пароль - "яблоко"
begin
Edit2.Text:='Пароль - верный!';
end
else
begin
Edit2.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
</source>
Строка 87:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='Яблоко') or (Edit2.Text='картошка') then //пароль - "яблоко" или "картошка"
begin
Edit3.Text:='Пароль - верный!';
end
else
begin
Edit3.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
</source>
Строка 101:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='Яблоко') and (Edit2.Text='картошка') then //пароль - "яблоко" и "картошка"
begin
Edit3.Text:='Пароль - верный!';
end
else
begin
Edit3.Text:='Пароль - неверный!'; //выдаем ошибку
end;
end;
</source>
| |||