Question

Дана строка символов ( 2-3 строки ) в файле F1. Составить функцию , формирующую новую строку : заменить все повторные вхождения символа пробел одним символом пробела , в начало строки добавить слово " HАЧАЛО " , в конец - слово " КОHЕЦ ". Записать новую строку в файл F1 после исходной. Free Pascal

Answer 1

// PascalABC.NET 3.2, сборка 1473 от 08.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadLines('Pas.txt').ToArray;
  var b:=a.Select(s->s.ToWords.JoinIntoString(' ')).ToArray;
  b[0]:='НАЧАЛО '+b[0]; b[b.Length-1]+=' КОНЕЦ';
  var f:=OpenAppend('Pas1.txt'); // после проверки заменить на Pas.txt
  foreach var s in a do Writeln(f,s); // удалить, если используется Pas.txt
  foreach var s in b do Writeln(f,s);
  f.Close
end.

Answer 2

Для решения данной задачи вам потребуется использовать следующие шаги:

1. Открыть файл F1 для чтения и чтение строки из него. 2. Создать новую строку, в которую будем записывать измененную версию исходной строки. 3. Заменить все повторные вхождения символа пробела одним символом пробела с помощью функции Pos и функции StringReplace. 4. Добавить слово "HАЧАЛО" в начало новой строки. 5. Добавить исходную строку после слова "HАЧАЛО" в новую строку. 6. Добавить слово "КОHЕЦ" в конец новой строки. 7. Записать новую строку в файл F1 после исходной строки. 8. Закрыть файл F1.

Пример реализации данной функции на языке Free Pascal:

procedure ReplaceString;
var
  inputFile: TextFile;
  outputFile: TextFile;
  inputString: string;
  newString: string;
begin
  // Открыть файл F1 для чтения
  AssignFile(inputFile, 'F1.txt');
  Reset(inputFile);

// Считать строку из файла F1
  ReadLn(inputFile, inputString);

// Создать новую строку и заменить повторные пробелы
  newString := StringReplace(inputString, '  ', ' ', [rfReplaceAll]);

// Добавить слово "HАЧАЛО" в начало новой строки
  newString := 'HАЧАЛО ' + newString;

// Добавить исходную строку после слова "HАЧАЛО"
  newString := newString + ' ' + inputString;

// Добавить слово "КОHЕЦ" в конец новой строки
  newString := newString + ' КОHЕЦ';

// Закрыть файл F1
  CloseFile(inputFile);

// Открыть файл F1 для записи
  AssignFile(outputFile, 'F1.txt');
  Rewrite(outputFile);

// Записать новую строку в файл F1
  WriteLn(outputFile, newString);

// Закрыть файл F1
  CloseFile(outputFile);
end;

После выполнения данной функции, исходная строка в файле F1 будет заменена на новую строку, которая содержит замененные пробелы, добавленные слова "HАЧАЛО" и "КОHЕЦ".