Помогите с программой для расчета площади треугольника(Delphi)

[Dvoishnik]

Сообщение от indext

и как проверку на треугольник сделать?)

Сообщение от type_Oleg

 if (a>=(b+c))or(b>=(a+c))or(c>=(a+b)) then
   begin
    ShowMessage('Такого треугольника не бывает');
    Exit;
   end;
 // а здесь всякие вычисления

можно создать переменные и присвоить значения эдитов а можно просто подставить эдиты в формулу.

П.С. IntToSrt StrToInt не забывайте

[indext]

почти сделал,только вот теперь когда нахожу площадь по функции

    p:=(StrToInt(a+b+c))/2;

происходит ошибка компиляции -

Incompatible types: 'Integer' and 'Extended'

[Dvoishnik]

Сообщение от indext

почти сделал,только вот теперь когда нахожу площадь по функции

    p:=(StrToInt(a+b+c))/2;

происходит ошибка компиляции -

Incompatible types: 'Integer' and 'Extended'

покажите ваш раздел объявления переменных

[indext]

Сообщение от Dvoishnik

покажите ваш раздел объявления переменных

поменял на тип real переменную p,помогло
теперь другая проблема под конец

    S:=Sqrt(p*(p-2)*(p-(StrToInt(b)))*(p-(StrToInt(c)));

такая ошибка

Unit1.pas(62): ')' expected but ';' found

пытаюсь починить - не выходит

[indext]

поправил,теперь другая

Incompatible types: 'Integer' and 'Extended'

    S:=Sqrt(p*(p-2)*(p-(StrToInt(b)))*(p-(StrToInt(c))));

[Dvoishnik]

вы осознанно складываете строки ?

p:=(StrToInt(a+b+c))/2;

начальные данные:
A:='22';
b:='12';
C:='12';
промежуточный результат
a+b+c = 221212
результат
P = 110606

Сообщение от indext

    S:=Sqrt((p*(p-2)*(p-(StrToInt(b)))*(p-(StrToInt(c))));

может так ?? если нет то код процедуры покажите.

[Dvoishnik]

Сообщение от indext

поправил,теперь другая

Incompatible types: 'Integer' and 'Extended'

    S:=Sqrt(p*(p-2)*(p-(StrToInt(b)))*(p-(StrToInt(c))));

какой тип у переменной S??

[indext]

Сообщение от Dvoishnik

какой тип у переменной S??

S: integer

[indext]

Сообщение от Dvoishnik

вы осознанно складываете строки ?

p:=(StrToInt(a+b+c))/2;

начальные данные:
A:='22';
b:='12';
C:='12';
промежуточный результат
a+b+c = 221212
результат
P = 110606





может так ?? если нет то код процедуры покажите.

как быть в первом случае?

во втором попробовал ваш вариант -

')' expected but ';' found

[Dvoishnik]

в первом случае складывать нужно не строки а числа

p:=(StrToInt(a)+StrToInt(b)+StrToInt(c))/2;

а во втором

var
s:real;
........
S:=sqrt(p*(p-StrToInt(a))*(p-StrToInt(b))*(p-StrToInt(c)));

должно работать.
и в сотый раз говорю покажите код полностью а лучше залейте проэкт суда я подредактирую.