Question

Работа с системой программирования на языке Паскаль. Составьте программу для решения следующей задачи. Даны значения всех сторон двух треугольников. Определите, равновеликие ли эти треугольники (т. е. равны ли их площади).(формула Герона)

Answer 1

Проверяй. Если что-то не то пиши.

Answer 2

Программа для решения данной задачи на языке Паскаль может выглядеть следующим образом:

```pascal program TriangleComparison;

var a1, b1, c1, a2, b2, c2: Real; // стороны треугольников p1, p2, s1, s2: Real; // полупериметры и площади треугольников

begin // Ввод значений сторон треугольников writeln('Введите значения сторон первого треугольника:'); readln(a1, b1, c1); writeln('Введите значения сторон второго треугольника:'); readln(a2, b2, c2);

// Расчет полупериметров p1 := (a1 + b1 + c1) / 2; p2 := (a2 + b2 + c2) / 2;

// Расчет площадей по формуле Герона s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1)); s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));

// Сравнение площадей и вывод результата if abs(s1 - s2) < 0.00001 then writeln('Треугольники равновеликие.') else writeln('Тр