Найти количество чётных чисел в тех строках файла, которые начинаются числом 111 - Turbo Pascal
Формулировка задачи:
Найти общее количество чётных чисел в тех строках данного текстового файла, которые начинаются
числом 111
Решение задачи: «Найти количество чётных чисел в тех строках файла, которые начинаются числом 111»
textual
Листинг программы
- var
- t : text;
- a, k : integer;
- begin
- assign(t,'Input.txt');
- reset(t);
- k:=0;
- While not Eof(t) do begin
- read(t,a);
- If a=111 then
- While not Eoln(t) do begin
- read(t,a);
- If not odd(a) then inc(k);
- end else readln(t);
- end;
- writeln('Количество чётных чисел ',k);
- readln;
- end.
Объяснение кода листинга программы
- В начале объявляются переменные: t - текст, a и k - целые числа.
- Затем задается имя файла для чтения - 'Input.txt'.
- С помощью функции reset(t) файл готов к чтению.
- Переменная k инициализируется нулем.
- Запускается цикл While не Eof(t) do, который будет выполняться до конца файла.
- Внутри цикла считывается число a из файла.
- Если число a равно 111, то начинается вложенный цикл While не Eoln(t) do, который будет выполняться до конца строки.
- Внутри вложенного цикла считывается число a из файла.
- Проверяется, является ли число a нечетным. Если нет, то увеличивается значение переменной k на единицу.
- По завершении вложенного цикла для числа a, возвращаемся к основному циклу.
- Если до конца строки не было нечетных чисел (т.е. все числа были четными), то считывается последняя строка файла с помощью функции readln(t).
- По завершении основного цикла выводится сообщение с количеством четных чисел, которое сохранено в переменной k.
- Вызывается функция readln для выхода из программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д