<em>MS DOS QBasic 1.0</em>
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
<u>Пример
</u>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
<u>Замечание</u>
Поскольку QBasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для упрощения было решено не заниматься созданием вспомогательного массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. Просто считается, что n уменьшилось на 1.
Открываем виндовый калькулятор, выбираем режим "программирование"
1) 49_10 вбиваем в калькулятор и нажимаем равно
HEX это 16 ричные = 2А
OCT это 8 ричные = 52
BIN это двоичные = 00101010
2)109 (не забыть выбрать режим DEC - десятичные числа) = 1101101 BIN 7 единичек
3) переключаем в двоичный режим, вбиваем перво число, плюс, второе число, равно 00100100
4)переключаем в двоичный режим, вбиваем перво число, минус, второе число, равно 1010
5)переключаем в двоичный режим, вбиваем перво число, умножить, второе число, равно 10010001
6) вбиваем 45 в десятичном режиме и переключаем режимы пока не встретим число 55, это оказывается восьмиричный режим, значит х=8
Компьютеры в будущем не нужны будут зарядки их можно будет поместить в карман их можно будет что-нибудь нарисовать и вытащить и они будут работать без клавиатуры