Question

Написать программу на ЯП Паскаль на нахождение периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b.

Answer 1

Ответ:

Объяснение:

var

 a, b, c:real;

 s, per:real;

 p:real;

begin

 a:=3;

 b:=4;

 

 c:=sqrt((a*a) + (b*b));

 

 per:=a+b+c;

 

 p:=per/2;

 

 s:=sqrt(p*(p-a)*(p-b)*(p-c));

 

 writeln('P = ', per);

 writeln('S = ', s);

 

end.

Answer 2

Для вычисления периметра и площади прямоугольного треугольника по заданным длинам катетов a и b можно написать программу на языке Pascal следующим образом:

pascalCopy code
program PerimeterAndAreaOfRightTriangle;

var
  a, b, c, perimeter, area: real;

begin
  { Ввод длин катетов }
  writeln('Введите длину первого катета (a): ');
  readln(a);

  writeln('Введите длину второго катета (b): ');
  readln(b);

  { Нахождение гипотенузы c по теореме Пифагора }
  c := sqrt(a*a + b*b);

  { Нахождение периметра }
  perimeter := a + b + c;

  { Нахождение площади }
  area := 0.5 * a * b;

  { Вывод результатов }
  writeln('Периметр треугольника: ', perimeter:0:2);
  writeln('Площадь треугольника: ', area:0:2);
end.

Пользователь должен ввести значения для длины первого катета (a) и длины второго катета (b). Программа затем вычислит гипотенузу (c) с помощью теоремы Пифагора, а затем найдет периметр и площадь прямоугольного треугольника и выведет результаты на экран.