• Всякая магия перестаёт существовать после того, как вы понимаете, как она на самом деле работает.

Математические функции

Microsoft Small Basic поддерживает математические функции, такие как сравнение чисел, генерация случайных чисел, округление, вычисление экспоненты, логарифма, число Пи, тригонометрические функции и т.п. Все это реализуется в классе Math (Математика) (https://smallbasic.rubasic.ru/math/).

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

 

TextWindow.WriteLine("Большее из чисел 10 и 15 = " + Math.Max(15, 10))

TextWindow.WriteLine("Меньшее из чисел 10 и 15 = " + Math.Min(15, 10))

TextWindow.WriteLine("Случайное число между 1 и 10 = " + Math.GetRandomNumber(10))

TextWindow.WriteLine("Модуль числа -500 = " + Math.Abs(-500))

TextWindow.WriteLine("Округление в большую сторону числа 4.02 = " + Math.Ceiling(4.02))

TextWindow.WriteLine("Округление в меньшую сторону числа 4.02 = " + Math.Floor(4.02))

TextWindow.WriteLine("Значение числа Пи = " + Math.Pi)

TextWindow.WriteLine("5 возведенное в 3 степень = " + Math.Power(5, 3))

TextWindow.WriteLine("Квадратный корень из 25 = " + Math.SquareRoot(25))

TextWindow.WriteLine("Остаток от делении 10 на 4 = " + Math.Remainder(10, 4))

TextWindow.WriteLine("Результат округления 4.02 до ближайшего целого = " + Math.Round(4.02))

TextWindow.WriteLine("Десятичный логарифм от 1000 = " + Math.Log(1000))

TextWindow.WriteLine("Натуральный логарифм от 1000 = " + Math.NaturalLog(1000))

' Радиан определяется как угловая величина дуги, длина которой равна её радиусу. Угол в 180 градусов равен Пи радиан.

TextWindow.WriteLine("1 радиан = " + Math.GetDegrees(1) + " градусов (180/Пи).")

TextWindow.WriteLine("90 градусов = " + Math.GetRadians(90) + " радиан (Пи/2).")

TextWindow.WriteLine("180 градусов = " + Math.GetRadians(180) + " радиан (Пи).")

TextWindow.WriteLine("Синус угла 45 градусов = " + Math.Sin(Math.GetRadians(45)))

TextWindow.WriteLine("Косинус угла 45 градусов = " + Math.Cos(Math.GetRadians(45)))

TextWindow.WriteLine("Тангес угла 45 градусов = " + Math.Tan(Math.GetRadians(45)))


Поделиться: