Подсчет количества четных и сумма нечетных чисел в файле - Turbo Pascal
Формулировка задачи:
День добрый. Помогите, написал программу, но не работает, выдает "Ошибка 100: ошибка чтения с диска". Файл находится в той же папке, что и сама программа.
Листинг программы
- Uses crt;
- Var
- f: File of Integer;
- x: integer;
- a,b: Longint;
- BEGIN
- a:=0;
- b:=0;
- Assign(f,'A4.txt');
- Reset(f);
- If IOResult=0 Then
- begin
- while not eof(f) do
- begin
- Read(f,x);
- if (x mod 2 = 0) then
- a:= a+1
- else
- b:=b+x;
- end;
- close (f);
- Writeln ('Kolichestvo chetnuh = ', a);
- Writeln ('Summa necetnuh = ', b);
- Readln;
- end;
- End.
Решение задачи: «Подсчет количества четных и сумма нечетных чисел в файле»
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. Это позволяет создавать разные наборы чисел при каждом запуске программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д