Личный кабинет

удалено: Решение задач

ID темы: 6257
Иван Овчинников ( Пользователь )
помогите пожалуйста решить задачу в qbasik
Переставить элементы массива так что бы все нули оказались в конце
CLS
n = 4
m = 4
DIM A(n, m)
A(1, 1) = 0
A(1, 2) = 0
A(1, 3) = 0
A(1, 4) = 1
A(2, 1) = 0
A(2, 2) = 0
A(2, 3) = 2
A(2, 4) = 1
A(3, 1) = 0
A(3, 2) = 3
A(3, 3) = 2
A(3, 4) = 1
A(4, 1) = 4
A(4, 2) = 3
A(4, 3) = 2
A(4, 4) = 1
PRINT "pervonachalnaya matrica"
FOR i = 1 TO n
FOR G = 1 TO m
PRINT A(i, G);
NEXT G
PRINT
NEXT i

DIM B(n, n)
FOR i = 1 TO n
FOR G = 1 TO m
B(i, G) = 0
NEXT G
NEXT i

z = 1
x = 1
FOR i = 1 TO n
FOR G = 1 TO m
IF A(i, G) <> 0 THEN B(z, x) = A(i, G)
IF A(i, G) <> 0 THEN x = x + 1
IF x > m THEN z = z + 1
IF x > m THEN x = 1
NEXT G
NEXT i

PRINT "preobrazovannaya matrica"
FOR i = 1 TO n
FOR G = 1 TO m
PRINT B(i, G);
NEXT G
PRINT
NEXT i

вот программа нужно сделать к ней блок схему

footer logo © Образ–Центр, 2018. 12+