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

@skleir · Регистрация: 18.01.2012

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

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

@CodeR · 10.10.2012, 12:47

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 Pos(c,s1)>0 then write(g,s1+' ');
     End;
     write(g,#13);
    End;
    writeln('Новый файл создан!');
    Close(f);Close(g);
End.

Файл in.txt должен быть создан и заполнен в папке с прогой
Предполагается что слова разделены пробелами.

@skleir 1 / 1 / 0 Регистрация: 18.01.2012 Сообщений: 30
		1
	Файлы: все слова, в которых есть указанная буква, переписать в новый файл 10.10.2012, 12:19. Показов 1345. Ответов 1 Метки нет (Все метки) дан файл, содержащий текст. Все слова в которых есть указанная буква переписать в новый файл 0

Опции темы

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

Решение