Управляющие конструкции MS Small Basic

В языке программирования MS Small Basic существует пять операторов управления процессом выполнения программы: оператор If, оператор Goto, оператор цикла While, оператор цикла For и оператор вызова подпрограммы Sub. Эти операторы состоят из четырнадцати ключевых слов MS Small Basic.

Оператор условного перехода If

Оператор If предназначен для создания в программе перехода по условию. Например, если вы хотите вывести «AM» или «PM», при выводе времени, вы можете использовать оператор условного перехода, как показано в следующем примере.

 Для оператора If существует еще одно дополнительное ключевое слово ElseIf. Подробнее об операторе ElseIf — далее.

'Start
hour = Clock.Hour             ' считываем часы
If hour < 12 Then             ' если часов < 12, то...
    TextWindow.WriteLine("AM")' ... пишем "AM"
Else                          ' иначе - ...
    TextWindow.WriteLine("PM")' ...пишем "PM"
EndIf
'End

Оператор безусловного перехода GoTo

Оператор Goto может передать управление в любое отмеченное специальной меткой место в программе. Метка пишется с двоеточием, например, «start:». В следующем примере программа проверяет вводимый текст, и если он равен «Y» или «N», затем показывает «Верно» или «Неверно», в противном случае требует повторного ввода текста с помощью оператора Goto в строке 10.

'Start
start:                              ' метка начала алгоритма
TextWindow.Write("1+1=2 Y/N? ")     ' выводим текст: "1+1=2 Y/N? "
ans = TextWindow.Read()             ' запрашиваем ввод "Y" (да) или "N" (нет)
If ans = "Y" Then                   ' если ответ "Y" (да)...
    TextWindow.WriteLine("Верно")   ' ...пишем "Верно"
ElseIf ans = "N" Then               ' иначе, если ответ "N" (нет)...
    TextWindow.WriteLine("Неверно") ' ...пишем "Неверно"
Else                                ' если ни то, ни другое...
    Goto start                      ' переходим к началу
EndIf
'End

Оператор цикла с условием While

Оператор цикла While повторяет все заключенные в нем операторы, до тех пор пока условие истинно. В следующем примере, пока выполняется условие i <= 10, — повторяются операторы n = n + 1 и i = i + 2.

'Start
n = 0                        ' задаём начальные значения переменных
i = 2

While n <= 10                ' проверяемое в цикле условие
    n = n + 1                ' увеличиваем значение переменной n на 1
    i = i + 2                ' увеличиваем значение переменной i на 2
    TextWindow.WriteLine(i)  ' выводим текущее значение переменной i
EndWhile

TextWindow.WriteLine(n+" "+i)' выводим итоговое значение n и i
'End

Оператор цикла со счётчиком For

Оператор цикла For повторяет все заключенные в нем операторы с увеличением или уменьшением переменной цикла (счётчика). В следующем примере оператор n = n + i повторяется с увеличением переменной i от 0 до 15 с шагом 3.

'Start
For i = 0 To 15 Step 3    ' i изменяется от 0 до 15 с шагом 3
  n = n + i               ' n каждый раз увеличивается на i
  TextWindow.WriteLine(n) ' выводим текущее значение n
EndFor
'End

Объявление и вызов подпрограмм

Подпрограмма — это фрагмент кода, который может быть вызван из основной программы или из другой подпрограммы. Пример простейшей подпрограммы:

'Start                       (начало основной программы)
MySub()                      ' вызов подпрограммы MySub
'End                         (конец основной программы)
 
Sub MySub                    ' подпрограмма
  TextWindow.WriteLine("A")  ' Печать символа "A"
EndSub   

Поделиться: