Записать в первый файл случайные целые числа. Заполнить второй файл числами, которые являются произведением соседних компонентов первого файла.
Решение:
|
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. |