Решаем задачи Абрамян на Паскале. Text7

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

Решение:

program Text7;

var

F_in,F_out: Text;

Name,S: String;

begin

Write('File name: ');

Readln(Name);

Write('S: ');

Readln(S);

Assign(F_in,Name);

Reset(F_in);

Assign(F_out,'~'+Name);

Rewrite(F_out);

Writeln(F_out,S);

While not eof(F_in) do

begin

Readln(F_in,S);

Writeln(F_out,S);

end;

Close(F_in);

Close(F_out);

Erase(F_in);

Rename(F_out,Name);

end.

Другие задачи из раздела Text можно посмотреть здесь.

menreys

26.01.2017 в 21:32

За что отвечает File name и S?

Ответить
- Anton
  
  27.01.2017 в 08:42
  
  S — Дана строка S и текстовый файл. Добавить строку S в начало файла.
  Name — имя файла.
  File ? встречается только в строке Write(‘File name: ‘); . ‘File name: ‘ это просто текст выводимый на экран.
  
  Ответить