Варианты 34-36
Оператором DIM объявляются 4 массива: для матрицы коэффициентов, для элементов определителя, для значений определителей 3-го порядка (вариант 35) и определителей 2-го порядка (вспомогательный). Затем организуется двойной (вложенный) цикл для ввода матрицы коэффициентов и вывода ее на экран. Посредством тройного цикла (внешний цикл от 1 до 4, поскольку 4 определителя) осуществляется формирование определителей, вычисляемых подпрограммой вычисления определителя 3-го порядка. К подпрограмме, завершаемой оператором RETURN, обращаются с помощью оператора GOSUB. В подпрограмме осуществляется формирование в цикле операторов 2-го порядка, вычисляемых затем по формуле d = m(1,1)*m(2,2) – m(1,2)*m(2,1). В последнем блоке программы осуществляется анализ полученных решений.
DO
… LOOP WHILE (DO
… LOOP UNTIL)
DO
WHILE … LOOP (DO
UNTIL … LOOP)
Логика цикла
Логика цикла
Таблица 0.4.1.
Оператор и его описание |
DO WHILE i > 10000 i = i +1 LOOP Управляющий оператор цикла, повторяющий блок операторов, пока условие ложно, с проверкой условия в начале. |
DO UNTIL INKEY$ <> "" IF i > 10000 THEN EXIT DO ELSE i = i +1 LOOP Управляющий оператор цикла, повторяющий блок операторов, пока условие истинно, с проверкой условия в начале. Производит увеличение значения счетчика i до тех пор, пока не будет нажата любая клавиша. Предусмотрен досрочный выход из цикла при значении счетчика i > 10000. |
Окончание таблицы 0.4.1.
DO IF i > 10000 THEN EXIT DO ELSE i = i +1 LOOP WHILE INKEY$ = "" Управляющий оператор цикла, повторяющий блок операторов, пока условие ложно, с проверкой условия в конце. Производит увеличение значения счетчика i до тех пор, пока не нажата любая клавиша. Предусмотрен досрочный выход из цикла при значении счетчика i > 10000 |
DO i = i +1 LOOP UNTIL i < 10000 Управляющий оператор цикла, повторяющий блок операторов, пока условие истинно, с проверкой условия в конце. |
PRINT "Нажмите клавишу ESC": DO: LOOP WHILE INKEY$ <> CHR$(27) Пустой цикл, осуществляющий задержку до нажатия клавиши Esc. |
SWAP x( i ), x( j ) Оператор, взаимно меняющий значения двух переменных. |
INKEY$ Функция, читающая символы с клавиатуры. Если символ не был считан, то возвращается нулевая строка. Не дублирует ввод с клавиатуры выводом на экран (без эха). |
CHR$(27) Символьная функция, возвращающая строку из одного символа, ASII-код которого является аргументом, где код – число от 0 до 255. В данном случае аргумент – код клавиши Esc. |
GOSUB 300 Управляющий оператор вызова подпрограммы на строке 300. |
RETURN 10 Управляющий оператор выхода из подпрограммы, возвращающий на строку 10. Если метки нет, то управление возвращается на следующую за GOSUB строку. |