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

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

27.04.2016, 01:12. Просмотров 737. Ответов 1
Метки нет (Все метки)

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

Добавлено через 2 часа 14 минут
Уже сам все сделал.

Добавлено через 2 часа 7 минут
Только кол-во студентов, предметов пришлось оставить const и вид не табличный ни разу.. Если знаете как его сделать похожим на таблицу (чтобы средний балл для каждого предмета выводился отдельно) ответьте, пожалуйста.

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
PROGRAM ball;
USES crt;
CONST
 studNum=4;
 subjNum=3;
VAR
 matrix:array [1..studNum,1..subjNum] of integer;
 matrixOfMean:array [1..studNum] of real;
 i,j:integer;
 mean:real;
BEGIN
 TextBackGround(0);
 TextColor(2);
 ClrScr;
 for i:=1 to studNum do
  begin
  writeln(' ');
  writeln('  Введите оценки ',i,'-го студента:');
  for j:=1 to subjNum do
   begin
   readln(matrix[i,j]);
   matrixOfMean[i]:=matrixOfMean[i]+matrix[i,j];
   end;
  matrixOfMean[i]:=matrixOfMean[i]/studNum;
  mean:=mean+matrixOfMean[i];
  end;
 mean:=mean/studNum;
 ClrScr;
 writeln(' ');
 for i:=1 to studNum do
 writeln('  Средний балл ',i,'-го студента=',matrixOfMean[i]:2:1);
 writeln('  -------------------------------');
 writeln('  Средний балл всех студентов=',mean:2:1);
 readln;
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2016, 01:12
Ответы с готовыми решениями:

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

Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента и общий средний балл
Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента...

Найти средний балл каждого студента и общий средний балл
Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента и...

Найти средний балл каждого студента и общий средний балл
Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента...

1
2 / 2 / 2
Регистрация: 28.04.2016
Сообщений: 19
29.04.2016, 10:57 2
Где тебе надо таблице?
Процедура gotoxy(X,Y:integer) - Устанавливает курсор в нужное место:

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
PROGRAM ball;
USES crt;
CONST
 studNum=4;
 subjNum=3;
VAR
 matrix:array [1..studNum,1..subjNum] of integer;
 matrixOfMean:array [1..studNum] of real;
 i,j:integer;
 mean:real;
BEGIN
 TextBackGround(0);
 TextColor(2);
 ClrScr;
 for i:=1 to studNum do
  begin
  writeln(' ');
  writeln(' Введите оценки ',i,'-го студента:');
  for j:=1 to subjNum do
   begin
   gotoxy(j*4,i*4); {!! поиграй с этим}
   read(matrix[i,j]);
   matrixOfMean[i]:=matrixOfMean[i]+matrix[i,j];
   end;
  matrixOfMean[i]:=matrixOfMean[i]/studNum;
  mean:=mean+matrixOfMean[i];
  end;
 mean:=mean/studNum;
 ClrScr;
 writeln(' ');
 for i:=1 to studNum do
 writeln('  Средний бал ',i,'-го студента ',matrixOfMean[i]:2:1);
 writeln('  -------------------------------');
 writeln('  Средний бал всех студентов=',mean:2:1);
 readln;
END.
Добавлено через 27 минут
Ещё забыл:
Есть функции
WhereX - вернёт X положения курсора, и WhereY - соответственно
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2016, 10:57

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

Определите средний балл студентов группы по каждому предмету
Помогите пожалуйста написать программу с помощью процедуры или функции!!! Дана матрица А,...

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

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

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


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

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

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