Версия для печати темы

Автор: MiH@N 22.01.2008 3:04

procedure TForm1.Button1Click(Sender: TObject);
var Ma,Mb,Mc : real;
a,b,c :integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
Ma:=sqrt(2*(sqr(b)+sqr©)-sqr(a))/2;
Mb:=sqrt(2*(sqr(a)+sqr©)-sqr(b))/2;
Mc:=sqrt(2*(sqr(b)+sqr(a))-sqr©)/2;
Edit4.Text:=intToStr(Ma);
Edit5.Text:=IntToStr(Mb);
Edit6.Text:=IntToStr(Mc);
end;

вопрос вот в чём: у Ma,Mb,Mc : real---но когда приковыриваешь их к полю (Edit4.Text:=intToStr(Ma);
Edit5.Text:=IntToStr(Mb);
Edit6.Text:=IntToStr(Mc);) то вылазит нестыковочка в типах данных----что надо поставить вместо IntToStr если числа не целые?

Автор: volvo 22.01.2008 3:09

Наверное, FloatToStr?

Автор: MiH@N 22.01.2008 3:52

спасибо.!! спасаешь!
а если брать случай с (Edit4.Text:=intToStr(Ma);--то что можно поставить вместо intToStr если вводить нецелое число??

Автор: volvo 22.01.2008 4:01

Не понял, о чем ты? Вводить не целое? Тогда

var a: real;
...
a:=StrToFloat(Edit1.Text);

ты об этом?

Автор: MiH@N 22.01.2008 4:18

ага.токмо чёт так не получается. вылазит:

Добавлено через 2 мин.
хотя мож я чё нето сделал..вот текст:

procedure TForm1.Button1Click(Sender: TObject);
var Ma,Mb,Mc : real;
a,b,c :real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
Ma:=sqrt(2*(sqr(b)+sqr©)-sqr(a))/2;
Mb:=sqrt(2*(sqr(a)+sqr©)-sqr(b))/2;
Mc:=sqrt(2*(sqr(b)+sqr(a))-sqr©)/2;
Edit4.Text:=FloatToStr(Ma);
Edit5.Text:=FloatToStr(Mb);
Edit6.Text:=FloatToStr(Mc);
end;

Эскизы прикрепленных изображений

Автор: мисс_граффити 22.01.2008 4:31

пиши 2,2
вместо 2.2

Автор: volvo 22.01.2008 4:33

Судя по скриншоту у тебя разделителем должна быть не точка, а запятая... Введи не 2.2 а 2,2 для проверки...

Добавлено через 1 мин.
P.S. Ну или

begin
  DecimalSeparator := '.';
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:=StrToFloat(Edit3.Text);
  // и так далее ...

Автор: MiH@N 23.01.2008 20:38

а в таком случае из за чего может получиться unknown directive 'a' :


(извиняюсь..сам не заметил)


Эскизы прикрепленных изображений

Автор: volvo 23.01.2008 22:24

Ты точно Var не забыл?