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

@Lida · Регистрация: 14.05.2012

помогите решить)
Задано N точек на плоскости.
записать логическое выражение, соответствующее заданной области истинности.
составить программу для подсчета количества точек, попавших в заданную область.

@Puporev · 21.05.2012, 10:03

Pascal

uses crt;
const nmax=100;{макс. кол. точек}
type
Point=record {точка}
      x,y:real;{координаты}
      end;
MassP=array[1..nmax] of Point; {массив точек}
procedure Tochki(var t:MassP;var n:integer);{создание массива точек}
var i:integer;
begin
repeat
write('Количество точек дo ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  t[i].x:=-2+5*random;{возьмем так чтобы точки были недалеко}
  t[i].y:=-3+5*random;
 end;
writeln('X:');
for i:=1 to n do
write(t[i].x:5:1);
writeln;
writeln('Y:');
for i:=1 to n do
write(t[i].y:5:1);
writeln;
end;
function Prin(a:Point):boolean;
var o1,o2:boolean;
begin
o1:=(abs(a.x)<=1)and(abs(a.y)<=1);{в квадрате}
o2:=(a.x>=0)and(a.x<=2)and(a.y<=0)and(a.y>=a.x-2);
Prin:=o1 or o2;
end;
var t:MassP;
    n,i,k:integer;
begin
clrscr;
randomize;
Tochki(t,n);
k:=0;
for i:=1 to n do
if Prin(t[i]) then k:=k+1;
write('Количество точек, принадлежащих области=',k);
readln
end.

@Lida 0 / 0 / 0 Регистрация: 14.05.2012 Сообщений: 10
		1
	Количество точек, попавших в заданную область 21.05.2012, 01:24. Показов 1547. Ответов 1 Метки нет (Все метки) помогите решить) Задано N точек на плоскости. записать логическое выражение, соответствующее заданной области истинности. составить программу для подсчета количества точек, попавших в заданную область. Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение