Подсчет количества четных и сумма нечетных чисел в файле - 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 и выполняет следующие действия:

  1. Объявляет переменные: f - файл, x - число, a и b - переменные для хранения суммы четных и нечетных чисел соответственно.
  2. Устанавливает связь с файлом 'a4.dat'.
  3. Записывает в файл числа от 1 до 10 с шагом 1.
  4. Сбрасывает счетчик чётных/нечётных чисел в ноль.
  5. Открывает файл для чтения.
  6. Если файл открыт успешно, то читает числа из файла до конца файла.
  7. Для каждого прочитанного числа проверяет, является ли оно чётным или нечётным.
  8. Если число чётное, увеличивает счётчик чётных чисел на единицу.
  9. Если число нечётное, увеличивает счётчик нечётных чисел на число.
  10. После прочтения всех чисел закрывает файл.
  11. Выводит на экран количество чётных чисел и сумму нечётных чисел. Примечание: В данном коде используется функция random(10), которая генерирует случайное число в диапазоне от 0 до 9. Это позволяет создавать разные наборы чисел при каждом запуске программы.

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


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

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

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