• Если вы дадите человеку программу, то займете его на один день. Если вы научите человека программировать, то займете его на всю жизнь.

Простой пример

Программа показывает, как «работает» MS Small Basic.

Подробнее о типах данных в MS Small Basic — в этой статье: https://smallbasic.rubasic.ru/uroki-po-small-basic/koe-chto-o-peremennyh-ms-small-basic/

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

 

TextWindow.WriteLine("Всем привет!") ' более русский аналог избитого "Hello, World!"

' Пример использования условий

TextWindow.Write("Какая сегодня температура (в градусах Фарентгейта)? ")

temp = TextWindow.ReadNumber()

If temp > 100 Then

TextWindow.WriteLine("Жаркая погода.")

ElseIf temp > 70 Then

TextWindow.WriteLine("Тёплая погода.")

ElseIf temp > 50 Then

TextWindow.WriteLine("Не забудьте одеть пальто.")

Else

TextWindow.WriteLine("Оставайтесь дома!")

EndIf

' Пример цикла

TextWindow.WriteLine("Таблица умножения на 4:")

For i = 1 To 10

TextWindow.Write((i * 4) + " ")

EndFor

' Типы данных

' подробнее о типах данных в MS Small Basic - в этой статье: https://smallbasic.rubasic.ru/uroki-po-small-basic/koe-chto-o-peremennyh-ms-small-basic/

TextWindow.WriteLine("Введите ваше имя: ")

name = TextWindow.Read() ' считали текстовую строку

TextWindow.Write("Введите ваш возраст: ")

age = TextWindow.ReadNumber() ' считали число

TextWindow.WriteLine("Привет, " + name + "!")

TextWindow.WriteLine("Спустя 5 лет вам будет " + ( age + 5 ) + " лет!")

' Неявное преобразование данных

TextWindow.WriteLine(Math.log("100")) ' здесь текстовая строка "100" преобразована в число 100, в результате на экране - логарифм 100 - 2

TextWindow.WriteLine("100" + "3000") '  здесь текстовые строки преобразованы в числа, результат - 3100

TextWindow.WriteLine("Windows " + 8) ' Здесь число преобразовано в текст, результат - "Windows 8"

TextWindow.WriteLine(Text.GetLength(1023.42)) ' Здесь число преобразовано в текст, длина текстовой строки - 7 символов

' черепашья графика Logo

For i = 1 to 4 '  рисуем квадрат 100Х100

Turtle.Move(100) ' идём вперед на 100 точек

Turtle.Turn(90) ' Поворот на 90 градусов направо

EndFor

' Пример использования библиотечных функций

For i = 1 To 10 '  Динамические обои (повторяем 10 раз)

pic = Flickr.GetRandomPicture("mountains") '  скачиваем случайную картинку с горным пейзажем с сайта Flickr

Desktop.SetWallPaper(pic) '  загружаем ее в качестве обоев рабочего стола Windows

Program.Delay(10000) ' ждём 10 секунд

EndFor


Поделиться: