Напечатать все элементы матрицы, большие по модулю 2 - QBasic

Формулировка задачи:

Условие задачи такое: Дана матрица С с элементами Сij, i=1.2.3...5 j=1.2.3....5 напечатать все Cij больше по модулю 2

                    Листинг программы
                
 
                        
                          
                    
DIM C(5,5)
open "data" for output as #1
FOR I = 1 TO 4
FOR J = 1 TO 5
INPUT X
PRINT #1,X
NEXT J, I
close #1
open "data" for input as #2
open "rez" for output as #3
FOR I = 1 TO 5
FOR J = 1 TO 5
INPUT #2, C(I,J)
IF ABS(C(I,J))>2 THEN PRINT #3, C(I,J)
NEXT J, I
CLOSE
END

есть еще одна : я её приложил первая задача

Решение задачи: «Напечатать все элементы матрицы, большие по модулю 2»

Листинг программы

DIM mtx(1 TO 5, 1 TO 5) AS INTEGER
CLS
'********************************Vvodim znacheniya v massiv
FOR i = 1 TO 5
    FOR j = 1 TO 5
        INPUT mtx(i, j)
    NEXT j
NEXT i
 
'********************************Vivodim znacheniya iz nego
FOR i = 1 TO 5
    FOR j = 1 TO 5
        IF mtx(i, j) > 2 OR mtx(i, j) < -2 THEN PRINT mtx(i, j)
    NEXT j
NEXT i
END

Объяснение кода листинга программы

Создаем матрицу 5х5, заполняем ее значениями с помощью INPUT.
Выводим значения матрицы, которые больше или меньше 2 по модулю.

Оцени полезность:

13 голосов , оценка 3.923 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы