Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//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
Точка не лежит на окружности

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