Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Два прямоугольных треугольника заданы своими катетами. Определить, у какого из них площадь больше (создать функцию для вычисления площади прямоугольного треугольника по его катетам).

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write(Катеты первого треугольника: ); Read(a,b);
  var S1:=FS(a,b);
  Write(Катеты второго треугольника: ); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln(Площадь первого треугольника больше)
  else
    if S1  else Writeln(Площади треугольников равны)
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше