Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
2 / 2 / 0
Регистрация: 16.10.2009
Сообщений: 65
1

Определите средний балл студентов группы по каждому предмету

23.10.2009, 12:08. Просмотров 2951. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста написать программу с помощью процедуры или функции!!!

Дана матрица А, имеющая 30 строк и 10 столбцов, содержащая оценки группы за первый семестр. Определите средний балл студентов группы по каждому предмету.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2009, 12:08
Ответы с готовыми решениями:

Подсчитать средний балл каждого студента, общий средний балл по каждому предмету
Приложение под Windows должно подсчитывать средний балл каждого студента, общий средний балл по...

Вычислить средний балл группы и распечатать список студентов, имеющих средний балл ниже среднего балла группы.
Ввести сведения о пяти студентах: фамилию, год рождения, рейтинг по предметам: алгоритмизация,...

Средний балл каждого студента по каждому предмету
Пользователь последовательно вводит оценки студентов по предметам. Кол-во студентов и предметов...

Вывести на экран матрицу ведомости, результаты подсчета и средний балл по каждому предмету
1. В классе 7 учащихся. Известны результаты экзаменов по 2 предметам. Составить программу...

2
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
23.10.2009, 12:33 2
Pascal
1
2
3
4
5
6
7
for i:=1 to 10 do
begin
sr:=0;
for j:=1 to 30 do
sr:=sr+a[j,i];
writeln('Средний бал по ',i,' -му предмету равен ',sr/30:2:2);
end;
1
Модератор
61227 / 45892 / 31675
Регистрация: 18.05.2008
Сообщений: 110,519
23.10.2009, 12:46 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const n=22; {если Турбо Паскаль в режиме окна 25 строк, 
больше на экран не войдет, если нужно, исправьте}
      m=10;
type mas=array[1..n] of byte;{массивы - столбцы}
    matr=array[1..m] of mas;{массив столбцов - матрица}
function Sred(m:mas):real;{вычисление среднего в столбце}
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do{считаем сумму и делим на количество}
s:=s+m[i];
Sred:=s/n;
end;
 
var a:matr;
    i,j:byte;
begin
clrscr;
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(3)+3;{заполняем по столбцам оценки
это без 2, если нужно напишите random(4)+2}
writeln('Ведомость оценок за 1 семетр:':40);
for i:=1 to n do{по строкам}
 begin
  write('':5);{в начале строки отступ по 5 пробелов}
  for j:=1 to m do{по столбцам}
  write(a[j,i]:4);{выводим матрицу в транспонированном виде, 
не a[i,j], a a[j,i], чтоб столбцы были столбцами а не строками}
  writeln;
 end;
writeln;
write('Сред.');{нижняя строка результат вычисления по столбцам}
for i:=1 to m do
write(Sred(a[i]):4:1);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2009, 12:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вывести на экран исходную матрицу-ведомость, результаты подсчета и средний балл по каждому предмету
В классе 7 учеников, известны результаты сдачи экзаменов по двум предметам. Составьте программу...

Записи: Определить средний балл по группе студентов по каждому из предметов
Исходная таблица представляет собой список студентов (ф.и.о) по всем предметам за предыдущую...

Посчитать средний балл студентов определённой группы
Посчитать средний бал студентов определенной группы. (Через записи в Pascal)

Файл: Распечатать список студентов, имеющих средний балл меньше среднего балла группы.
Вычислить средний балл группы и распечатать список студентов имеющих средний балл меньше среднего...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.