Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими - Turbo Pascal

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

6. Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими.

Решение задачи: «Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими»

Листинг программы

uses crt;
const t=0.01;
function plosh(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
plosh:=sqrt(p*(p-a)*(p-b)*(p-c))
end;
procedure vvod(var a,b,c:real;k:byte);
begin
repeat
writeln('Введите три стороны треугольника ',k);
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b) then
writeln('Это не стороны треугольника, повторите ввод');
until(a<b+c)and(b<a+c)and(c<a+b);
end;
var a1,b1,c1,a2,b2,c2,s1,s2:real;
begin
clrscr;
vvod(a1,b1,c1,1);
vvod(a2,b2,c2,2);
s1:=plosh(a1,b1,c1);
s2:=plosh(a2,b2,c2);
writeln('Площадь треугольника 1=',s1:0:2);
writeln('Площадь треугольника 2=',s2:0:2);
if abs(s1-s2)<t then write('Треугольники равновеликие')
else write('Треугольники не равновеликие');
readln
end.

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

В данном коде используется функция plosh, которая вычисляет площадь треугольника по длинам его сторон. Затем происходит ввод трех сторон треугольника с помощью процедуры vvod. После этого проверяется, равны ли площади двух треугольников, и выводится соответствующее сообщение. Код начинается с использования библиотеки crt и определения константы t, которая представляет собой десятичную дробь, равную 0.01. Функция plosh принимает три аргумента типа real и возвращает значение типа real. Она вычисляет площадь треугольника по длинам его сторон, используя формулу площади треугольника. Процедура vvod принимает три аргумента типа real и один аргумент типа byte. Она повторяет ввод до тех пор, пока введенные значения удовлетворяют определенным условиям (т.е. меньше суммы всех сторон треугольника). Если введенные значения не удовлетворяют этим условиям, выводится сообщение об ошибке. Затем объявляются две переменные s1 и s2 типа real, которые будут использоваться для хранения площадей треугольников. Далее происходит ввод значений a1, b1, c1 и a2, b2, c2 с помощью процедуры vvod. Затем вычисляются площади треугольников s1 и s2 с помощью функции plosh. Выводится значение площади первого треугольника с помощью функции writeln. Затем выводится значение площади второго треугольника с помощью функции writeln. После этого проверяется, равны ли площади двух треугольников. Если разность площадей меньше значения t, то выводится сообщение о том, что треугольники равновеликие. В противном случае выводится сообщение о том, что треугольники не равновеликие. Наконец, происходит чтение пользовательского ввода с помощью функции readln.