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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.833 из 5

Источник
Похожие ответы