Задача 3 (стр.62)

CLS

INPUT n, m

DIM A(n, m)

FOR i = 1 TO n

FOR j = 1 TO m

INPUT A(i, j)

NEXT j, i

INPUT C

FOR i = 1 TO n

S = 0

FOR j = 1 TO m

S = S + A(i, j)

NEXT j

IF S <= C THEN K = i: EXIT FOR

NEXT i

FOR i = K TO n - 1

FOR j = 1 TO m

A(i, j) = A(i + 1, j)

NEXT j, i

n = n - 1

FOR i = 1 TO n

FOR j = 1 TO m

PRINT A(i, j);

NEXT j

PRINT

NEXT i

END

Задача 4 (стр. 67)

CLS

INPUT n, m

DIM A(n + 1, m + 1)

FOR i = 1 TO n

FOR j = 1 TO m

INPUT A(i, j)

NEXT j, i

min = A(1, 1)

K1 = 1

K2 = 1

FOR i = 1 TO n

FOR j = 1 TO m

IF A(i, j) < min THEN min = A(i, j): K1 = i: K2 = j

NEXT j, i

FOR i = n TO K1 STEP -1

FOR j = 1 TO m

A(i + 1, j) = A(i, j)

NEXT j, i

n = n + 1

FOR j = 1 TO m

A(K1, j) = 0

NEXT j

FOR j = m TO K2 STEP -1

FOR i = 1 TO n

A(i, j + 1) = A(i, j)

NEXT i, j

m = m + 1

FOR i = 1 TO n

A(i, K2) = 0

NEXT i

FOR i = 1 TO n

FOR j = 1 TO m

PRINT A(i, j);

NEXT j

PRINT

NEXT i

END

ЛИТЕРАТУРА

1. Г. Зельднер. Программируем на языке QBASIC 4.5. –М.: ABF, 1996.

2. О.И. Мельникова, А.Ю. Бонюшкина. Начала программирования на языке QBASIC. – М.: ЭКОМ, 1997.

Содержание

часть первая

1. Предварительные сведения . . . . . 1.1.Объявление массива . . . . . . 1.2. Ввод и вывод элементов массива . . . . .

2. Примеры решения типовых задач с использованием одномерных массивов . . . . . .

часть вторая

Задания для организации

самостоятельной работы студентов . . . . .

Ответы на дополнительные задачи . . . . .

Литература . . . . . . . . .

Лицензия № 0243 от 20.01.99 г.

Подписано в печать . . 2001 г. Формат 6084 1/16

Бумага писчая. Печать RISO. усл. печ. л.

4 уч.-изд. л. Тираж 100 экз. Заказ «С»

Издательство Казанского математического общества

420008, Казань, Университетская, 17 – 319

87