Все отрицательные числа матрицы возвести в третью степень - QBasic

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

Все отрицательные числа возвести в третью степень. Из полученных значений сформировать одномерный массив.

Решение задачи: «Все отрицательные числа матрицы возвести в третью степень»

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

input n
input m
dim a(n,m)
dim b(n*m)
randomize timer 
for i = 1 to n
for j = 1 to m
a(i,j) = int(rnd(1)*10)-5
if a(i,j)<0 then a(i,j)=a(i,j)^3
b(j+m*(i-1))=a(i,j)
next
next

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

Вводится число n - количество строк в матрице.
Вводится число m - количество столбцов в матрице.
Создается матрица a(n,m) и заполняется случайными отрицательными числами, которые затем возводятся в третью степень, если они отрицательные.
Создается матрица b(n*m) и заполняется значениями из матрицы a.
Выводится матрица a.
Выводится матрица b.

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

9 голосов , оценка 4.444 из 5

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