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

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

textual

Код:

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.

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

  1. вводятся по очереди координаты n точек определить сколько из них попадает в кольцо с внутреним радиусом r1 и внешним радиусом r2

  1. Написать функцию, определяющую, какой координатной четверти принадлежит точка с заданными координатами. Используя ее определить, сколько из N точек, заданных случайно, попали в каждую координатную четверть. Где-то с циклом напортачил. Принимает только последнее число.

  1. Цикл. Начав читать детектив с 30 страницы, читатель посчитал сумму номеров прочитанных за день страниц. Сколько он прочитал, если их сумма равна 840?

  1. В некотором году на участке в 100 гектаров средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность — на 2%. Определить, через сколько лет урожай превысит 4000 ц.

  1. У некоторого исполнителя, обрабатывающего числа, есть три команды: +1, +2, *3. Исполнитель получает на вход некоторое число и программу, представляющую собой некоторую последовательность вышеназванных команд. На выходе он выдает новое число - результат применения программы к исходному числу. Вам предлагается написать программу - анализатор данного исполнителя. На вход программе подаются два числа х и у, каждое из которых лежит в диапазоне от 0 до 200 (включая границы) и при этом гарантируется, что х меньше, либо равно у. Ваша программа должна подсчитать, сколько возможно построить различных программ для исполнителя, которые преобразуют число х в у. В качестве ответа нужно вывести одно целое число.Добавлено через 37 секунд Буду рад оперативной помощи, заранее спасибо!

  1. Дана строка. Определить, сколько в ней символов *, ;, :.

  1. Начав тренировку лыжник в 1 день пробежал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить, сколько он пробежит за N дней, если N вводится с клавиатуры. Саму программу я составил, но как, и можно ли сделать так, что бы на экран выводило все дни, например: если N = 4, то выводило: 1. 10.00 км 2. 11.00 км 3. 12.10 км 4. 13.31 км Вот программа:

  1. Сколько существует натуральных чисел N со следующим свойством: если к числу N справа приписать число 3375, то полученное число будет делиться на исходное число N?

  1. Есть задача:Дано N вещественных чисел. Определить ,сколько из них больше своих "соседей" , то есть предыдущего и последующего чисел. Ребят нужно эту задачу написать на естественном языке, потом блок схема,pdl, и Паскаль. Ничего не понимаю и буду очень благодарен !!


Нашли ошибку?
Развитие проекта
Яндекс.Метрика