Написать программу на Pascal ABC - проверка на попадание случайной точки в область

[AVIM]

пусть задана область на плоскости ( на
координатной плоскости
закрашены первая и четвёртая
четверти круга), ограниченная
диапазоном аргумента [-10;10] и
диапазонам значений [-10;10]. С
клавиатуры вводится радиус
окружности (целое число) и
координаты первой точки
( вещественые значения). Вторая
точка задается случайными
координатами (вещественные
значения), с помощью генерации
случайных чисел. Необходимо
определить, попадает ли каждая
из точек в указанную область и
найти площадь указанной области,
вывести только целую часть
площади.

[Serge_Bliznykov]

приложи рисунок, иллюстрирующий твою область

[type_Oleg]

Сообщение от AVIM

... Вторая точка задается случайными координатами (вещественные значения), с помощью генерации случайных чисел...

А какой закон распределения этих случайных чисел X,Y, и параметры распределения ?
Если равномерный (что скорее всего), то параметры это - границы возможных значений [x min; x max] и [y min; y max]
Если нормальный, то параметры - мат. ожидание и СКВО для X и Y.

[AVIM]

случайные числа X,Y, S, X1, Y1. Параметр равномерный.

[type_Oleg]

Сообщение от AVIM

случайные числа X,Y, S, X1, Y1. Параметр равномерный.

Вы похоже, сами не въехали в суть..
Хорошо, распределение - равномерное.

Вы укажите, в каких пределах могут быть эти случайные числа. Может ли это случайное число оказаться равно 99 ? Или 100500 ?

Для генерации равномерно распределенных СЧ используется функция Random
Просто Random, без параметров выдает СЧ от 0 до 1 , действительное.
Если с параметром Random(n) , выдает СЧ от 0 до n-1, целое.

[AVIM]

(21) -10 случайные числа

от 0 до 1 для простого Random

[type_Oleg]

Сообщение от AVIM

от 0 до 1 для простого Random

То есть у случайной точки координата X может быть от 0 до 1, и координата Y может быть от 0 до 1.
При том, что радиус - то ли 5, то ли 10 , то ли вводится с клавиатуры.
И область ( куда попало/ не попало ) - то ли 1-я и 4-я четверти ( как написано) , то ли 2-я и 4-я четверти ( как заштриховано на рис).

Кстати, если как нарисовано (2-я,4-я), то при значениях X,Y из интервала 0...1 - не попадет никогда , а если как написано (1-я,4-я) - то будет попадать всегда.

[AVIM]

как показана на рис. 2 и 4 четверти

[AVIM]

2-я и 4-я
четверти ( как заштриховано на рис.), а радиус 5.

[Mad_Cat]

((x<0)&(y>0)&(x*x+y*y<=r*r))||((x>0)&(y<0)&(x*x+y*y<=r*r))

либо

(x*y<0)&(x*x+y*y<=r*r)