Файл А заполнен случайными числами. Сформировать файл В из элементов файла А кратных m, и файл С из элементов файла А кратных h. m и h – вводятся с клавиатуры.
Решение:
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 file_11;
uses crt; var n, i, x, m, h: integer; a, b, c: file of integer; begin clrscr; randomize; assign(a, ‘faila’); assign(b, ‘failb’); assign(c, ‘failc’); rewrite(a); write(‘Количество элементов > ‘); read(n); writeln(‘Файл A:’); for i:=1 to n do begin x:=random(20)—10; write(a, x); write(x, ‘ ‘); end; writeln; write(‘M > ‘); read(m); write(‘H > ‘); read(h); reset(a); rewrite(b); rewrite(c); while not eof(a) do begin read(a, x); if (x mod m=0) and (x mod h=0) then begin write(b, x); write(c, x); end else if x mod m=0 then write(b, x) else if x mod h=0 then write(c, x) end; close(a); reset(b); reset(c); writeln; write(‘Файл B (x/’, m, ‘):’); while not eof(b) do begin read(b, x); write(‘ ‘, x); end; writeln; write(‘Файл C (x/’, h, ‘):’); while not eof(c) do begin read(c, x); write(‘ ‘, x); end; close(b); close(c); readkey; end. |