1 / 1 / 0
Регистрация: 31.10.2013
Сообщений: 28

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

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

Author24 — интернет-сервис помощи студентам
Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.06.2014, 21:37
Ответы с готовыми решениями:

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

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

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

3
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
19.06.2014, 22:35
Файл какой, текстовый или типизированный? В каком паскале надо? Что будем считать "словом", набор символов разделенных пробелом?
0
1 / 1 / 0
Регистрация: 31.10.2013
Сообщений: 28
19.06.2014, 23:41  [ТС]
типизированный, ABC, ДА набор символов разделенных пробелом
0
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
20.06.2014, 11:27
Лучший ответ Сообщение было отмечено 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.06.2014, 11:27
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Шаблоны и протоколы для создания устойчивых микросервисов
ArchitectMsa 19.04.2025
Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .
Изменяемые и неизменяемые типы в Python
py-thonny 19.04.2025
Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .
Интеграция Hangfire с RabbitMQ в проектах C#.NET
stackOverflow 18.04.2025
Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики
ArchitectMsa 18.04.2025
Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
Коммуникация в реальном времени с SignalR в C# на примере создания чата
UnmanagedCoder 17.04.2025
Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .
Реализация CQRS с MediatR на C# .NET
stackOverflow 17.04.2025
Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru