Question

Напишите программу на PASCAL для решения следующей задачи. Пользователь вводит с клавиатуры координаты трех вершин прямоугольного треугольника: (x1, y1), (x2, y2), (x3, y3). Необходимо найти его периметр, считая, что длина каждой стороны рассчитывается по формуле: √(x2−x1)2+(y2−y1)2.

Answer 1

Ответ:

var x1, x2, x3, y1, y2, y3, d1, d2, d3, P:real;

begin

readln(x1, y1);

readln(x2, y2);

readln(x3, y3);

d1:=sqrt(((x2-x1)*(x2-x1))+((y2-y1)*(y2-y1)));

d2:=sqrt(((x3-x2)*(x3-x2))+((y3-y2)*(y3-y2)));

d3:=sqrt(((x1-x3)*(x1-x3))+((y1-y3)*(y1-y3)));

P:=d1+d2+d3;

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

end.

Answer 2

Конечно, вот пример программы на Pascal, решающей данную задачу:

pascalCopy code
program PerimeterOfRightTriangle;

uses Math;

var
  x1, y1, x2, y2, x3, y3: Real;
  side1, side2, side3, perimeter: Real;

begin
  WriteLn('Введите координаты трех вершин прямоугольного треугольника:');
  
  Write('x1: ');
  ReadLn(x1);
  
  Write('y1: ');
  ReadLn(y1);
  
  Write('x2: ');
  ReadLn(x2);
  
  Write('y2: ');
  ReadLn(y2);
  
  Write('x3: ');
  ReadLn(x3);
  
  Write('y3: ');
  ReadLn(y3);
  
  side1 := Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1));
  side2 := Sqrt(Sqr(x3 - x2) + Sqr(y3 - y2));
  side3 := Sqrt(Sqr(x1 - x3) + Sqr(y1 - y3));
  
  perimeter := side1 + side2 + side3;
  
  WriteLn('Периметр прямоугольного треугольника: ', perimeter:0:2);
end.

Скопируйте этот код в среду программирования Pascal (например, Free Pascal) и выполните его. Программа запросит у пользователя координаты трех вершин прямоугольного треугольника и выведет на экран его периметр.