Сформировать второй файл, куда поместить все слова, имеющие заданную длину из первого

@anna587 · Регистрация: 30.09.2013

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

дан текстовый файл. сформировать второй файл, куда поместить все слова, имеющие заданную длину

@CodeR · 02.02.2014, 19:42

Pascal

Const mn=[' ',',','.','?','!'];
Var f,g:text;
    s,st:string;
    i,len:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    write('Введите длину: ');readln(len);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';st:='';
      For i:=1 to Length(s) do
       if not(s[i] in mn) then st:=st+s[i]
       else
       Begin
         if Length(st)=len then writeln(g,st);
         st:='';
       End;
     End;
     writeln('Результат в файле "out.txt"');
     Close(f);Close(g);
     readln;
End.

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

@anna587 0 / 0 / 0 Регистрация: 30.09.2013 Сообщений: 147
		1
	Сформировать второй файл, куда поместить все слова, имеющие заданную длину из первого 02.02.2014, 19:20. Показов 1515. Ответов 1 Метки нет (Все метки) дан текстовый файл. сформировать второй файл, куда поместить все слова, имеющие заданную длину 0

	02.02.2014, 19:42

Сформировать второй файл, куда поместить все слова, имеющие заданную длину из первого

Решение