File35. Дан файл целых чисел, содержащий менее $$50$$ элементов. Увеличить его размер до $$50$$ элементов, записав в начало файла необходимое количество нулей.
Решение:
|
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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
program File35; var S:String; F_in,F_out: File of Integer; El,i,len:integer; begin Write('File1: '); Readln(S); Assign(F_in,S); Reset(F_in); len:=1; while not eof(F_in) do begin Read(F_in,El); inc(len); end; Close(F_in); Reset(F_in); Assign(F_out,'~'+S); ReWrite(F_out); i:=1; El:=0; while (i<=(50-len)) do begin Write(F_out,El); inc(i); end; while not eof(F_in) do begin Read(F_in,El); Write(F_out,El); end; Close(F_in); Close(F_out); Erase(F_in); Rename(F_out,S); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: