В файле поменять местами первый и последний символы

@alexcrow · Регистрация: 05.07.2012

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

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

@CodeR · 06.09.2012, 11:03

Pascal

Const mn=[' ',',','!','?','-'];
Var f,g:text;
    i:byte;
    s,s1,s2:string;
    t:char;
Begin
    Assign(f,'C:\in.txt');Reset(f);
    Assign(g,'C:\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 s[i] in mn then s1:=s1+s[i]
        else 
         Begin
          t:=s1[1];
          s1[1]:=s1[Length(s1)];
          s1[Length(s1)]:=t;
          s1:=s1+s[i];
          s2:=s2+s1;
          s1:='';
         End;
       writeln(g,s2);
      End;
    writeln('Файл преобразован и находится в C:\out.txt');
    Close(f);Close(g);
    readln;
End.

Добавлено через 18 минут
файл in.txt создашь и заполнишь в корне диска C

@alexcrow 1 / 1 / 0 Регистрация: 05.07.2012 Сообщений: 29
		1
	В файле поменять местами первый и последний символы 05.09.2012, 22:52. Показов 1605. Ответов 1 Метки нет (Все метки) Дан текстовый файл. В каждом слове поменять местами первый и последний символы. Преобразованные строки записать в новый файл. 0

	06.09.2012, 11:03

В файле поменять местами первый и последний символы

Решение