![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
MiH@N |
![]() ![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 37 Пол: Мужской Репутация: ![]() ![]() ![]() |
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(c))-sqr(a))/2;
Mb:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/2;
Mc:=sqrt(2*(sqr(b)+sqr(a))-sqr(c))/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 если числа не целые? |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 10:57 |