Программа проверки попадания точки  с заданными координатами в окружность заданного радиуса с центром в O(0,0).

Program N26 (Input, Output);          

Объявление имени программы

Label 1, 2;            

Блок объявления меток: задаем метки 1 и 2

Var         

Блок объявления глобальных переменных

X, Y        : Integer;              

Переменные X и Y - абсцисса и ордината проверяемой точки

R             : Integer;              

Переменная R - радиус окружности

Begin    

Начало тела программы

WriteLn ('PASCAL: Проверка попадания точки в окружность.');    

Формулировка цели алгоритма

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

Запрос ввода R - радиуса окружности

ReadLn (R);         

Ввод R

Write ('Введите абсциссу точки:  X = ');      

Запрос ввода X - абсциссы точки

ReadLn (X);         

Ввод X

Write ('Введите ординату точки:  Y = ');      

Запрос ввода Y - ординаты точки

ReadLn (Y);         

Ввод Y

If (X * X + Y * Y) <= R * R Then Goto 1;      

Если точка (X,Y) принадлежит окружности радиуса R, то переход на метку 1

WriteLn ('Точка (', X, ',', Y, ') не попала в окружность радиуса R = ', R);   

Вывод сообщения о НЕпопадании точки (X,Y) в заданную окружность радиуса R

Goto 2;  

Переход на метку 2

1: WriteLn ('Точка (', X, ',', Y, ') попала в окружность радиуса R = ', R);   

Метка 1: Вывод сообщения о попадании точки (X,Y) в задан. окружность радиуса R

2: ReadLn;           

Метка 2: ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.