Даны файлы f1,f2,f3,f4,f5, компоненты которых являются вещественными числами. организуйте обмен компонентами между файлами в соответствии со следующей схемой: f1 f2 f3 f4 f5 ↓ ↓ ↓ ↓ ↓ f3 f4 f5 f2 f1 т.е. компоненты файла f1 переписываются в файл f3, компоненты файла f2 - в f4 и т.д. разрешается использовать только один файл h.

Type   tr = real;   tf = file of tr; procedure swapfile(fn1, fn2: string); var   r: tr;   fin, fout: tf; begin   assign(fin, fn1); reset(fin);   assign(fout, fn2); rewrite(fout);   while (not eof(fin)) do begin read(fin, r); write(fout, r) end;   close(fin); close(fout) end; var   f1, f2, f3, f4, f5, fh: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin'; fh : = 'tmp.bin';   { f2 < -> f4 }   swapfile(f2, fh); swapfile(f4, f2); swapfile(fh, f4);   { f5-> h, f3-> f5, f1-> f3, h-> f1 }   swapfile(f5, fh); swapfile(f3, f5); swapfile(f1, f3); swapfile(fh, f1) end. ******************* для тестирования ****************** можно создать тестовые файлы с следующей программы: type   tr = real;   tf = file of tr; procedure wf(fn: string; m, n: integer); var   fout: tf;   i: integer; begin   assign(fout, fn); rewrite(fout);   for i : = m to n do write(fout, i / 2);   close(fout) end; var   f1, f2, f3, f4, f5: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin';   wf(f1, 3, 7); wf(f2, 11, 19); wf(f3, -6, 9); wf(f4, 0, 11); wf(f5, 14, 22);       end. далее можно просмотреть содержимое созданных файлов с следующей программы: type   tr = real;   tf = file of tr; procedure wf(fn: string); var   fin: tf;   r: tr; begin   writeln(fn);   assign(fin, fn); reset(fin);   while (not eof(fin)) do   begin read(fin, r); write(r: 0: 1, ' ') end;   writeln;   close(fin) end; var   f1, f2, f3, f4, f5: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin';   wf(f1); wf(f2); wf(f3); wf(f4); wf(f5) end. затем выполнить основную программу по перезаписи и снова запустить программу для просмотра файлов.

Сбор и хранение информации

Объяснение: