Регистрация
valerysidochenozpzmu
26.03.2020 17:14
Информатика
Есть ответ 👍

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

158
178
Посмотреть ответы 2

Ответы на вопрос:

denglushakov1
denglushakov1
4,4(41 оценок)
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.
staslukutin
staslukutin
4,6(71 оценок)
Вот) var   x: real; begin   x : = -1 * pi;   while x < = pi do   begin       writeln('y(', x: 1: 5, ') = ', x * sin(x));       x : = x + 0.3;   end; end.

Популярно: Информатика