Embedded Files
Вспомогательные алгоитмы
Вспомогательным алгоритмом называется многократно выполняемая часть основного алгоритма, имеющего свои имя, входные и выходные данные. В языках программирования вспомогательные алгоритмы называются подпрограммами. Использование подпрограмм существенно облегчает процесс разработки сложных программ за счёт:
Вспомогательным алгоритмом называется многократно выполняемая часть основного алгоритма, имеющего свои имя, входные и выходные данные. В языках программирования вспомогательные алгоритмы называются подпрограммами. Использование подпрограмм существенно облегчает процесс разработки сложных программ за счёт:
· Исключения из описания алгоритма многократно повторяющихся частей;
· Исключения из описания алгоритма многократно повторяющихся частей;
· Возможности использования наборов готовых алгоритмов, разработанных другими пользователями;
· Возможности использования наборов готовых алгоритмов, разработанных другими пользователями;
· Разбиения большой задачи на небольшие фрагменты, оформляемые как подпрограммы. Написание каждого фрагмента поручается различным разработчикам, приводя к существенному сокращению сроков разработки;
· Разбиения большой задачи на небольшие фрагменты, оформляемые как подпрограммы. Написание каждого фрагмента поручается различным разработчикам, приводя к существенному сокращению сроков разработки;
· Упрощения отладки написанных программ.
· Упрощения отладки написанных программ.
В языке BASIC различают два типа вспомогательных алгоритмов: процедуры и функции. Структура процедур и функций аналогична обычным программам, но описание каждой из них начинается с заголовка. В заголовке указываются имя и список формальных параметров с указанием их типов. С помощью параметров осуществляется передача исходных данных в подпрограмму и передача результатов назад в вызывающую программу. Список параметров может и отсутствовать. Процедура может возвращать несколько значений, а функция всегда возвращает одно значение, присваиваемое имени функции.
В языке BASIC различают два типа вспомогательных алгоритмов: процедуры и функции. Структура процедур и функций аналогична обычным программам, но описание каждой из них начинается с заголовка. В заголовке указываются имя и список формальных параметров с указанием их типов. С помощью параметров осуществляется передача исходных данных в подпрограмму и передача результатов назад в вызывающую программу. Список параметров может и отсутствовать. Процедура может возвращать несколько значений, а функция всегда возвращает одно значение, присваиваемое имени функции.
Структура процедуры
Структура процедуры
Структура функции
Структура функции
SUB имя ([формальные параметры])
SUB имя ([формальные параметры])
[операторы]
[операторы]
[EXIT SUB] тело процедуры
[EXIT SUB] тело процедуры
[операторы]
[операторы]
END SUB
END SUB
FUNCTION имя ([формальные параметры]) As Тип
FUNCTION имя ([формальные параметры]) As Тип
[операторы]
[операторы]
имя =выражение тело функции
имя =выражение тело функции
[EXIT FUNCTION]
[EXIT FUNCTION]
[операторы]
[операторы]
END FUNCTION
END FUNCTION
SUB - заголовок процедуры, END SUB – окончание процедуры, EXIT SUB – позволяет прервать процедуру и передать управление в основную программу.
SUB - заголовок процедуры, END SUB – окончание процедуры, EXIT SUB – позволяет прервать процедуру и передать управление в основную программу.
FUNCTION - заголовок функции, END FUNCTION – окончание функции, EXIT FUNCTION – позволяет прервать функцию и передать управление в основную программу, имя – имя функции, которой присваивается значение выражения.
FUNCTION - заголовок функции, END FUNCTION – окончание функции, EXIT FUNCTION – позволяет прервать функцию и передать управление в основную программу, имя – имя функции, которой присваивается значение выражения.
Обращение к процедуре выполняется с помощью оператора:
Обращение к процедуре выполняется с помощью оператора:
[CALL] имя ([фактические параметры])
[CALL] имя ([фактические параметры])
Квадратные скобки при описании форматов операторов показывает, что данные параметры необязательны. Количество, тип и порядок следования фактических параметров должны соответствовать количеству, типу и порядку следования формальных параметров. Тип формальных параметров задаётся в заголовке процедуры или функции. Имена формальных и фактических параметров могут отличаться. Когда оператор CALL встречается в теле основной программы, управление передаётся процедуре. При исполнении операторов тела процедуры, после встречи оператора END SUB или EXIT SUB управление возвращается в основную программу на оператор, следующий за оператором CALL, вызвавшим процедуру.
Квадратные скобки при описании форматов операторов показывает, что данные параметры необязательны. Количество, тип и порядок следования фактических параметров должны соответствовать количеству, типу и порядку следования формальных параметров. Тип формальных параметров задаётся в заголовке процедуры или функции. Имена формальных и фактических параметров могут отличаться. Когда оператор CALL встречается в теле основной программы, управление передаётся процедуре. При исполнении операторов тела процедуры, после встречи оператора END SUB или EXIT SUB управление возвращается в основную программу на оператор, следующий за оператором CALL, вызвавшим процедуру.
Пример структуры программы:
Пример структуры программы:
Для обращения к подпрограмме функции отсутствует специальный оператор и выполняется указанием её имени с соответствующим списком фактических параметров. Как и стандартные функции, функции пользователя могут использоваться в формулах при составлении сложных выражений.
Для обращения к подпрограмме функции отсутствует специальный оператор и выполняется указанием её имени с соответствующим списком фактических параметров. Как и стандартные функции, функции пользователя могут использоваться в формулах при составлении сложных выражений.
Описание процедуры или функции рекомендуется выполнять в разделе «General (Общие)» объявлений формы или модуля. Рассмотрим примеры использования процедуры и функции.
Описание процедуры или функции рекомендуется выполнять в разделе «General (Общие)» объявлений формы или модуля. Рассмотрим примеры использования процедуры и функции.
Пример 1: Даны отрезки a,b,c,d. Для каждой тройки этих отрезков, из которых можно построить треугольник, напечатать площадь этого треугольника. Ввод данных выполнить с помощью стандартной функции InputBox рис.3.1, вывод результатов отобразить на форме с использованием элемента Label рис.3.2. Вычисление площади треугольника и распечатку его площади оформим в виде процедуры:
Пример 1: Даны отрезки a,b,c,d. Для каждой тройки этих отрезков, из которых можно построить треугольник, напечатать площадь этого треугольника. Ввод данных выполнить с помощью стандартной функции InputBox рис.3.1, вывод результатов отобразить на форме с использованием элемента Label рис.3.2. Вычисление площади треугольника и распечатку его площади оформим в виде процедуры:
Рис. 3.1 Ввод данных
Рис. 3.1 Ввод данных
Рис. 3.2 Результат вычислений
Рис. 3.2 Результат вычислений
Public Class Form1
'ТРЕУГОЛЬНИКИ
Sub Treug(ByVal K As Single, ByVal L As Single, ByVal M As Single)
Dim P As Single, S As Single
If K > L + M Or L > K + M Or M > K + L Then
Lb1.Text = Lb1.Text & "Для отрезков " & CStr(K) & " " & CStr(L) & " " & CStr(M) & " Треугольник построить нельзя" & vbCrLf
Exit Sub
End If
P = (K + L + M) / 2
S = Math.Sqrt(P * (P - K) * (P - L) * (P - M)) Lb1.Text = Lb1.Text & "Для отрезков " & CStr(K) & " " & CStr(L) & " " & CStr(M) & " площадь треугольника равна " & CStr(S) & vbCrLf
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim A, B, C, D As Single
Show()
A = CSng(InputBox("Ведите длину отрезка А "))
B = CSng(InputBox("Ведите длину отрезка B "))
C = CSng(InputBox("Ведите длину отрезка C "))
D = CSng(InputBox("Ведите длину отрезка D "))
Call Treug(A, B, C)
Call Treug(A, B, D)
Call Treug(A, D, C)
Call Treug(D, B, C)
End Sub
End Class
Пример 2: Составить программу определения площади треугольника, зная координаты его вершин. Ввод координат вершин выполнить через текстовые окна, результат отобразить на форме рис. 3.3. Для определения длин сторон треугольника составим подпрограмму функцию, а вычисление площади треугольника выполним с помощью процедуры TREUG из предыдущего примера.
Пример 2: Составить программу определения площади треугольника, зная координаты его вершин. Ввод координат вершин выполнить через текстовые окна, результат отобразить на форме рис. 3.3. Для определения длин сторон треугольника составим подпрограмму функцию, а вычисление площади треугольника выполним с помощью процедуры TREUG из предыдущего примера.
Рис. 3.3. Площадь треугольника
Рис. 3.3. Площадь треугольника
Public Class Form1
' Треугольник
Function Leng(ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single) As Single
Leng = Math.Sqrt((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
End Function
Sub Treug(ByVal K As Single, ByVal L As Single, ByVal M As Single)
Dim P As Single, S As Single
If K > L + M Or L > K + M Or M > K + L Then
LB7.Text = LB7.Text & "Для отрезков " & CStr(K) & " " & CStr(L) & " " & CStr(M) & " Треугольник построить нельзя" & vbCrLf
Exit Sub
End If
P = (K + L + M) / 2
S = Math.Sqrt(P * (P - K) * (P - L) * (P - M))
LB7.Text = LB7.Text & "Для отрезков " & CStr(K) & " " & CStr(L) & " " & CStr(M) & " площадь треугольника равна " & CStr(S) & vbCrLf
End Sub
Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click
Dim XA, YA, XB, YB, XC, YC, A, B, C As Single
XA = CSng(TB1.Text)
YA = CSng(TB2.Text)
XB = CSng(TB3.Text)
YB = CSng(TB4.Text)
XC = CSng(TB5.Text)
YC = CSng(TB6.Text)
A = Leng(XA, YA, XB, YB)
B = Leng(XC, YC, XB, YB)
C = Leng(XA, YA, XC, YC)
Call Treug(A, B, C)
End Sub
End Class
Пример 3: Программа выполняет прорисовку фигуры «Звезда». Прорисовка звезды выполняется с помощью процедуры Star. Параметрами для процедуры являются: X,Y – координаты центра фигуры, R1 – расстояние от центра до вершины, R2 – расстояние от центра до впадины.
Пример 3: Программа выполняет прорисовку фигуры «Звезда». Прорисовка звезды выполняется с помощью процедуры Star. Параметрами для процедуры являются: X,Y – координаты центра фигуры, R1 – расстояние от центра до вершины, R2 – расстояние от центра до впадины.
Рис. 3.4. Определение параметров фигуры
Public Class Form1
' Звезда
Dim G As Graphics, P As Pen
Sub Star(ByVal X As Single, ByVal Y As Single, ByVal R1 As Single, ByVal R2 As Single)
' процедура прорисовки фигуры «Звезда»
Dim A As Integer, K, X1, X2, X3, Y1, Y2, Y3 As Single
Const Pi As Single = 3.14157
K = Pi / 180
For A = 270 To 630 Step 72
X1 = X + R1 * Math.Cos(A * K)
Y1 = Y + R1 * Math.Sin(A * K)
X2 = X + R2 * Math.Cos((A + 36) * K)
Y2 = Y + R2 * Math.Sin((A + 36) * K)
G.DrawLine(P, X1, Y1, X2, Y2)
X3 = X + R2 * Math.Cos((A - 36) * K)
Y3 = Y + R2 * Math.Sin((A - 36) * K)
G.DrawLine(P, X1, Y1, X3, Y3)
G.DrawLine(P, X1, Y1, X, Y)
G.DrawLine(P, X, Y, X3, Y3)
Next A
End Sub
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Dim R1, R2, X, Y As Single, I As Integer
Randomize()
G = Me.CreateGraphics
P = New Pen(Color.Red, 2)
G.Clear(Me.BackColor)
R1 = 150
R2 = R1 / 2
X = Me.Size.Width / 2
Y = Me.Size.Height / 2
P.Color = Color.FromArgb(Rnd() * 255, Rnd() * 255, Rnd() * 255)
Call Star(X, Y, R1, R2)
End Sub
End Class
Рис. 3.5. Результаты работы программы
Рис. 3.5. Результаты работы программы
Домашнее задание:
Домашнее задание:
1. Создать программу, выводящую на экран 100 звёздочек. Размер, цвет и положение на экране задаются случайным образом согласно образцу рис. 3.6.
1. Создать программу, выводящую на экран 100 звёздочек. Размер, цвет и положение на экране задаются случайным образом согласно образцу рис. 3.6.
2. Создать программу, вращающую в центре экрана фигуру «Звёздочка» согласно образцу рис. 3.7.
2. Создать программу, вращающую в центре экрана фигуру «Звёздочка» согласно образцу рис. 3.7.
Рис. 3.6. 10 баллов
Рис. 3.6. 10 баллов
Рис. 3.7. 12 баллов
Рис. 3.7. 12 баллов
Google Sites
Report abuse