Найти количество чётных чисел в тех строках файла, которые начинаются числом 111 - Turbo Pascal

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

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

Найти общее количество чётных чисел в тех строках данного текстового файла, которые начинаются числом 111

Решение задачи: «Найти количество чётных чисел в тех строках файла, которые начинаются числом 111»

textual
Листинг программы
  1. var
  2.   t : text;
  3.   a, k : integer;
  4. begin
  5.   assign(t,'Input.txt');
  6.   reset(t);
  7.  
  8.   k:=0;
  9.  While not Eof(t) do begin
  10.     read(t,a);
  11.  
  12.     If a=111 then
  13.     While not Eoln(t) do begin
  14.       read(t,a);
  15.       If not odd(a) then inc(k);
  16.     end else readln(t);
  17.  
  18.   end;
  19.  
  20.   writeln('Количество чётных чисел ',k);
  21.   readln;
  22. end.

Объяснение кода листинга программы

  1. В начале объявляются переменные: t - текст, a и k - целые числа.
  2. Затем задается имя файла для чтения - 'Input.txt'.
  3. С помощью функции reset(t) файл готов к чтению.
  4. Переменная k инициализируется нулем.
  5. Запускается цикл While не Eof(t) do, который будет выполняться до конца файла.
  6. Внутри цикла считывается число a из файла.
  7. Если число a равно 111, то начинается вложенный цикл While не Eoln(t) do, который будет выполняться до конца строки.
  8. Внутри вложенного цикла считывается число a из файла.
  9. Проверяется, является ли число a нечетным. Если нет, то увеличивается значение переменной k на единицу.
  10. По завершении вложенного цикла для числа a, возвращаемся к основному циклу.
  11. Если до конца строки не было нечетных чисел (т.е. все числа были четными), то считывается последняя строка файла с помощью функции readln(t).
  12. По завершении основного цикла выводится сообщение с количеством четных чисел, которое сохранено в переменной k.
  13. Вызывается функция readln для выхода из программы.

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


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

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

11   голосов , оценка 4.182 из 5

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

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

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