Вывести на экран таблицу 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
