Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
goonia91
2 / 2 / 0
Регистрация: 16.10.2009
Сообщений: 65
#1

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

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

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

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

Подсчитать средний балл каждого студента, общий средний балл по каждому предмету - Turbo Pascal
Приложение под Windows должно подсчитывать средний балл каждого студента, общий средний балл по каждому предмету. Исходной информацией...

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

Средний балл каждого студента по каждому предмету - Turbo Pascal
Пользователь последовательно вводит оценки студентов по предметам. Кол-во студентов и предметов непостоянное. На выходе хочет получить...

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

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

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

2
mamedovvms
2918 / 839 / 93
Регистрация: 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
Модератор
53843 / 41476 / 14581
Регистрация: 18.05.2008
Сообщений: 97,201
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
Привет! Вот еще темы с ответами:

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

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

Вывести фамилии студентов, средний бал которых больше, чем общий средний балл - Turbo Pascal
Вычислить средний балл всех студентов по всем предметам. Вывести фамилии студентов,средний бал которых больше,чем общий средний балл. ...

Файлы. Создайте файл Студент. Подсчитайте средний балл по заданному предмету на заданном курсе - Turbo Pascal
Создайте файл Студент. Подсчитайте средний балл по заданному предмету на заданном курсе


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

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

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