Вывести на экран таблицу w(7, 7) - VB
Формулировка задачи:
Вывести на экран таблицу w(7, 7) , у которой элементы главной
диагонали (i = j) равны 1, элементы выше главной диагонали равны
сумме индексов (i + j), а элементы ниже ее – разности индексов (i - j)
Решение задачи: «Вывести на экран таблицу w(7, 7)»
textual
Листинг программы
CLS REDIM w(7, 7) FOR i = 1 TO 7 FOR j = 1 TO 7 IF i < j THEN w(i, j) = i + j ELSEIF i > j THEN w(i, j) = i - j ELSE w(i, j) = i END IF PRINT w(i, j); NEXT j: PRINT NEXT i