Использование переменных

Date: 2015-10-07; view: 471.

Вы можете воспользоваться любой переменной из Вашей программы через подпрограмму. В качестве примера приведем следующую программу. Она принимает два числа и выводит наибольшее из них. Обратите внимание на то, что переменная max используется как внутри, так и снаружи подпрограммы.

TextWindow.Write("Введите первое число: ")

num1 = TextWindow.ReadNumber()

TextWindow.Write("Введите второе число: ")

num2 = TextWindow.ReadNumber()

FindMax()

TextWindow.WriteLine("Большее число: " + max)

Sub FindMax

If (num1 > num2) Then

max = num1

Else

max = num2

EndIf

EndSub

Результат выполнения этой программы выглядит следующим образом.

Рисунок 45 – Вывод наибольшего по значению числа с помощью подпрограммы

Давайте приведем еще один пример использования подпрограммы. На этот раз мы воспользуемся графической программой, которая вычисляет различные точки координат, и которая сохранит эти значения в переменных x и y. Потом она вызывает подпрограмму DrawCircleUsingCenter,которая отвечает за рисование круга, используя точки x and y в качестве центра.

GraphicsWindow.BackgroundColor = "Black"

GraphicsWindow.PenColor = "LightBlue"

GraphicsWindow.Width = 480

For i = 0 To 6.4 Step 0.17

x = Math.Sin(i) * 100 + 200

y = Math.Cos(i) * 100 + 200

DrawCircleUsingCenter()

EndFor

Sub DrawCircleUsingCenter

startX = x - 40

startY = y - 40

GraphicsWindow.DrawEllipse(startX, startY, 120, 120)

EndSub

Рисунок 46 – Пример использования Подпрограммы в графике