Не получается найти решение

[san050]

Была дана задача:

"Во входном файле даны 3 целых числа , , . Определить, могут ли они являться длинами сторон треугольника. Если да, то в выходной файл вывести его площадь, иначе вывести -1.

Формат входных данных

Первая строка входного файла содержит 3 целых числа .


Формат выходных данных

Выходной файл должен содержать одно число: площадь треугольника не менее, чем с шестью знаками после десятичной точки, если заданные числа могут являться длинами сторон треугольника, и -1 в противном случае.

Примеры:
Вход

3 4 5

Выход

6.000000"
Я решил её вот так:

var a,b,c,d,e,S: real;
begin
  reset(input,'input.txt');
  rewrite(output,'output.txt');
  readln(a,b,c);
  if a <= 0 then
  write('-1')
  else
  if b <= 0 then
  write('-1')
  else
  if c <= 0 then
  write('-1')
  else
  begin
    d:=(a+b+c)/2;
    e:=d*(d-a)*(d-b)*(d-c);
    S:=sqrt(e);
    write(S)
  end;
end.

В принципе она работает, но не полностью. Если ввести, к примеру, числа: 25 7 9, то он нечего не выводит, хотя вводя - 23 24 27, всё прекрасно работает. Помогите пожалуйста!

[dmitriegorovih]

if a <= 0 then
write('-1')
else
if b <= 0 then
write('-1')
else
if c <= 0 then
write('-1')
else

это ещё не всё представте треугольник размерами 100:200:1 он не ка не получится не подкаким предлогом.

[san050]

dmitriegorovih. Хм, логично. Спасибо. А не подскажешь как это исправить?

[dmitriegorovih]

А не подскажешь как это исправить?

Подскажу

var a,b,c,d,e,S: real;
file_chte:Tstringlist;
begin
file_chte:=Tstringlist.Create;
file_chte.LoadFromFile('input.txt');
a:=strtofloat(file_chte.strings[0]); //Будем считать что цифры написаны в столбик
b:=strtofloat(file_chte.strings[1]); //Будем считать что цифры написаны в столбик
c:=strtofloat(file_chte.strings[2]); //Будем считать что цифры написаны в столбик
file_chte.Clear;
if a <= 0 then
file_chte.Add('-1')
else
if b <= 0 then
file_chte.Add('-1')
else
if c <= 0 then
file_chte.Add('-1')
else
begin
d:=(a+b+c)/2;
e:=d*(d-a)*(d-b)*(d-c);
if e>0 then begin
S:=sqrt(e);
file_chte.Add(floattostr(s));
end else begin
file_chte.Add('-1');
end;
file_chte.SaveToFile('output.txt');
end;
end;

[Prisioner]

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

Подскажу

Не понял суть проверки. Это формула площади, если не ошибаюсь? Не уверен, что она подойдёт.

Вообще проверка делается по "Неравенству треугольника" самая простая.

Если сумма длин любых двух сторон больше третьей - треугольник существует.

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Треугольник существует!');

Думаю прикрутить эту строку в нужное место и изменить действие после then не составит труда.

[dmitriegorovih]

Не понял суть проверки. Это формула площади, если не ошибаюсь? Не уверен, что она подойдёт.

Ну смотрите она подходит если это не треугольник то переменная "e" будит отрицательна кстати ваш вариант тоже подходит

[evg_m]

Не понял суть проверки.

a+b>c неравенство треугольника
a+b-c>0
a+b+c-2c>0
2(a+b+c)/2 -2c>0
(a+b+c)/2 -c>0
d-c>0 положительная площадь

[san050]

Всем огромное спасибо за помощь. Всё получилось.