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

@Ilya-Kirillov · Регистрация: 15.09.2014

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

1. Записать логическое выражение соответствующие заданной области истинности

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

@Puporev · 29.09.2014, 19:32

Pascal

uses crt;
type point=record
           x,y:real;
           end;
const max=100;
function pop(x,y:real):boolean;
begin
pop:=(x*x+y*y<=4)and(abs(y)<=1)
end;
var a:array[1..max] of point;
    n,i,k:integer;
    x,y:real;
begin
write('Количемтво точек n=');
readln(n);
writeln('Введите координаты точек');
k:=0;
for i:=1 to n do
 begin
  writeln('Точка ',i);
  write('x=');
  readln(x);
  write('y=');
  readln(y);
  if pop(x,y) then
   begin
    k:=k+1;
    a[k].x:=x;
    a[k].y:=y;
   end;
 end;
writeln('Попало точек=',k);
if k>0 then
 begin
  writeln('Это точки');
  for i:=1 to k do
  writeln(a[i].x:4:1,';',a[i].y:4:1);
 end;
end.

@Ilya-Kirillov 0 / 0 / 0 Регистрация: 15.09.2014 Сообщений: 6
		1
	Задано N точек на плоскости: подсчитать количество точек попавших в заданную область 29.09.2014, 19:08. Показов 16094. Ответов 1 Метки нет (Все метки) 1. Записать логическое выражение соответствующие заданной области истинности 2. Составить программу для: а) подсчета количества точек попавших в заданную область б) формирования массива из координат точек, попавших в заданную область. Миниатюры 0

	29.09.2014, 19:32

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

Решение