Подсчет количества четных и сумма нечетных чисел в файле - Turbo Pascal
Формулировка задачи:
День добрый. Помогите, написал программу, но не работает, выдает "Ошибка 100: ошибка чтения с диска". Файл находится в той же папке, что и сама программа.
Решение задачи: «Подсчет количества четных и сумма нечетных чисел в файле»
textual
Листинг программы
program files2; Uses crt; Var f: File of Integer; x: integer; a,b: Longint; BEGIN Assign(f,'a4.dat'); rewrite(f); for x:=1 to 10 do begin a:=-5+random(10); write(f,a); write(a:4); end; writeln; a:=0; b:=0; Reset(f); If IOResult=0 Then begin while not eof(f) do begin Read(f,x); if not odd(x) then a:= a+1 else b:=b+x; end; close (f); Writeln ('Kolichestvo chetnuh = ', a); Writeln ('Summa necetnuh = ', b); Readln; end; End.
Объяснение кода листинга программы
Этот код написан на языке Turbo Pascal и выполняет следующие действия:
- Объявляет переменные: f - файл, x - число, a и b - переменные для хранения суммы четных и нечетных чисел соответственно.
- Устанавливает связь с файлом 'a4.dat'.
- Записывает в файл числа от 1 до 10 с шагом 1.
- Сбрасывает счетчик чётных/нечётных чисел в ноль.
- Открывает файл для чтения.
- Если файл открыт успешно, то читает числа из файла до конца файла.
- Для каждого прочитанного числа проверяет, является ли оно чётным или нечётным.
- Если число чётное, увеличивает счётчик чётных чисел на единицу.
- Если число нечётное, увеличивает счётчик нечётных чисел на число.
- После прочтения всех чисел закрывает файл.
- Выводит на экран количество чётных чисел и сумму нечётных чисел. Примечание: В данном коде используется функция random(10), которая генерирует случайное число в диапазоне от 0 до 9. Это позволяет создавать разные наборы чисел при каждом запуске программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д