Question

Дана строка S и текстовый файл. Добавить строку S в начало файла. Это в паскале

Answer 1

Файл исходник input, файл ответ output

Answer 2

Вот пример кода на языке Pascal (Delphi), который добавляет строку S в начало текстового файла:

pascalCopy code
program AddStringToFile;

var
  S: string;
  FileName: string;
  FileText: Text;
  TempFile: Text;
  Line: string;

begin
  S := 'Это строка, которую нужно добавить в файл.';
  FileName := 'путь_к_файлу.txt';

  // Открытие файла для чтения
  Assign(FileText, FileName);
  Reset(FileText);

  // Создание временного файла
  Assign(TempFile, 'temp.txt');
  Rewrite(TempFile);

  // Добавление строки S в начало временного файла
  Writeln(TempFile, S);

  // Копирование содержимого исходного файла во временный файл
  while not EOF(FileText) do
  begin
    Readln(FileText, Line);
    Writeln(TempFile, Line);
  end;

  // Закрытие файлов
  Close(FileText);
  Close(TempFile);

  // Замена исходного файла временным файлом
  Erase(FileText);
  Rename(TempFile, FileName);

  Writeln('Строка успешно добавлена в начало файла.');
  Readln;
end.

В данном примере строка S содержит текст, который нужно добавить в начало файла. Вы должны заменить 'путь_к_файлу.txt' на путь к вашему текстовому файлу. После выполнения программы, строка S будет добавлена в начало файла.