Question

Составить линейную программу в DELPHI печатающую значение true, если указанное высказывание является истинным, и false - в противном случае.

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

Answer 1

program Project13;
{$APPTYPE CONSOLE}
Var a,b,c,S,p:real;
begin
Write('a1 = ');ReadLn(a);
Write('b1 = ');ReadLn(b);
Write('c1 = ');ReadLn(c);
p:=(a+b+c)/2;
S:=Sqrt(p*(p-a)*(p-b)*(p-c));
Write('a2 = ');ReadLn(a);
Write('b2 = ');ReadLn(b);
Write('c2 = ');ReadLn(c);
p:=(a+b+c)/2;
a:=Sqrt(p*(p-a)*(p-b)*(p-c));
WriteLn(S = a);
ReadLn
end.



Примечание: программа не проверяет, существуют ли треугольники.