Записать в первый файл случайные целые числа. Заполнить второй файл числами, которые являются произведением соседних компонентов первого файла.
Решение:
| 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 | program file_4; uses crt; var n, i, x, y: integer; f, g: file of integer; begin clrscr; randomize; assign(f, ‘fail_f’); assign(g, ‘fail_g’); rewrite(f); write(‘Количество чисел > ‘); read(n); for i:=1 to n do begin x:=random(10); write(f, x); write(x, ‘ ‘); end; reset(f); rewrite(g); writeln; while filepos(f)<n–1 do begin read(f, x); read(f, y); write(g, y*x); seek(f, filepos(f)–1); end; reset(g); writeln(‘Результат:’); while not eof(g) do begin read(g, y); write(‘ ‘, y) end; close(f); close(g); readkey; end. |
