Text9. Дано целое число $$K$$ и текстовый файл. Вставить пустую строку перед строкой файла с номером $$K$$. Если строки с таким номером нет, то оставить файл без изменений.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
program Text9; var F_in,F_out: Text; Name,S: String; K,i:integer; begin Write('File name: '); Readln(Name); Assign(F_in,Name); Assign(F_out,'~'+Name); Write('K: '); Readln(K); Reset(F_in); Rewrite(F_out); i:=0; While not eof(F_in) do begin Readln(F_in,S); inc(i); if i=k then Writeln(F_out); Writeln(F_out,S); end; Close(F_in); Close(F_out); Erase(F_in); Rename(F_out,Name); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: