Как в QBASIC организовать ввод оценок для 18 учеников по трём предметам в таблицу и определить: 1. Сколько всего

Для организации ввода оценок для 18 учеников по трём предметам в таблицу в QBASIC, мы можем использовать массивы. Вот пошаговое решение:

1. Создайте массив для хранения оценок каждого ученика. Для этой задачи создадим массив размером 18 на 3. Каждый элемент этого массива будет представлять оценку ученика по конкретному предмету. Давайте назовём этот массив "оценки".

Добавьте следующий код блок в начало программы:

QBASIC

   DIM оценки(17, 2) AS INTEGER " Создаем массив для хранения оценок учеников

   

   FOR i = 0 TO 17

       FOR j = 0 TO 2

           INPUT "Введите оценку для ученика "; i + 1; " по предмету "; j + 1; ": ", оценки(i, j)

       NEXT j

   NEXT i

   

2. Для определения количества пятерок в таблице нам нужно пройтись по всем оценкам и посчитать количество пятерок.

Добавьте следующий код после предыдущего блока:

QBASIC

   количествоПятерок = 0

   FOR i = 0 TO 17

       FOR j = 0 TO 2

           IF оценки(i, j) = 5 THEN

               количествоПятерок = количествоПятерок + 1

           END IF

       NEXT j

   NEXT i



   PRINT "Количество пятерок в таблице: "; количествоПятерок

   

3. Для определения количества троек у каждого ученика нам также придётся пройтись по всем оценкам, но на этот раз мы будем отслеживать количество троек для каждого ученика.

Добавьте следующий код после предыдущего блока:

QBASIC

   DIM количествоТроек(17) AS INTEGER " Создаем массив для хранения количества троек у каждого ученика

   

   FOR i = 0 TO 17

       количествоТроек(i) = 0 " Инициализируем количество троек для текущего ученика

       FOR j = 0 TO 2

           IF оценки(i, j) = 3 THEN

               количествоТроек(i) = количествоТроек(i) + 1

           END IF

       NEXT j

   NEXT i



   FOR i = 0 TO 17

       PRINT "У ученика "; i + 1; " количество троек: "; количествоТроек(i)

   NEXT i

   

4. Наконец, для определения количества двоек по каждому предмету нам нужно пройтись по всем оценкам и посчитать количество двоек для каждого предмета.

Добавьте следующий код после предыдущего блока:

QBASIC

   DIM количествоДвоек(2) AS INTEGER " Создаем массив для хранения количества двоек по каждому предмету

   

   FOR j = 0 TO 2

       количествоДвоек(j) = 0 " Инициализируем количество двоек для текущего предмета

       FOR i = 0 TO 17

           IF оценки(i, j) = 2 THEN

               количествоДвоек(j) = количествоДвоек(j) + 1

           END IF

       NEXT i

   NEXT j



   FOR j = 0 TO 2

       PRINT "Количество двоек по предмету "; j + 1; ": "; количествоДвоек(j)

   NEXT j

   

Теперь, когда вы запустите программу, она позволит вам ввести оценки для учеников по трем предметам и выведет требуемые результаты. Учтите, что я использую массивы с нумерацией с нуля (0-17 вместо 1-18), поэтому я добавил соответствующую коррекцию при выводе информации о троек и имен учеников.