procedure TForm1.Button1Click(Sender: TObject);
var result:real;
a:real;
begin
a:=strtofloat(Edit1.Text);
result:=a^2/2
Lines.add('a^2/2'+floattostr);
Edit1.clear;
end;
мне нужно что бы в edit вводить число а по формуле a^2/2 выходил результат в memo
объясните пожалуйста, а то уже неделю мучаюсь
procedure TForm1.Button1Click(Sender: TObject);
var result:real;
a:real;
begin
a:=strtofloat(Edit1.Text);
result:=sqr(a)/2;
Memo1.Lines.add('a^2/2 = '+floattostr(a));
Edit1.clear;
end;
В Delphi нет операции «^»…
floattostr ( result ); в lines . add - попробуйте так...
Memo.Lines.Add()?
мемо1.лайнс. эдд ('флоттустр (скьюр (2)/2)');
вместо ^ можно использовать sqr(), а лучше а*а, ибо с отрицательными числами оквадрачивание числа не работает.
используй вместо ^ вот это а*а
⇢