Класс, состоящий из N учащихся, сдает экзамен. Определите среднее значение оценок <4> и <5> - Pascal
Формулировка задачи:
Класс, состоящий из N учащихся , сдает экзамен. Определите среднее значение оценок<4> и <5>. Значение оценок записаны построчно в файле input.txt, первой строкой задано количество учеников результат записать в файл output.txt
Решение задачи: «Класс, состоящий из N учащихся, сдает экзамен. Определите среднее значение оценок <4> и <5>»
textual
Листинг программы
var fin, fout: text; n, i, sum, count, x: integer; begin assign(fin, 'input.txt'); reset(fin); readln(fin, n); for i := 1 to n do begin readln(fin, x); if (x > 3) then begin sum := sum + x; inc(count); end; end; close(fin); assign(fout, 'output.txt'); rewrite(fout); write(fout, sum / count); close(fout); end.
Объяснение кода листинга программы
- Объявлены переменные: fin, fout: text; n, i, sum, count, x: integer;
- Открывается файл input.txt для чтения (assign(fin, 'input.txt'));
- Файл input.txt считывается с помощью цикла for i := 1 to n, где n - количество оценок в файле;
- Каждая оценка x считывается из файла и проверяется условием (x > 3), если оно выполняется, то оценка прибавляется к сумме и увеличивается счетчик count;
- Файл input.txt закрывается (close(fin));
- Открывается файл output.txt для записи (assign(fout, 'output.txt'));
- В файл output.txt записывается результат (sum / count) с помощью функции write(fout, sum / count);
- Файл output.txt закрывается (close(fout));
- Программа завершается.