Напишите программу на языке Pascal. Пользователь вводит координаты 5 различных (все координаты различны) точек

Язык программирования Pascal:
Язык программирования Pascal был разработан Никлаусом Виртом в 1970 году и получил свое название в честь математика Блеза Паскаля. Pascal был создан для обучения программированию и имеет простой и читаемый синтаксис.

Приведенная ниже программа на Pascal позволяет пользователю ввести координаты 5 точек на плоскости, после чего она определяет, проходят ли первые 3 точки через окружность (либо прямую), а оставшиеся 2 точки - через прямую. Выводится расстояние от окружности до прямой, если они не пересекаются, и сообщение о пересечении в противном случае.

pascal

program CircleAndLine;

var

  x1, y1, x2, y2, x3, y3, x4, y4, x5, y5: real;

  dist: real;



procedure CalculateDistance;

var

  a, b, c: real;

begin

  a := (x2 - x1) * (x3 - x2) + (y2 - y1) * (y3 - y2);

  b := sqrt(sqr(x2 - x1) + sqr(y2 - y1));

  c := sqrt(sqr(x3 - x2) + sqr(y3 - y2));

  if b = 0 then

    dist := c

  else

    dist := abs(a / b);

end;



begin

  writeln("Введите координаты точек:");

  readln(x1, y1);

  readln(x2, y2);

  readln(x3, y3);

  readln(x4, y4);

  readln(x5, y5);



  CalculateDistance;



  if ((x1 - x3) * (y4 - y5) - (y1 - y3) * (x4 - x5)) = 0 then

    writeln("Окружность и прямая пересекаются")

  else

    writeln("Расстояние от окружности до прямой:", dist:0:2);

end.

Например:

Введите координаты точек:

1 2

3 4

5 6

7 8

9 10

Расстояние от окружности до прямой: 0.71

Совет:
Чтобы лучше понять программирование, рекомендуется изучить основные понятия языка Pascal, такие как переменные, ввод/вывод данных, условные выражения и математические операции. Постепенно применяйте эти знания к решению простых задач, чтобы стать более опытным программистом.

Задача на проверку:
Напишите программу на Pascal, которая запрашивает у пользователя радиус окружности и вычисляет ее площадь. Затем программа должна вывести полученное значение на экран.