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

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

Вопрос школьника по предмету Информатика

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

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

Ответ учителя по предмету Информатика

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.

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