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

@vladex97 · Регистрация: 31.10.2013

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

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

Kodzaev · 19.06.2014, 22:35

Файл какой, текстовый или типизированный? В каком паскале надо? Что будем считать "словом", набор символов разделенных пробелом?

@vladex97 · 19.06.2014, 23:41 **[ТС]**

типизированный, ABC, ДА набор символов разделенных пробелом

Kodzaev · 20.06.2014, 11:27

Pascal

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.

@vladex97 1 / 1 / 0 Регистрация: 31.10.2013 Сообщений: 28
		1
	Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р 19.06.2014, 21:37. Показов 2549. Ответов 3 Метки нет (Все метки) Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р. 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	19.06.2014, 22:35	2
	Файл какой, текстовый или типизированный? В каком паскале надо? Что будем считать "словом", набор символов разделенных пробелом? 0

@vladex97 1 / 1 / 0 Регистрация: 31.10.2013 Сообщений: 28
	19.06.2014, 23:41 [ТС]	3
	типизированный, ABC, ДА набор символов разделенных пробелом 0

	20.06.2014, 11:27

Опции темы

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

Решение