Проверить, являются ли треугольники равновеликими - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Даны три стороны одного и три стороны другого треугольника. Эти треугольники равновеликие, т.е. имеют равные площади.

Решение задачи: «Проверить, являются ли треугольники равновеликими»

textual
Листинг программы
uses crt;
var a1,b1,c1,a2,b2,c2,p1,p2,S1,S2:real;
begin
writeln ('Введите длины сторон первого треугольника');
readln(a1);
readln(b1);
readln(c1);
writeln('Введите длины сторон второго треугольника');
readln(a2);
readln(b2);
readln(c2);
if ((a1+b1<c1)or(a1+c1<b1)or(b1+c1<a1)) or ((a2+b2<c2)or(a2+c2<b2)or(b2+c2<a2))
then
writeln('Введены недопустимые длины сторон')
else
begin
p1:=(a1+b1+c1)/2;
p2:=(a2+b2+c2)/2;
S1:=sqrt((p1-a1)*(p1-b1)*(p1-c1));
S2:=sqrt((p2-a2)*(p2-b2)*(p2-c2));
if S1=S2 then
writeln('True')
else
writeln('False');
end;
end.

Объяснение кода листинга программы

  1. Программа на языке Free Pascal.
  2. Задача - проверить, являются ли треугольники равновеликими.
  3. Ввод длин сторон первого треугольника.
  4. Ввод длин сторон второго треугольника.
  5. Проверка условия для каждого треугольника отдельно.
  6. Если условие не выполняется, выводится сообщение о недопустимых длинах сторон.
  7. Вычисление полупериметра для каждого треугольника.
  8. Вычисление площади каждого треугольника по формуле Герона.
  9. Сравнение площадей треугольников.
  10. Если площади равны, выводится True, иначе False.

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы