Определить, сколько из точек находится внутри прямоугольника. - Pascal

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

Ребят,помогите пожалуйста,будьте добры. Надо составить программки в Паскале. Составить математическую модель, таблицу идентификаторов и алгоритм для следующих задач: Задано n точек. Определить, сколько из них находится внутри прямоугольника.


textual

Код к задаче: «Определить, сколько из точек находится внутри прямоугольника. - Pascal»

var
  ax, ay, bx, by, x, y, t: Real;
  n, k: Integer;
begin
  Wrte('Координаты углов прямоугольника: '); Read(ax,ay,bx,by);
  if ax>bx then begin t:=ax; ax:=bx; bx:=t; end;
  if ay>by then begin t:=ay; ay:=by; by:=t; end;
  Write('Количество точек: '); Read(n); {k:=0;}
  Write('Введите координаты точек: ');
  for n:=1 to n do begin
    Read(x,y);
    if (ax<=x) and (x<=bx) and (ay<=y) and (y<=by) then Inc(k);
  end;
  WriteLn('Внутри: ',k);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


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

7   голосов, оценка 3.857 из 5

Источник