Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Анастасия2003
0 / 0 / 0
Регистрация: 04.11.2011
Сообщений: 5
#1

Среди точек первого множества найти такую, которая принадлежит наибольшему количеству множеств - Turbo Pascal

12.11.2011, 15:39. Просмотров 913. Ответов 7
Метки нет (Все метки)

На плоскости задано множеств по точек в каждом. Среди точек первого множества найти такую, которая принадлежит наибольшему количеству множеств.
http://www.cyberforum.ru/turbo-pascal/thread421254.html

помогите решить пожалуйста!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.11.2011, 15:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Среди точек первого множества найти такую, которая принадлежит наибольшему количеству множеств (Turbo Pascal):

Дано множество A из N точек на плоскости. Найти точку (вывести её номер и значение) среди всех точек этого множества
Дано множество A из N точек на плоскости. Найти точку (вывести её номер и...

Среди заданного на плоскости точек найти такую, сумма расстояний от который до остальных МАКСИМАЛЬНА
Среди заданного на плоскости точек найти такую, сумма расстояний от который до...

Среди заданного множества точек найти две точки с максимальным расстоянием между ними
Среди заданного множества точек найти две точки с максимальным расстоянием...

Среди множества точек на плоскости найдите пару точек с минимальным расстоянием между ними
Среди множества точек на плоскости найдите пару точек с минимальным расстоянием...

Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем
Помогите плз! Найти номер первого максимального значения среди элементов,...

7
Искандар
Заблокирован
12.11.2011, 18:56 #2
ВОПРОС НЕ СОВСЕМ ПОНЯТЕН, ПО СКОЛЬКО ТОЧЕК В КАЖДОЙ???
0
Анастасия2003
0 / 0 / 0
Регистрация: 04.11.2011
Сообщений: 5
14.11.2011, 19:35  [ТС] #3
ой сори,так скопировалось задано n множеств по m точек
0
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
14.11.2011, 20:39 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
uses crt;
const nmax=8;{чтобы все на экран вошло, да вводить долго}
type point=record
           x,y:integer;
           end;
var a:array[1..nmax,1..nmax] of point;
    m,n,i,j,k,imx,s,mx:byte;
    f:boolean;
begin
clrscr;
repeat
write('Количество множеств до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество точек в множествах до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Введите элементы множеств:');
for i:=1 to n do
 begin
  writeln('Множество ',i);
  writeln('Точка 1');{первая}
  write('x=');readln(a[i,1].x);
  write('y=');readln(a[i,1].y);
  for j:=2 to m do{остальные с проверкой на повтор}
   begin
    repeat
    writeln('Точка ',j);
    write('x=');readln(a[i,j].x);
    write('y=');readln(a[i,j].y);
    k:=1;
    f:=true;
    while (k<=j-1) and f do
    if(a[i,k].x=a[i,j].x)and(a[i,k].y=a[i,j].y)then f:=false
    else k:=k+1;
    until f; {если такой еще не было, все Ok}
   end;
 end;
clrscr;
writeln('Множества:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(' [',a[i,j].x:3,',',a[i,j].y:3,']');
  writeln;
 end;
writeln;
mx:=0;imx:=0;
for i:=1 to m do{первое множество}
 begin
  s:=0;
  for k:=2 to n do{остальные}
   begin
    f:=false;
    j:=1;
    while(j<=m) and not f do
    if(a[k,j].x=a[1,i].x)and(a[k,j].y=a[1,i].y)then f:=true
    else j:=j+1;
    if f then s:=s+1;{если есть +1}
   end;
  if s>mx then{больше макс}
   begin
    mx:=s;
    imx:=i{номер точки}
   end;
 end;
if imx=0 then write('Ни одна из точек 1 множества не встречена в остальных')
else write('Наибольшему числу множеств принадлежит точка [',a[1,imx].x,',',a[1,imx].y,']');
readln
end.
1
kreksp
0 / 0 / 1
Регистрация: 09.11.2011
Сообщений: 4
22.02.2012, 20:09 #5
а как в это задаче получить графическое изображение ?
0
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
22.02.2012, 21:06 #6
Точки разных множеств обозначить разными цветами, точку из первого множества, принадлежащую наибольшему числу других множеств выделить например кружком большего диаметра.
0
kreksp
0 / 0 / 1
Регистрация: 09.11.2011
Сообщений: 4
24.02.2012, 20:20 #7
ну это я как бы понимаю просто с модулем graph никогда не пробовал работать, поэтому не знаю после чего его нужно вставлять и как
0
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
24.02.2012, 21:53 #8
Цитата Сообщение от kreksp Посмотреть сообщение
просто с модулем graph никогда не пробовал работать,
Попробуй.

Добавлено через 29 минут
Вообще затея какая-то плохая. Ведь точки разных множеств могут совпадать и как их отличать непонятно.
0
24.02.2012, 21:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.02.2012, 21:53
Привет! Вот еще темы с решениями:

Постройте вектор, каждый элемент которого равен наибольшему количеству равных элементов в соответствующей строке матрицы
Помогите пожалуйста с задачей. Заранее благодарна) 17. Пусть дана матрица А(n...

Построить вектор, каждый элемент которого равен наибольшему количеству равных элементов в соответствующей строке матрицы
program Project1; {$APPTYPE CONSOLE} uses SysUtils, Windows; const...

Найти пересечение и разность заданных множеств точек (составить блок-схему к программе)
условие задачи. Дано два множество точек. Найти пересечение и разность этих...

Найти номер первого минимального элемента среди положительных элементов, расположенных до первого элемента, кратного пяти.
Задан целочисленный одномерный массив a из n элементов. Найти номер первого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru