File11. Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными номерами (1, 3, …), а второй — с четными (2, 4, …).
>Решение Pascal
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 | program File11; var S:String; F_in,F_out1,F_out2: File of Integer; i,temp,len:integer; begin Write('File In: '); Readln(S); Assign(F_in,S); Reset(F_in); Write('File out1: '); Readln(S); Assign(F_out1,S); ReWrite(F_out1); Write('File out2: '); Readln(S); Assign(F_out2,S); ReWrite(F_out2); i:=1; while not eof(F_in) do begin Read(F_in,temp); if (i mod 2) <> 0 then Write(F_out1,temp) else Write(F_out2,temp); inc(i); end; Close(F_in); Close(F_out1); Close(F_out2); end. |