Question

Написать программу в паскале: Дано 6 учеников, 3 предмета(физика , матем, русский) нужно чтобы по каждому предмету вычислить средний балл учащихся.
P.S на картинке половина уже есть

Answer 1

 В общем я написал прогу, но у неё куча недостатков
1)нет защиты от "дурака";
2)Имя вводится только числовое;
3)Возможно код можно упростить;

4768a92d6dfbe17c0b670296309f3b1d.pas

Answer 2

так что я всегда стараюсь её писать

Answer 3

И еще, в плане совета на будущее. Не пишите "Pascal ABC 3.2" - такой версии не существует. Есть PascalABC.NET 3.2. А Pascal ABC закончился на версии 1.x

Answer 4

Это не совсем перевод, термин "защита от дурака" пришел к нам из англоязычного, так что скорее это исходное выражение)) иногда его так и произносят: "фул-пруф".

Answer 5

Что по поводу учительницы, её просьба способна превратить задачу на вычисление 2+2 в программу размером за полсотни строк.

Answer 6

И да, Вы на PascalABC.NET 3.2 пишете как на древнем ТурбоПаскаль, только не ставите в начале uses Crt и в коyце ReadKey. Так что можно среду программирования и не упоминать.

Answer 7

// 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

4768a92d6dfbe17c0b670296309f3b1d.pas