Маргарита Корнилова
в делфи пишется три числа при нажатие Button выводиться наибольшее, и если число больше 100 тогда выводит, много,
Все нашто меня хватило ето строка сравнения для 2 чисел if strtoint(edit1.Text)
Все нашто меня хватило ето строка сравнения для 2 чисел if strtoint(edit1.Text)
procedure TForm1.Button1Click(Sender: TObject);
function Max(a, b: integer): integer;
begin
if a > b then
Result := a
else
Result := b;
end;
var
MaxVal: integer;
begin
MaxVal := Max(Max(StrToInt(Edit1.Text), StrToInt(Edit2.Text)), StrToInt(Edit3.Text));
if MaxVal > 100 then
ShowMessage('Много')
else
ShowMessage(IntToStr(MaxVal));
end;
http://pastebin.com/jgqMM5sE написал (upd)
[ссылка заблокирована по решению администрации проекта] - вот кстате статейка на нормальном йазыке