Можете написать задачу на qbasic и составить блок-схему к нему? Ввести массив из MxN элементов. Сформировать три новых массива, повернув исходный на 90 градусов против часовой стрелки. Надо, чтобы массив вбивался вручную.
Можете написать задачу на qbasic и составить блок-схему к нему?
Ввести массив из MxN элементов. Сформировать три новых массива, повернув исходный на 90 градусов против часовой стрелки. Надо, чтобы массив вбивался вручную.
Ответ(ы) на вопрос:
CLS
DIM A(100, 100)
INPUT "N="; N
INPUT "M="; M
FOR i = 1 TO N
FOR j = 1 TO M
PRINT STR$(i);
PRINT STR$(j);
INPUT ; A(i, j)
NEXT j
PRINT
NEXT i
PRINT "----------------------------------------------"
FOR i = 1 TO N
FOR j = 1 TO M
PRINT A(i, j),
NEXT j
PRINT
NEXT i
PRINT "----------------------------------------------"
FOR j = M TO 1 STEP -1
FOR i = 1 TO N
PRINT A(i, j),
NEXT i
PRINT
NEXT j
Не нашли ответ?
Похожие вопросы