Программа показывает, как «работает» 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
Поделиться: