В файл данных занесены исходные суммы вкладов 5 вкладчиков, положенные под 3% годовых. Распечатать суммы вкладов через 5 лет- QBasic(Бейсик)

CLS
n = 5
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite vklad"; i
    INPUT a(i)
NEXT
PRINT "vklady"
FOR i = 1 TO n
    PRINT a(i)
NEXT
FOR j = 1 TO 5: FOR i = 1 TO n
        a(i) = a(i) + a(i) * 0.03
NEXT: NEXT
PRINT "new vklady"
FOR i = 1 TO n
    PRINT a(i)
NEXT

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

Leave a Comment