Класс, состоящий из 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.

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

  1. Объявлены переменные: fin, fout: text; n, i, sum, count, x: integer;
  2. Открывается файл input.txt для чтения (assign(fin, 'input.txt'));
  3. Файл input.txt считывается с помощью цикла for i := 1 to n, где n - количество оценок в файле;
  4. Каждая оценка x считывается из файла и проверяется условием (x > 3), если оно выполняется, то оценка прибавляется к сумме и увеличивается счетчик count;
  5. Файл input.txt закрывается (close(fin));
  6. Открывается файл output.txt для записи (assign(fout, 'output.txt'));
  7. В файл output.txt записывается результат (sum / count) с помощью функции write(fout, sum / count);
  8. Файл output.txt закрывается (close(fout));
  9. Программа завершается.

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

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