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

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

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

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

Дана матрица А, имеющая 30 строк и 10 столбцов, содержащая оценки группы за первый семестр. Определите средний балл студентов группы по каждому предмету.

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2009, 12:08
Ответы с готовыми решениями:

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

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

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

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

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

2
mamedovvms
2918 / 839 / 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
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,517
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2009, 12:46

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

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

Вывести на экран ФИО студентов, средний балл которых выше среднего балла всей группы
дана группа студентов которая сформирована ФИО. номер группы и 5 оценок....


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

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

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