Вопрос по информатике:
Написать программу в паскале: Дано 6 учеников, 3 предмета(физика , матем, русский) нужно чтобы по каждому предмету вычислить средний балл учащихся.
P.S на картинке половина уже есть
Пожаловаться
- 18.07.2018 01:46
- Информатика
- remove_red_eye 5757
- thumb_up 8
Ответы и объяснения 2
В общем я написал прогу, но у неё куча недостатков
1)нет защиты от "дурака";
2)Имя вводится только числовое;
3)Возможно код можно упростить;
1)нет защиты от "дурака";
2)Имя вводится только числовое;
3)Возможно код можно упростить;
Пожаловаться
- 19.07.2018 21:07
- thumb_up 10
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Введите построчно оценки шести учеников');
Writeln('Порядок ввода оценок: физика, математика, русский');
var d:=ReadMatrInteger(6,3);
Writeln('Средние баллы по предметам');
Writeln('Физика ',d.Col(0).Average:0:2,
', математика ',d.Col(1).Average:0:2,
', русский ',d.Col(2).Average:0:2)
end.
Пример
Введите построчно оценки шести учеников
Порядок ввода оценок: физика, математика, русский
4 5 4
3 4 4
5 4 5
3 3 4
5 5 5
4 4 3
Средние баллы по предметам
Физика 4.00, математика 4.17, русский 4.17
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Введите построчно оценки шести учеников');
Writeln('Порядок ввода оценок: физика, математика, русский');
var d:=ReadMatrInteger(6,3);
Writeln('Средние баллы по предметам');
Writeln('Физика ',d.Col(0).Average:0:2,
', математика ',d.Col(1).Average:0:2,
', русский ',d.Col(2).Average:0:2)
end.
Пример
Введите построчно оценки шести учеников
Порядок ввода оценок: физика, математика, русский
4 5 4
3 4 4
5 4 5
3 3 4
5 5 5
4 4 3
Средние баллы по предметам
Физика 4.00, математика 4.17, русский 4.17
Пожаловаться
- 20.07.2018 21:32
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы