Подсчет количества точек, попавших в заданную область

@stimo15 · Регистрация: 09.09.2011

Author24 — интернет-сервис помощи студентам

Задано N точек на плоскости.
1) Составить программу для:
подсчета количества точек, попавших в заданную область.
2) Формирование массива из координат точек, попавших в заданную область.

Заранее блогадарю

@Puporev · 07.10.2011, 21:22

Еще бы и что-то про область узнать...

@stimo15 · 07.10.2011, 21:39 **[ТС]**

ой извенеюсь, вот прикрепил картинку

@Puporev · 07.10.2011, 22:13

Pascal

uses crt;
var n,i,k:integer;
    a,b:array[1..2,1..100] of real;
    x,y:real;
begin
clrscr;
randomize;
write('Количеств точек n=');
readln(n);
for i:=1 to n do
 begin
  a[1,i]:=-2+6*random;
  a[2,i]:=-2+6*random;
 end;
writeln('Координаты точек:');
write('X:');
for i:=1 to n do
write(a[1,i]:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(a[2,i]:5:1);
writeln;
k:=0;
for i:=1 to n do
if (abs(a[1,i])<=1)and(abs(a[2,i])<=abs(a[1,i]+2))
and(abs(a[2,i])<=abs(a[1,i]-2)) then
 begin
  k:=k+1;
  b[1,k]:=a[1,i];
  b[2,k]:=a[2,i];
 end;
if k=0 then write('В область не попала ни одна точка')
else
 begin
  writeln('Количество точек в области=',k);
  write('X:');
  for i:=1 to k do
  write(b[1,i]:5:1);
  writeln;
  write('Y:');
  for i:=1 to k do
  write(b[2,i]:5:1);
 end;
readln
end.

@stimo15 148 / 111 / 83 Регистрация: 09.09.2011 Сообщений: 274
		1
	Подсчет количества точек, попавших в заданную область 07.10.2011, 16:29. Показов 2142. Ответов 3 Метки нет (Все метки) Задано N точек на плоскости. 1) Составить программу для: подсчета количества точек, попавших в заданную область. 2) Формирование массива из координат точек, попавших в заданную область. Заранее блогадарю 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.10.2011, 21:22	2
	Еще бы и что-то про область узнать... 0

@stimo15 148 / 111 / 83 Регистрация: 09.09.2011 Сообщений: 274
	07.10.2011, 21:39 [ТС]	3
	ой извенеюсь, вот прикрепил картинку Миниатюры 0

	07.10.2011, 22:13

Подсчет количества точек, попавших в заданную область

Решение