Создать два файла вещественных чисел. Подсчитать количество компонент в них. Получить результирующий файл - Pascal
Формулировка задачи:
Создать два файла вещественных чисел. Подсчитать количество компонент в них. Получить результирующий файл, в который переписать более короткий файл. Полученный файл распечатать.
Прошу сделать только с помощью цикла not eof и без рандома.
Заранее спасибо.
Решение задачи: «Создать два файла вещественных чисел. Подсчитать количество компонент в них. Получить результирующий файл»
textual
Листинг программы
var q, f, g: file of real; x: real; i, n: integer; begin assign(q, 'file3.dat'); assign(f, 'file1.dat'); rewrite(f); write('Введите количество чисел в файле: '); readln(n); writeln('Введите в файл числа:'); for i := 1 to n do begin readln(x); write(f, x); end; writeln('Содержание исходного файла F:'); reset(f); while not eof(f) do begin read(f, x); write(x, ' '); end; close(f); writeln; assign(g, 'file2.dat'); rewrite(g); write('Введите количество чисел в файле: '); readln(n); writeln('Введите в файл числа:'); for i := 1 to n do begin readln(x); write(g, x); end; writeln('Содержание исходного файла G:'); reset(g); while not eof(g) do begin read(g, x); write(x, ' '); end; close(g); writeln; reset(f); reset(g); if filesize(f) < filesize(g) then begin rewrite(q); writeln('Содержание файла Q:'); while not eof(f) do begin read(f, x); write(q, x); write(x, ' '); end; close(f); end else begin rewrite(q); writeln('Содержание файла Q:'); while not eof(g) do begin read(g, x); write(q, x); write(x, ' '); end; close(g); end; end.
Объяснение кода листинга программы
- Объявлены переменные: q, f, g (файлы), x (вещественное число), i, n (целые числа).
- Первый файл (q) открыт для записи, второй (g) открыт для записи.
- Пользователю предлагается ввести количество чисел в первом файле, после чего это количество чисел записывается в файл.
- Пользователю предлагается ввести количество чисел во втором файле, после чего это количество чисел записывается во второй файл.
- Выводится содержимое первого файла (числа и пробелы между ними).
- Выводится содержимое второго файла (числа и пробелы между ними).
- Если размер первого файла меньше размера второго, то в третий файл (q) записывается содержимое первого файла.
- Если размер первого файла больше или равен размеру второго, то в третий файл (q) записывается содержимое второго файла.
- Третий файл (q) выводится на экран (числа и пробелы между ними).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д