Программный код представлен на рис. 4.3-9.
| Option Strict On Option Explicit On Imports System.Math Public Class Form1 'Функция ввода координаты точки в TextBox Function vvod(ByVal T As TextBox) As Single Return CSng(Val(T.Text)) End Function 'Процедура вывода результата в TextBox Sub vivod(ByVal Z As Single, ByVal T As TextBox) T.Text = CStr(Z) End Sub 'Функция вычисления длины отрезка по координатам двух точек Public Function ДлинаОтрезка(ByVal x1 As Single, _ ByVal y1 As Single, ByVal x2 As Single, _ ByVal y2 As Single) As Single Return CSng(Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2)) End Function 'Процедура вычисления периметра и площади треугольника Sub PS(ByVal x1 As Single, ByVal y1 As Single, _ ByVal x2 As Single, ByVal y2 As Single, _ ByVal x3 As Single, ByVal y3 As Single, _ ByRef P As Single, ByRef S As Single) Dim A, B, C, Pp As Single A = ДлинаОтрезка(x1, y1, x2, y2)'Вызов ф-ции выч-я дл.отр. B = ДлинаОтрезка(x2, y2, x3, y3) C = ДлинаОтрезка(x3, y3, x1, y1) P = (A + B + C): Pp = P / 2 S = CSng(Sqrt(Pp * (Pp - A) * (Pp - B) * (Pp - C))) End Sub 'Процедура обработки события нажатия на кнопку Button1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim x1 As Single, x2 As Single, x3 As Single Dim y1 As Single, y2 As Single, y3 As Single Dim Пер As Single, Пло As Single x1 = vvod(TextBox1): x2 = vvod(TextBox2): x3 = vvod(TextBox3) y1 = vvod(TextBox6): y2 = vvod(TextBox7): y3 = vvod(TextBox8) PS(x1, y1, x2, y2, x3, y3, Пер, Пло) vivod(Пер, TextBox4): vivod(Пло, TextBox5) End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click End End Sub End Class |
Рис. 4.3-9
Выполнение приложения и получение результатов
Результат приведен на рис. 4.3-10.
. 
Рис. 4.3-10
Доказательство правильности результата
A = 
= 2.82843 B = 
= 
2
C = 
= 2 Р = А + В + С = 6.828427; Рр = Р/2 = 3.414213 S= 
= 2
.
Контрольные вопросы по теме
«Структура VB-программ, модули и процедуры.
Средства программирования алгоритмов линейной структуры»
1. Что представляет собой математическая модель?
2. Какие основные этапы включает в себя решение задач на компьютере?
3. Какие этапы компьютерного решения задач осуществляются без участия компьютера?
4. Что называют математической моделью объекта или явления?
5. Из каких последовательных действий состоит процесс разработки программы?
6. Что называется алгоритмом?
7. Какими основными свойствами должен обладать алгоритм?
8. Какие существуют способы описания алгоритмов?
9. Какими графическими символами принято изображать в схемах алгоритма?
10. Как работает интерпретатор?
11. Как работает компилятор?
12. Какой алгоритм называется линейным?
13. Какой алгоритм называется циклическим?
14. Какой алгоритм называется разветвляющимся?
15. В чем отличие передачи результатов выполнения функций и процедур?
16. Доказывает ли получение правдоподобного результата правильность программы?
17. Какие ошибки могут остаться не выявленными, если не провести проверку (просмотр, прокрутку) программы?
18. Чем тестирование программы отличается от её отладки?
19. Можно ли с помощью тестирования доказать правильность программы?
20. На какой стадии работы над программой вычисляются эталонные результаты тестов?
21. Назовите основные этапы процесса тестирования.
22. В чём отличие синтаксических ошибок от семантических?
23. О чём свидетельствует отсутствие сообщений машины о синтаксических ошибках?
24. Какие разновидности ошибок транслятор не в состоянии обнаружить?
25. Что такое программа?
26. На каком этапе происходит поиск и устранение ошибок в программе?
27. Что такое система программирования?
28. Что такое процедура?
29. Какими преимуществами обладает программа, имеющая процедуры?
30. Какие средства процедурного программирования имеются в языке VB?
31. Каким образом происходит обмен данными между отдельными процедурами программы?
32. Что такое фактические и формальные параметры?
33. Каким образом передать в качестве параметра: константу, переменную, выражение?
34. Как используются глобальные переменные?
35. Как используются локальные переменные?
36. Что называется формальными параметрами?
37. Что называется фактическими параметрами?
38. Что происходит при вызове процедуры?
39. Каким образом параметры могут передаваться в процедуру?
40. Какие параметры передаются по значению?
41. Какие параметры передаются по адресу?
42. Что относится к средствам процедурного программирования?
43. Что является результатом выполнения функции?
44. Каким образом надо объявить отдельные переменные, чтобы внутри функции они были локальными?
45. Какой оператор используется для досрочного выхода из функции?
46. Что контролируется при вызове функций и процедур?
47. Как необходимо объявить формальные параметры, чтобы передать параметр-переменную по значению?
48. Как необходимо объявить формальные параметры, чтобы передать параметр-переменную по адресу?
49. Каким образом осуществляется вызов процедуры-функции из вызывающей программы?
50. Что может быть результатом выполнения процедуры?
51. Какой оператор используется для досрочного выхода из процедуры?
52. Где могут находиться описания функций и процедур?
53. Где будет доступна переменная, объявленная с помощью оператора Public?
54. Где может находиться оператор Private?
55. Что такое комментарий и правила его записи?
56. Какие значения имеют переменные в начале программы?
57. Для чего описываются (определяются) процедуры и функции?
58. Как осуществляется вызов процедур?
59. Как осуществляется вызов функций?
