Подсчет количества четных и сумма нечетных чисел в файле - Turbo Pascal

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

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

День добрый. Помогите, написал программу, но не работает, выдает "Ошибка 100: ошибка чтения с диска". Файл находится в той же папке, что и сама программа.
Листинг программы
  1. Uses crt;
  2. Var
  3. f: File of Integer;
  4. x: integer;
  5. a,b: Longint;
  6. BEGIN
  7. a:=0;
  8. b:=0;
  9. Assign(f,'A4.txt');
  10. Reset(f);
  11. If IOResult=0 Then
  12. begin
  13. while not eof(f) do
  14. begin
  15. Read(f,x);
  16. if (x mod 2 = 0) then
  17. a:= a+1
  18. else
  19. b:=b+x;
  20. end;
  21. close (f);
  22. Writeln ('Kolichestvo chetnuh = ', a);
  23. Writeln ('Summa necetnuh = ', b);
  24. Readln;
  25. end;
  26. End.

Решение задачи: «Подсчет количества четных и сумма нечетных чисел в файле»

textual
Листинг программы
  1. program files2;
  2.  
  3. Uses crt;
  4. Var
  5.   f: File of Integer;
  6.   x: integer;
  7.   a,b: Longint;
  8. BEGIN
  9. Assign(f,'a4.dat');
  10. rewrite(f);
  11. for x:=1 to 10 do
  12.   begin
  13.     a:=-5+random(10);
  14.     write(f,a);
  15.     write(a:4);
  16.   end;
  17. writeln;
  18. a:=0;
  19. b:=0;
  20.  
  21. Reset(f);
  22. If IOResult=0 Then
  23. begin
  24. while not eof(f) do
  25. begin
  26. Read(f,x);
  27.         if not odd(x) then
  28.             a:= a+1
  29.             else
  30.             b:=b+x;
  31.         end;
  32.     close (f);
  33. Writeln ('Kolichestvo chetnuh = ', a);
  34. Writeln ('Summa necetnuh = ', b);
  35. Readln;
  36. end;
  37. 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы