Дан массив n*m. удалить 3 строку. на qbasic

Дан массив n*m. удалить 3 строку. на qbasic
Гость
Ответ(ы) на вопрос:
Гость
MS DOS QBasic 1.0 DIM n AS INTEGER, m AS INTEGER CLS INPUT "n,m=", n, m IF n < 3 THEN    PRINT "n<3"    SYSTEM END IF REDIM a(1 TO n, 1 TO m) AS INTEGER RANDOMIZE TIMER FOR i = 1 TO n    FOR j = 1 TO m       a(i, j) = INT(50 * RND)       PRINT USING "###"; a(i, j);    NEXT j    PRINT NEXT i PRINT FOR i = 4 TO n    FOR j = 1 TO m       a(i - 1, j) = a(i, j)    NEXT j NEXT i FOR i = 1 TO n - 1    FOR j = 1 TO m       PRINT USING "###"; a(i, j);    NEXT j    PRINT NEXT i Пример n,m=5,8  43  6 19 48 44  6 28 10   5 48 44  1 31 30 25 33  19 30 46 27 29 34 45  8  17 37 43  1 37 46 25 45  48 48 27 21 36 48 44 37  43  6 19 48 44  6 28 10   5 48 44  1 31 30 25 33  17 37 43  1 37 46 25 45  48 48 27 21 36 48 44 37 Замечание Поскольку QBasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для упрощения было решено не заниматься созданием вспомогательного массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. Просто считается, что n уменьшилось на 1.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы