Проверка попадания точки в заданную область - Turbo Pascal (29248)

Формулировка задачи:

подскажите как составить программу для подсчета количества точек попавших в заданную область

Решение задачи: «Проверка попадания точки в заданную область»

Листинг программы

var
  x, y: Real;
  i, n: Integer;
begin
  {n:=0;}
  for i:=1 to 5 do begin
    Write('Координаты точки ',i,': '); ReadLn(x,y);
    if (Sqr(x)+Sqr(y)<=1) or ((x>=0) and (y>=0) and (y<=2-x)) then Inc(n);
  end;
  WriteLn('Попало точек: ',n);
end.

Объяснение кода листинга программы

В начале объявляются переменные x, y типа Real, а также переменные i и n типа Integer.
Затем идет блок цикла for, который выполняется 5 раз.
Внутри цикла выводится сообщение с координатами точки, а затем считываются значения x и y с помощью функции ReadLn.
Далее проверяется условие: квадрат x плюс квадрат y не больше 1 и точка не выходит за пределы области [0, 2]. Если оба условия выполняются, то значение переменной n увеличивается на 1.
По завершении цикла выводится сообщение с количеством точек, которые попали в заданную область.