Вычислить средний балл группы и вывести на экран список студентов имеющих средний балл выше среднего балла группы. - Pascal
Формулировка задачи:
Решение задачи: «Вычислить средний балл группы и вывести на экран список студентов имеющих средний балл выше среднего балла группы.»
uses crt;
const n=5;
type
gruppa=record
fio: string;
ball: integer;
end;
var
gruppa1: array[1..n] of gruppa;
i:integer;
sb:real;
begin
clrscr;
sb:=0;
for i:=1 to n do
begin
with gruppa1[i] do
begin
writeln('Vvedite fio: ');
readln(fio);
writeln('Vvedite ball studenta');
readln(ball);
end;
sb:=sb+gruppa1[i].ball;
end;
sb:=sb/n;
writeln('Studenty vuse sred balla: ');
for i:=1 to n do
if sb<gruppa1[i].ball then writeln(gruppa1[i].fio);
readln
end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal. Он предназначен для решения задач, связанных с обработкой данных.
В начале кода подключается библиотека crt, которая обеспечивает работу с консолью.
Далее определяется константа n, которая определяет количество студентов в группе.
Затем определяется тип данных gruppa, который представляет собой запись с двумя полями: fio (имя студента) и ball (балл студента).
Переменная gruppa1 представляет собой массив из n записей типа gruppa.
Переменная i используется для перебора студентов в группе.
Переменная sb используется для хранения среднего балла группы.
С помощью цикла for происходит перебор студентов в группе. В каждой итерации цикла считывается имя студента и его балл. Затем балл добавляется к общему среднему баллу sb.
После завершения цикла перебор студентов происходит вывод на экран списка студентов с средним баллом выше среднего балла группы.
Код завершается вызовом функции readln, которая считывает ввод пользователя.