Переписать слова из одного файла в другой, перевернув каждое - PascalABC.NET

Формулировка задачи:

Составить программу реализующую конкретную схему действий. В содержимое программы должна входить процедура формирования исходного файла нужного типа и формата Задание Дан текстовый файл,состоящий из слов разделенных пробелом.В конце текста - '.'.Образовать новый файл в котором на месте каждого слова из первого файла будет записана последовательность букв в обратном порядке (например буква->авкуб)

Код к задаче: «Переписать слова из одного файла в другой, перевернув каждое - PascalABC.NET»

textual
uses System.IO;
function makeS(InFileName,OutFileName:string):boolean;  
var
  l:string;
begin
  l:='';Result:=false;
  foreach s:string in &File.ReadAllLines(InFileName,Encoding.Default) do
    if pos('.',s)>0 then begin
      delete(s,pos('.',s),s.length);
      l:=l+string.Join(' ',s.Split(' ').Select(ReverseString))+'.';
      &File.WriteAllText(OutFileName,l,Encoding.Default);
      Result:=true;
      break;
    end else l:=l+string.Join(' ',s.Split(' ').Select(ReverseString))+NewLine;
end;
begin
  writelnformat('{0}',Makes('r1.txt','r2.txt') ? 'Новый файл создан успешно':'ошибка создания файла');
end.

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ