Question

Помогите написать 2 программы в Pascal ABC 1.дана точка а с координатами x.y, и радиус окружности, центр которой лежит в точке о, как расположится точка и окружность 2.даны координаты вершины треугольника, является ли он прямоугольным

Answer 1

Var Ax,Ay,Ox,Oy,R:real;
Begin
WriteLn('Точка А:');
Write('   x = ');ReadLn(Ax);
Write('   y = ');ReadLn(Ay);
WriteLn('Центр окружности:');
Write('   x = ');ReadLn(Ox);
Write('   y = ');ReadLn(Oy);
Write('Радиус окружности: ');ReadLn(R);
if sqr(Ax-Ox)+Sqr(Ay-Oy) < R*R then WriteLn('Точка лежит внутри окружности')
else if sqr(Ax-Ox)+Sqr(Ay-Oy) = R*R then WriteLn('Точка лежит на окружности')
     else WriteLn('Точка находится вне окружности')
End.



Var
   Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
Begin
WriteLn('Координаты первой вершины');
Write('   x = ');ReadLn(Ax);
Write('   y = ');ReadLn(Ay);

WriteLn('Координаты второй вершины');
Write('   x = ');ReadLn(Bx);
Write('   y = ');ReadLn(By);

WriteLn('Координаты третьей вершины');
Write('   x = ');ReadLn(Cx);
Write('   y = ');ReadLn(Cy);

AB:=Sqr(Ax-Bx)+Sqr(Ay-By);
BC:=Sqr(Bx-Cx)+Sqr(By-Cy);
CA:=Sqr(Cx-Ax)+Sqr(Cy-Ay);
if (AB+BC=CA)or(BC+CA=AB)or(CA+AB=BC) then WriteLn('Треугольник - прямоугольный')
else WriteLn('Данный треугольник не является прямоугольным')
End.

Answer 2

Конечно! Вот две программы на языке Pascal ABC, реализующие описанные задачи:

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

pascalCopy code
program PointCirclePosition;
uses GraphABC;

var
  centerX, centerY, radius, pointX, pointY: real;

begin
  Write('Введите координаты центра окружности (x y): ');
  Readln(centerX, centerY);

  Write('Введите радиус окружности: ');
  Readln(radius);

  Write('Введите координаты точки (x y): ');
  Readln(pointX, pointY);

  if Sqrt(Sqr(pointX - centerX) + Sqr(pointY - centerY)) < radius then
    Write('Точка находится внутри окружности')
  else if Sqrt(Sqr(pointX - centerX) + Sqr(pointY - centerY)) = radius then
    Write('Точка лежит на окружности')
  else
    Write('Точка находится вне окружности');

  Readln;
end.

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

pascalCopy code
program RightTriangleCheck;
uses GraphABC;

var
  x1, y1, x2, y2, x3, y3: integer;
  a, b, c: real;

begin
  Write('Введите координаты вершин треугольника (x1 y1 x2 y2 x3 y3): ');
  Readln(x1, y1, x2, y2, x3, y3);

  a := Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1));
  b := Sqrt(Sqr(x3 - x2) + Sqr(y3 - y2));
  c := Sqrt(Sqr(x1 - x3) + Sqr(y1 - y3));

  if (Sqr(a) = Sqr(b) + Sqr(c)) or (Sqr(b) = Sqr(a) + Sqr(c)) or (Sqr(c) = Sqr(a) + Sqr(b)) then
    Write('Треугольник является прямоугольным')
  else
    Write('Треугольник не является прямоугольным');

  Readln;
end.

Обратите внимание, что для работы этих программ используется библиотека GraphABC, которая предоставляет функциональность для работы с графикой. Если вы используете другую среду разработки, возможно, потребуется внести некоторые изменения в программы.