Выяснить имеются ли в матрице ненулевые элементы - QBasic
Формулировка задачи:
дана квадратичная матрица.выяснить имеются ли в ней ненулевые элементы,и если да то указать индекс хотя бы одного из них
Помогите пожалуйста!
Решение задачи: «Выяснить имеются ли в матрице ненулевые элементы»
textual
Листинг программы
INPUT "vvedite kol-vo strok ", n
DIM a(n, n)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(RND * 2)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i, j) <> 0 THEN PRINT "nenulevye elementy est a("; i; ","; j; ")="; a(i, j): f = 1: END
NEXT
NEXT
IF f = 0 THEN PRINT "nenulevyh elementov net"
Объяснение кода листинга программы
Код выполняет следующие действия:
- Ввод количества строк матрицы с помощью функции INPUT.
- Выделение памяти под матрицу с помощью команды DIM.
- Инициализация матрицы с помощью двух вложенных циклов FOR. Значение каждого элемента матрицы вычисляется как случайное число, ограниченное значениями от 0 до 2, с помощью команды a(i, j) = INT(RND * 2).
- Вывод матрицы на экран с помощью двух вложенных циклов FOR и команды PRINT.
- Поиск ненулевых элементов в матрице с помощью двух вложенных циклов FOR и условного оператора IF. Если элемент ненулевой, его значение и координаты выводятся на экран, а переменная f устанавливается в 1.
- После завершения второго цикла проверяется значение переменной f. Если оно равно 0, выводится сообщение
nenulevyh elementov net.