СРОЧНО! Помогите ПОЖАЛУЙСТА написать программу в Delphi.

[Helga25]

Дана следующая задача:
Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади.

P.S. Значения сторон задаются произвольно
Как написать программу в Delphi?

ЗАРАНЕЕ СПАСИБО!

[Bugrimov]

Наработки есть?
Возможно поможет http://ru.onlinemschool.com/math/formula/area/

[type_Oleg]

Ну это же не форум математиков или великих геометров. Это форум великих программистов.
Вы нам формулу напишите, мы подскажем как её в Дельфы впихнуть.

PS А вообще такие задачи с формулой Герона здесь уже 100500 раз решались.

[min@y™]

Поосторожнее со сравнением вещественных чисел, товарищ студент.

[newerow1989]

function Geron(a,b,c:real):real;
var p:real;
begin
   p:=(a+b+c)/2;
   Result:=Sqrt(p*(p-a)*(p-b)*(p-c));
end;

Вот готовая функция для вычисления площади

If Geron(3,4,5)=Geron(4,5,3) then
   Label1.Caption:='yes' else
   Label1.Caption:='no';

[newerow1989]

function Geron(a,b,c:real):real;
var p:real;
begin
   p:=(a+b+c)/2;
   Result:=Sqrt(p*(p-a)*(p-b)*(p-c));
end;

Вот готовая функция для вычисления площади

If Geron(3,4,5)=Geron(4,5,3) then
   Label1.Caption:='yes' else
   Label1.Caption:='no';

[min@y™]

Вот готовая функция для вычисления площади

Ну ты чо школоту учишь говнокодить-то??!! А потом у нас ракеты со спутниками падают, блин.

Я ж сказал:

Поосторожнее со сравнением вещественных чисел, товарищ студент.

Вот ты задал стороны одинаковых треугольников. А ты попробуй ввести стороны разных треугольников, площади которых равны! Я подобрал к твоему прямоугольному треугольнику со сторонами 3, 4 и 5 (S = 6.0) равносторонний треугольник с такой же площадью.

1554023.png

При переводе в двоичную с.с. и обратно, а также при арифметических операциях накопилась мизерная погрешность. Функция FloatToStr() эту погрешность нивелирует, а оператор сравнения - НЕТ!

Поэтому вещественные числа ни в коем случае нельзя сравнивать с помощью операторов "=" и "<>". Чтобы их сравнивать с заданной точностью, есть стандартные функции в модуле Math.pas:

function CompareValue(const A, B: Extended; Epsilon: Extended): TValueRelationship;
function CompareValue(const A, B: Double; Epsilon: Double): TValueRelationship;
function CompareValue(const A, B: Single; Epsilon: Single): TValueRelationship;

Кому не лень - можете допилить мой исходник, добавив в него этот функционал.
Тему, также, можно повесить в начале раздела.

З.Ы. Это только пример. Простейший. Но иногда от таких мелочей зависят человеческие жизни. Просто запомни это. А лучше - запиши.