• — Можно ли миллион записать в один бит?
    — Конечно: 1 — есть миллион, 0 — нет миллиона…

Примеры использования ключевых слов языка

Здесь приведены различные примеры использования ключевых слов Small Basic в различных алгоритмических структурах.

Вы можете скопировать указанный ниже код в IDE MS Small Basic и запустить:

 

' выводим на экран числа от 1 до 10
For i = 1 To 10

TextWindow.WriteLine(i)

EndFor

' Печатаем только числа: 1, 3, 5, 7, 9

For i = 1 To 10 Step 2

TextWindow.Write(i + " ")

EndFor

' безостановочно выводим на экран последовательные целые числа

start:

TextWindow.WriteLine(i)

i = i + 1

Goto start

' выводим на экран в зависимости от выпавшего жребия "Выигрыш" или "Проигрыш"

If flip = "Решка" Then

TextWindow.WriteLine("Выигрыш")

Else

TextWindow.WriteLine("Проигрыш")

EndIf

' пример содержит подпрограммы, которая сообщает о победе и выводит на экран слово "Выигрыш"

Sub Win

Sound.PlayBellRing()

TextWindow.WriteLine("Выигрыш!")

EndSub

' выводим на экран cлучайные числа до тех пор, пока не выпадет число больше 100

While i < 100

i = Math.GetRandomNumber()

TextWindow.WriteLine(i)

EndWhile

' Печатаем только числа от 1 до 9

i = 1

While i < 10

TextWindow.Write(i + " ")

i = i + 1

EndWhile

'  Пример проверки условия - текущего года

If Clock.Year = 2021 Then

TextWindow.WriteLine("Год - 2021.")

EndIf

'  то же самое, но с альтернативой

If Clock.Year = 2021 Then

TextWindow.WriteLine("Год - 2021.")

Else

TextWindow.WriteLine("Год не 2021.")

EndIf

' Проверка множественного условия

If Clock.Year = 2021 Then

TextWindow.WriteLine("Год - 2021.")

ElseIf Clock.Year = 2022 then

TextWindow.WriteLine("Год - 2022.")

Else

TextWindow.WriteLine("Год не 2021 и не 2022.")

EndIf

' Использование подпрограмм

Sub PrintSomeMoreText ' подпрограмма

TextWindow.WriteLine("Четвертая строка для вывода.")

EndSub

Sub PrintSomeText ' подпрограмма

TextWindow.WriteLine("Третья строка для вывода.")

EndSub

' основная программа

TextWindow.WriteLine("Первая строка для вывода.")

TextWindow.WriteLine("Вторая строка для вывода.")

PrintSomeText() ' вызов подпрограммы

Goto PrintMoreText ' Безусловный переход к метке

goodbye: '  метка

TextWindow.WriteLine("До встречи!")

Goto end

Sub ThisWillNotPrint ' подпрограмма, описанная где-то в коде основной программы

TextWindow.WriteLine("Это не будет напечатано, если не будет вызова из программы.")

EndSub

printMoreText: '  метка

PrintSomeMoreText() ' вызов подпрограммы

Goto goodbye ' Безусловный переход к метке.

end: '  метка


Поделиться: