• Искать на пустом диске нулевой байт можно бесконечно долго.

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

Программа показывает, как «работает» 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


Поделиться: