Создать новый файл, в котором каждое слово будет записано в обратном порядке

@Roma13 · Регистрация: 13.09.2012

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

Задан текстовый файл. Переносов слов нет. Создать новый
файл, в котором каждое слово будет записано в обратном порядке

@CodeR · 08.01.2013, 09:18

Pascal

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

@Roma13 0 / 0 / 0 Регистрация: 13.09.2012 Сообщений: 14
		1
	Создать новый файл, в котором каждое слово будет записано в обратном порядке 07.01.2013, 23:08. Показов 1769. Ответов 1 Метки нет (Все метки) Задан текстовый файл. Переносов слов нет. Создать новый файл, в котором каждое слово будет записано в обратном порядке 0

	08.01.2013, 09:18

Создать новый файл, в котором каждое слово будет записано в обратном порядке

Решение