Question

На плоскости расположена окружность радиуса R с центром в начале координат. Ввести заданные координаты точки и определить лежит ли она на окружности. Результат присвоить символьной переменной. Решить задачу при R=2 для точек с координатами (0;2),(-1,5;0,7),(1;1), (3;0). Составить блок схему

Answer 1

//PascalABC.Net
var
  r,x,y:real;
  c:string;
begin
  Write('Введите R: '); Read(r);
  Write('Введите координаты x и y: '); Read(x,y);
  if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности'
  else c:='Точка не лежит на окружности';
  Writeln(c)
end.

Тестовые решения:
Введите R: 2
Введите координаты x и y: 0 2
Точка лежит на окружности

Введите R: 2
Введите координаты x и y: -1.5 0.7
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 1 1
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 3 0
Точка не лежит на окружности

Блок-схема во вложении

Answer 2

Для решения данной задачи можно использовать следующий алгоритм:

1. Ввести значение радиуса окружности R. 2. Ввести координаты точки (x, y). 3. Вычислить расстояние от начала координат до точки, используя формулу расстояния между двумя точками на плоскости: distance = sqrt(x^2 + y^2), где sqrt - функция извлечения квадратного корня. 4. Сравнить полученное расстояние с радиусом R. 5. Если расстояние равно радиусу R, то точка лежит на окружности. В этом случае присвоить символьной переменной значение "Да". 6. Иначе, точка не лежит на окружности. В этом случае присвоить символьной переменной значение "Нет". 7. Вывести значение символьной переменной.

Теперь составим блок-схему для данного алгоритма:

+-------------------------------------------------+
|                                                 |
| Ввести значение радиуса R                        |
| Ввести координаты точки (x, y)                   |
| Вычислить расстояние distance = sqrt(x^2 + y^2) |
| Если distance = R, то                           |
|   ПРИСВОИТЬ символьной переменной значение "Да"  |
| ИНАЧЕ                                          |
|   ПРИСВОИТЬ символьной переменной значение "Нет" |
| Вывести значение символьной переменной           |
|                                                 |
+-------------------------------------------------+

Таким образом, используя данную блок-схему, можно определить, лежит ли заданная точка на окружности с заданным радиусом.