Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Записи: Вывести на экран список участников команды, победившей в командном зачете https://www.cyberforum.ru/ turbo-pascal/ thread58341.html
В забеге учавствовали 5 команд по 3 человека в каждой команде.В протоколе содержатся сведения о каждом участнике и времени, которое они показали.Вывести на экран список участников команды, победившем...
Файлы, записи. Turbo Pascal
Очень прошу сделать сегодня , мне очень нужно уже завтра сдать 1) Тема: Работа с файлами в языке паскаль. Задача: Сформировать исходный файл .Ввести в него несколько строк символов. Затем...
Turbo Pascal массив
Помогите решить пожалуйста Даны два массива чисел. Найти в них минимальные элементы. Если они равны, то исключить их из массивов. Процедуру повторять до тех пор, пока минимальные элементы массивов...
Turbo Pascal Найти наибольшее из выражений :-|Помогите пожалуйста надо решить эти задачи на паскале..... 1.Ввести с клавиатуры значения переменных А, В, С. Найти наибольшее из выражений (АВ)С, (АС)В, (ВС)А, полагая, что среди них нет равных.... https://www.cyberforum.ru/ turbo-pascal/ thread58069.html
Turbo Pascal Проверить, входит ли меньший массив полностью в больший https://www.cyberforum.ru/ turbo-pascal/ thread58034.html
Цель работы: 1. Изучение работы с двумерными массивами. 2. Изучение режима работы в редакторе «поиск с заменой». Два массива размером 200 и 5 элементов, соответственно, заполните в ...
Turbo Pascal Вычислить сумму ряда
Как сделать? Turbo Pascal
На диске С в каталоге(директории) TURBO в файле SUR.DAT записана информация,состоящая из записей следующего вида : наименование товара,цена,объем партии в штуках. Напишите программу, которая...
Turbo Pascal Определить, являются ли клеточки шахматного поля с координатами (х, у) и (а, с) Разработать программу, предназначенную для шахматных игр с компьютером. Координаты клеточки на шахматной доске определяет пара натуральных чисел, каждое из которых не больше 8 (доска 8х8): первое... https://www.cyberforum.ru/ turbo-pascal/ thread57989.html
Turbo Pascal Тип. файлы https://www.cyberforum.ru/ turbo-pascal/ thread57923.html
Пожалуйста помогите решить задачу Условия: На диске С в каталоге ( дирректории ) Turbo в файле SUR.DAT записана информация, состоящая из записей следующего вида: наименование товара,цена,объём...
Turbo Pascal Сверхпростые числа Я думаю все знают что такое простое число. Сверх простым числом же называются простые числа, имеющие номмера( порядковый номер. Например: 3 5 7 11 - простые числа ) 1 2 3 4 - порядковый... https://www.cyberforum.ru/ turbo-pascal/ thread57868.html
Модератор
61709 / 46193 / 31869
Регистрация: 18.05.2008
Сообщений: 111,434
23.10.2009, 12:46 0

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

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

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2009, 12:46
Готовые ответы и решения:

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

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

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

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

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