Question

Вычислите Периметр и Площадь прямоугольно треугольника по заданным длинам 2-х катетов (по теореме Пифагора) В Паскале*

Answer 1

var a,b,c,S,P:real;

begin

 writeln('Введите значения  a и b:');

 readln(a,b);

 S:=a*b/2;

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

 P:=a+b+c;

 writeln('Периметр равен ',P);

 writeln('Площадь равняется ',S);

end.

Answer 2

Конечно, вот пример программы на языке Pascal для вычисления периметра и площади прямоугольного треугольника по заданным длинам катетов (a и b) с использованием теоремы Пифагора:

pascalCopy code
program CalculateTriangle;

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

begin
  { Ввод длин катетов }
  writeln('Введите длину первого катета: ');
  readln(a);
  writeln('Введите длину второго катета: ');
  readln(b);
  
  { Вычисление гипотенузы по теореме Пифагора }
  c := sqrt(a * a + b * b);
  
  { Вычисление периметра }
  perimeter := a + b + c;
  
  { Вычисление площади }
  area := 0.5 * a * b;
  
  { Вывод результатов }
  writeln('Периметр треугольника: ', perimeter:0:2);
  writeln('Площадь треугольника: ', area:0:2);
end.

Программа начинается с запроса у пользователя ввода длин катетов. Затем она использует теорему Пифагора (в данном случае $c = \sqrt{a^2 + b^2}$) для вычисления длины гипотенузы. После этого программа вычисляет периметр ($a + b + c$) и площадь ($0.5 \times a \times b$) прямоугольного треугольника и выводит результаты на экран.