Проверить на попадание точек в окружность, на окружность, либо за её пределы - Pascal ABC

  1. Ввести радиус окружности R с центром в начале координат. Ввести n точек, заданных координатами (x,y), которые проверить на попадание в окружность, на окружность, либо за её пределы. Посчитать сколько каких точек куда попадает.


textual

Код к задаче: «Проверить на попадание точек в окружность, на окружность, либо за её пределы - Pascal ABC»

read(r);
r:=r*r;
vn:=0;
na:=0;
sn:=0;
for i:=1 to n do
 begin
  read(x,y);
  d:= x*x+y*y;
  if d<r then inc(vn)
  else if d=r then inc(na)
  else inc(sn);
 end;

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.733 из 5



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Напишите программу, которая находит все различные цифры в символьной строке.Входные данные На вход программе подаётся символьная строка.Выходные данные Программа должна вывести в одной строке все различные цифры, которые встречаются в исходной строке, в порядке возрастания. Если в строке нет цифр, нужно вывести слово 'NO'.Примеры:входные данные ab1n32kz2выходные данные 123входные данные asdasdвыходные данные NO

  1. Описать процедуру SqP(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, P и S — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с противоположными вершинами. P.S. помогите пожалуйста это решить,заранее спасибо за помощь)

  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:слово симметрично

  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Напишите условие, которое определяет заштрихованную область.

  1. Нужно чтобы выводило min и max с названием детали.

  1. Здравствуйте, необходимо найти площадь прямоугольника по его вершинам, не могу понять в чем моя ошибка?

  1. Основания трапеции параллельны оси X, нижнее основание больше верхнего. Исходная точка, от которой начинается рисование трапеции, сверху справа. Задаем длины оснований трапеции N и K, высоту h, и координаты X1,Y1 одной вершины. Вычисляем координаты второй, третьей и четвертой вершин X2,Y2, X3,Y3, X4,Y4. Рисуем трапецию с помощью операторов Line по координатам четырех точек. Дополнительно необходимо нарисовать окружность, радиусом 5 пикселей, в точке Х1, Y1. (Примечание: для вычисления координат точек используется целочисленное деление DIV).

  1. Дана квадратная матрица порядка n. Обнулить элементы матрицы,лежащие одновременно выше главной и побочной диагоналей. Пожалуйста, СРОЧНО!!!