Создание и отладка программ на языке QBASIC.

 

Цель работы: получение навыков работы с операторами ветвления, цикла, обработки массивов и создания подпрограмм.

 

Вариант задания № 85.

Дан двумерный массив NxM. Найти в нем минимальный элемент и поставить его в строку с номером l и столбец с номером f (l<N, f<M).

 

Блок-схема.

 

Здесь должна быть блок-схема.

 

Текст программы.

 

INPUT "Vvedite kolichestvo strok N="; N%

INPUT "Vvedite kolichestvo stolbczov M="; M%

DIM MAS(1 TO N%, 1 TO M%)

FOR I = 1 TO N%

FOR J = 1 TO M%

PRINT "MAS("; I; ","; J; ")=";

INPUT MAS(I, J)

NEXT J, I

MIN = MAS(1, 1): IM = 1: JM = 1: K = 0

FOR I = 1 TO N%

FOR J = 1 TO M%

IF MIN = MAS(I, J) THEN K = K + 1

IF MIN > MAS(I, J) THEN K = 1: MIN = MAS(I, J): IM = I: JM = J

NEXT J, I

IF K = 1 THEN PRINT "K="; K, "I="; IM, "J="; JM, "MIN="; MIN

IF K > 1 THEN

PRINT "K="; K

FOR I = 1 TO N%

FOR J = 1 TO M%

IF MIN = MAS(I, J) THEN PRINT "I="; IM, "J="; JM, "MIN="; MIN

NEXT J, I

END IF

IF K > 1 THEN PRINT "V dannom massive bolee 1 min elementa, poetomu zadacha rewena ne korrectno"

IF IM = 1 THEN PRINT "Minimalnyiy element v 1 stroke poetomu zada4a rewena ne korrectno"

IF JM = 1 THEN PRINT "Minimalnyiy element v 1 stolbcze poetomu zada4a rewena ne korrectno"

IF IM = 1 THEN l = IM

IF IM > 1 THEN l = IM - 1

IF JM = 1 THEN f = JM

IF JM > 1 THEN f = JM - 1

PRINT "Poziczia min elementa IM="; IM, "JM="; JM

PRINT "Poziczia min elementa posle perestanovki L="; l, "F="; f

X = IM

Y = JM

SWAP MAS(X, Y), MAS(l, f)

PRINT "Prejbrazovannyiy massiv MAS"

FOR IM = 1 TO N%

FOR JM = 1 TO M%

PRINT MAS(IM, JM)

NEXT JM

PRINT

NEXT IM

 

Результаты выполнения программы.

 

1.                Откроем файл QBASIC.exe

 

 

2.                Нажмем «ESC» для начала работы. Затем из меню файл выберем открыть. Зададим путь и имя файла, потом нажмем «ОК»

 

 

3.      Осуществим запуск программы из меню Запуск, либо нажимаем сочетание клавиш «Shift + F5».