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

  1. Ребят,помогите пожалуйста,будьте добры. Надо составить программки в Паскале. Составить математическую модель, таблицу идентификаторов и алгоритм для следующих задач: Задано 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.

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

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



Похожие ответы
  1. Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z. Если треугольник существует, определить его тип (равносторонний, равнобедренный, прямоугольный) и вычислить все углы в градусах. Напечатать длины сторон с противолежащими углами.

  1. Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения

  1. Написать программу на паскале, которая будет определять все ли гласные содержаться в заданной строке....

  1. Здравствуйте,помогите пожалуйста написать код.В городе Новые Васюки на некоторых дорогах введено одностороннее движение. Схема дорог задана в виде весовой матрицы графа, числа обозначают длины дорог. Если длины дорог из пункта А в пункт Б разные, это означает, что есть две разные дороги. Найдите отдельно количество дорог в Новых Васюках с односторонним и двусторонним движением. Входные данные В первой строке вводится количество перекрёстков в Новых Васюках N ( 1 ≤ N ≤ 1000 ). В следующих N строках записано по N чисел, разделённых пробелами – длины дорог между каждой парой перекрёстков. Ноль означает, что дороги между этими перекрёстками нет. Выходные данные Программа должна вывести два числа в одной строке, разделив их пробелом: сначала количество дорог с односторонним движением, потом – количество дорог с двусторонним движением. Примеры входные данные 5 0 2 3 4 0 2 0 5 0 7 3 6 0 8 0 0 0 0 0 0 0 7 0 9 0 выходные данные 5 3

  1. В расписании движения поездов по станции Масловка указаны: номера поездов , пункты следования, время прибытия и отправления, направления следования (южное, северное, западное, восточное). Сколько поездов следует в каждом из направлений?

  1. Из квадратного листа картона вырезается коробка. Определить, какова должна быть сторона вырезаемого квадрата, чтобы коробка имела наибольшую вместимость.

  1. Сколько нужно рулонов обоев для оклейки комнаты длиной m метров, шириной n метров и высотой h метров, если ширина рулона k см, а длина 10 метров. Известны так же S1 и S2 – площади дверных и оконных проемов.

  1. Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них окажутся больше 10, выведите сообщение «Караул! Сейчас все взорвется». Иначе сообщите, сколько введенных чисел больше 10, а сколько больше 5.

  1. Помогите с решением, пожалуйста! Если не трудно, то с объяснением В заданный непустой текст входят только цифры и буквы. Длина текста не более 12 символов. Определить, удовлетворяется ли следующее свойство: Текст совпадает с каким-то отрезком ряда abc…xyz (например: klmnop);