В третий файл записать сначала четные элементы первого файла, а затем — нечетные - Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите с этой задачкой,заранее спасибо. Вообщем надо создать 2 типизированных файла из целых чисел в диапазоне [-140;140]. В третий файл записать сначала четные элементы первого файла,а затем - нечетные второго и выполнить построчный вывод файлов на экран.

Решение задачи: «В третий файл записать сначала четные элементы первого файла, а затем — нечетные»

textual
Листинг программы
const fn: array [1..3] of string = ('1.dat', '2.dat', '3.dat');
var f, g: file of integer;
    i, j, n, x: integer;
begin
  randomize;
  assign(g, fn[3]);
  rewrite(g);
  for i := 1 to 2 do
    begin
      assign(f, fn[i]);
      rewrite(f);
      repeat
        write('Число компонентов ', i, ' файла? ');
        readln(n)
      until n > 0;
      writeln('Содержимое ', i, ' файла:');
      for j := 1 to n do
        begin
          x := -random(281) + 140;
          write(x:5);
          write(f, x);
          if odd(i) = not odd(x) then write(g, x)
        end;
      writeln;
      close(f)
    end;
  writeln('Содержимое 3 файла:');
  if filesize(g) = 0
    then write('<Файл пуст>')
    else begin
      reset(g);
      for i := 1 to filesize(g) do
        begin
          read(g, x);
          write(x:5)
        end
    end;
  close(g);
  readln
end.

Объяснение кода листинга программы

  1. Объявляются переменные: fn, f, g, i, j, n, x.
  2. Строки с именами файлов сохраняются в массив fn.
  3. Открывается файл g для записи.
  4. Записывается содержимое первого файла в файл g.
  5. Переменная i инициализируется значением 1.
  6. Цикл while выполняется i раз.
  7. Для каждой итерации цикла:
    • Открывается файл f для чтения.
    • Читается число компонентов i-го файла.
    • Записывается содержимое i-го файла в файл f.
    • Если i - нечетное число, то записывается содержимое i-го файла в файл g.
    • Закрывается файл f.
  8. Выводится содержимое третьего файла.
  9. Если размер файла g равен 0, выводится сообщение <Файл пуст>.
  10. Файл g сбрасывается в начало.
  11. Читается содержимое файла g.
  12. Записывается число компонентов в файл g.
  13. Выводится сообщение Содержимое 3 файла:.
  14. Если размер файла g больше 0, выводится содержимое файла g.
  15. Файл g закрывается.
  16. Выводится сообщение Readln.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы