[chrisss]

Сообщение от poli-smen

Не получается даже по шагам которые madMonia написал? На каком шаге не получается?

Вот так составила, знаю, что бред, но по-другому как делать, в голову не идет( пыталась писать StrToFloat, но строку где это есть, всю красным выделял

Код:

procedure TForm1.Button1Click(Sender: TObject);
          var    a,b,x,y:real;
begin


if a>b then
begin
  x=(a+b)/2;
  y=2*a*b;
  end
else
begin
  x=2*a*b;
  y=(a+b)/2
  end
end;


end.