Переписать в новый текстовый файл компоненты исходного файла, удалив слова, содержащие заданную букву

@Fqzer · Регистрация: 19.02.2017

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

Составление и ввод в ПЭВМ программы с использованием текстовых файлов. Записать текст в файл F. Переписать в файл H компоненты файла F, удалив слова, содержащие букву "с".

@ZX Spectrum-128 · 09.04.2017, 16:55

Взято отсюда:
Файлы: все слова, в которых есть указанная буква, переписать в новый файл

Pascal

var
  f, g: text;
  s, s1: string; 
  c: char;
 
begin
  Assign(f, 'in.txt');
  Reset(f);
  Assign(g, 'out.txt');
  Rewrite(g);
  write('Введите букву: ');
  readln(c);
  while not Eof(f) do
  begin
    readln(f, s);
    s := s + ' ';
    while Pos(' ', s) > 0 do
    begin
      s1 := Copy(s, 1, Pos(' ', s) - 1);
      Delete(s, 1, Pos(' ', s));
      if not (Pos(c, s1) > 0) then 
        write(g, s1 + ' ');
    end;
    write(g, #13);
  end;
  writeln('Новый файл создан!');
  Close(f);
  Close(g);
end.

@Fqzer 0 / 0 / 0 Регистрация: 19.02.2017 Сообщений: 9
		1
	Переписать в новый текстовый файл компоненты исходного файла, удалив слова, содержащие заданную букву 09.04.2017, 11:06. Показов 1265. Ответов 1 Метки нет (Все метки) Составление и ввод в ПЭВМ программы с использованием текстовых файлов. Записать текст в файл F. Переписать в файл H компоненты файла F, удалив слова, содержащие букву "с". 0

	09.04.2017, 16:55

Переписать в новый текстовый файл компоненты исходного файла, удалив слова, содержащие заданную букву

Решение