Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
kayslu
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 215
1

Сочетания из элементов заданного множества

28.08.2013, 21:55. Просмотров 729. Ответов 5
Метки нет (Все метки)

Дан текстовый файл со строкой, представляющей набор слов из букв и цифр. Разделители
между словами - пробелы. Написать программу на паскале для генерации сочетаний из слов этой строки во 2-й файл.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.08.2013, 21:55
Ответы с готовыми решениями:

Привести в порядке возрастания все r-сочетания с повторениями элементов множества {1, 2, ., n} и определить их количество
В программе в режиме диалога вводятся числа n и r (n,r<=10). Привести в порядке...

Осуществить ввод элементов заданного множества с клавиатуры
Осуществить ввод элементов заданного множества с клавиатуры.Определить является...

Образовать множество, которое бы содержало один из элементов множества A и один из элементов множества числа B
кто знает как решить Даны множества A; B. Образовать множество, которое бы...

Сформировать множества А и В по заданному числу элементов для каждого множества
2)Сформировать множества А и В, базовый тип которых -70..30, по заданному числу...

Перечислить точки заданного множества
"Порядок" на точках плоскости определили следующим образом: (x,y)<=(u,v), если...

5
Kodzaev
3006 / 1895 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
29.08.2013, 11:59 2
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
var
  fi, fo: text;
  s: string;
  a: array [1..100] of string;
  i, j, n, kol: integer;
 
begin
  Assign(fi, 'input.txt');
  Reset(fi);
  Readln(fi, s);
  while Pos('  ', s) > 0 do
    Delete(s, Pos('  ', s), 1);
  s := s + ' ';
  repeat
    Inc(i);
    a[i] := Copy(s, 1, Pos(' ', s));
    Inc(kol);
    Delete(s, 1, Pos(' ', s));
  until s = '';
  Assign(fo, 'output.txt');
  Rewrite(fo);
  Writeln('Сколько сочетаний сгенерировать? ');
  Readln(n);
  Randomize;
  for i := 1 to n do
  begin
    for j := 1 to kol do
      Write(fo, a[Random(kol) + 1]);
    Writeln(fo);
  end;
  Close(fi);
  Close(fo);
  Writeln('Готово');
  Readln
end.
1
kayslu
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 215
30.08.2013, 08:51  [ТС] 3
Уважаемый Kodzaev, большое спасибо.
Сделайте, пожалуйста, изменения. Генерируйте не заданное количество строк сочетания, а пусть сколько получится - столько и получится. Нужно генерировать сочетания по n из m (m - количество слов заданной строки изначального файла), n - любое число, меньшее m. Спасибо
0
Puporev
Модератор
55053 / 42323 / 29227
Регистрация: 18.05.2008
Сообщений: 100,020
30.08.2013, 11:59 4
Цитата Сообщение от kayslu Посмотреть сообщение
Нужно генерировать сочетания по n из m (m - количество слов заданной строки изначального файла), n - любое число, меньшее m.
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
var fi, fo: text;
    s: string;
    a: array [0..100] of integer;
    b: array [1..100] of string;
    i, j, m, n: integer;
{ ïðîöåäóðГ* âûâîäГ* ГІГҐГЄГіГ№ГҐГЈГ® ñî÷åòГ*Г*ГЁГї }
procedure Out;
var i: integer;
begin
  for i:=1 to n do write(fo,b[a[i]]);
  writeln(fo)
end;
begin
  Assign(fi, 'input.txt');
  Reset(fi);
  Readln(fi, s);
  while Pos('  ', s) > 0 do
  Delete(s, Pos('  ', s), 1);
  s := s + ' ';
  m:=0;
  repeat
    Inc(m);
    b[m] := Copy(s, 1, Pos(' ', s));
    Delete(s, 1, Pos(' ', s));
  until s = '';
  Assign(fo,'output.txt');
  Rewrite(fo);
  repeat
  Write('ГЏГ® ñêîëüêî ýëåìåГ*òîâ Гў ñî÷åòГ*Г*ГЁГЁ îò 1 äî ',m-1,' n=');
  Readln(n);
  until n in [1..m-1];
  for i:=0 to n do a[i]:=i;
  repeat
   Out;
   i:=n;
   while a[i]=m-n+i do dec(i); { ïîèñê ýëåìåГ*ГІГ* äëÿ èçìåГ*ГҐГ*ГЁГї }
   inc(a[i]);
   for j:=i+1 to n do a[j]:=a[j-1]+1; { èçìåГ*ГҐГ*ГЁГҐ ГЇГ°Г*âîé Г·Г*Г±ГІГЁ ñî÷åòГ*Г*ГЁГї }
  until i=0;
  Close(fi);
  Close(fo);
  Writeln('Ãîòîâî');
  Readln
end.
1
kayslu
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 215
30.08.2013, 17:07  [ТС] 5
Не выводит сочетания строго по n, а по n и менее. Вот хотя бы на примере нижеследующей строки:
0
Вложения
Тип файла: txt input.txt (27 байт, 2 просмотров)
Puporev
Модератор
55053 / 42323 / 29227
Регистрация: 18.05.2008
Сообщений: 100,020
30.08.2013, 17:34 6
Уберите первый пробел в файле, начните с
до

Добавлено через 12 минут
Или убери из строки ведущие пробелы
Pascal
1
2
Readln(fi, s);
while s[1]=' ' do delete(s.1,1);
0
30.08.2013, 17:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.08.2013, 17:34

Вычислить все сочетания из N элементов по M (натуральные числа)
Доброго времени суток. Перед мной стоит задача вычислить все сочетания из N...

Для заданного N напечатать все подмножества множества
Для заданного N напечатать все подмножества множества . Найти их количество. ...

Из заданного на плоскости множества точек выбрать 3 различные
Из заданного на плоскости множества точек выбрать 3 различные так,чтобы...


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

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

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