Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
vladex97
1 / 1 / 0
Регистрация: 31.10.2013
Сообщений: 28
1

Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р

19.06.2014, 21:37. Просмотров 1089. Ответов 3
Метки нет (Все метки)

Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2014, 21:37
Ответы с готовыми решениями:

Определить, можно ли из букв первого слова составить второе слово
Даны два слова, составленные из прописных или заглавных латинских букв. Длина каждого слова не...

Найти в файле f все слова, слева направо и наоборот читаются одинаково и составить из них новый файл q
Найти в файле f все слова, слева направо и наоборот читаются одинаково и составить из них новый...

Перечислить все слова заданного текста, которые состоят из тех же букв, что и последнее слово
Перечислить все слова заданного текста, которые состоят из тех же букв, что и последнее слово.

Найти в файле f все слова, которые представляют числа (в десятичной записи)
Найти в файле f все слова, которые представляют числа (в десятичному записи) и получить числовой...

Файлы. Переписать в другой файл через пробел все числа ,которые поданы в начальном файле как отдельные слова.
Дано текстовый файл с длинами строк не больше 255 символов.Переписать в другой файл через пробел...

3
Kodzaev
3012 / 1900 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
19.06.2014, 22:35 2
Файл какой, текстовый или типизированный? В каком паскале надо? Что будем считать "словом", набор символов разделенных пробелом?
0
vladex97
1 / 1 / 0
Регистрация: 31.10.2013
Сообщений: 28
19.06.2014, 23:41  [ТС] 3
типизированный, ABC, ДА набор символов разделенных пробелом
0
Kodzaev
3012 / 1900 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
20.06.2014, 11:27 4
Лучший ответ Сообщение было отмечено vladex97 как решение

Решение

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
var
  p, s: string;
  f: file of string;
  i, n: integer;
  m, t: set of char;
  
begin
  Write('Введите имя файла: '); ReadLn(s);
  Assign(f, s); Rewrite(f);
  Write('Сколько компонентов записать в файл? '); ReadLn(n);
  WriteLn('Введите компоненты:');
  for i := 1 to n do
  begin
    ReadLn(s);
    Write(f, s)
  end;
  Reset(f);
  Write('Введите P: '); ReadLn(p);
  for i := 1 to Length(p) do
    Include(m, p[i]);
  WriteLn('Все слова файла, которые можно составить из букв слова P:');
  while not EOF(f) do
  begin
    Read(f, s);
    t := [];
    for i := 1 to Length(s) do
      Include(t, s[i]);
    if t <= m then
      WriteLn(s)
  end;
  Close(f)
end.
1
20.06.2014, 11:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.06.2014, 11:27

Удалить слова, которые содержат все буквы заданного слова, и продублировать остальные слова
Разделитель — один из символов « ,.;:!?&quot;'» (начиная с пробела и заканчивая апострофом). Буква —...

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

Возможно ли составить слово из букв данного слова (с учетом кратности)?
Определить возможность составления одного данного слова из букв другого данного слова с учетом...


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

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

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