Входит ли точка в параболу - Turbo Pascal

Формулировка задачи:

Составить программу которая при вводе x,y определяет входит ли точка в ПАРАБОЛУ или нет.

Решение задачи: «Входит ли точка в параболу»

Листинг программы

uses crt;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки');
readln(x,y);
if x<=-8*y*y/45-16*y/3-50 then write('Точка попадает в область внутри параболы')
else write('Точка не попадает в область внутри параболы');
readln
end.

Объяснение кода листинга программы

В первой строке используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Переменные x и y типа real используются для хранения координат точки, которую нужно проверить на попадание в параболу.
Строка clrscr очищает экран перед вводом координат точки.
Строка writeln('Введите координаты точки') выводит сообщение с просьбой ввести координаты точки.
Строка readln(x,y) считывает введенные пользователем значения координат и сохраняет их в переменных x и y.
В строке if x<=-8*y*y/45-16*y/3-50 then происходит проверка условия, при котором точка попадает внутрь параболы. Здесь используется формула для вычисления расстояния между двумя точками на параболе.
Если условие выполняется, то выводится сообщение Точка попадает в область внутри параболы.
Если условие не выполняется, то выводится сообщение Точка не попадает в область внутри параболы.
В последней строке программы происходит считывание введенных пользователем данных и завершение работы программы.