Задан список 200 абитуриентов, сдавших успешно вступительные экзамены по литературе, математике, и физике. Определить сумму балов каждого абитуриента. Использовать оператор DATA. Данные вывести на печать — QBasic(Бейсик)

CLS
DATA Ivanov,5,5,5,Petrov,5,4,3,Sidorov,4,3,4,Jirinovskij,3,3,3,Putin,4,5,5,Medvedev,4,5,4,Obama,3,5,3
DIM a$(7), b(7, 3)
FOR i = 1 TO 7
    READ a$(i)
    FOR j = 1 TO 3
        READ b(i, j)
    NEXT
NEXT
PRINT "familie  literatura     mathematik      physik"
FOR i = 1 TO 7
    PRINT a$(i),
    FOR j = 1 TO 3
        PRINT b(i, j),
    NEXT
    PRINT
NEXT
PRINT

PRINT "summa ballov"
PRINT
FOR i = 1 TO 7
    PRINT a$(i); " summa=";
    s = 0
    FOR j = 1 TO 3
        s = s + b(i, j)
    NEXT
    PRINT s
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment