Проекта 3.1.1, Проекта 3.1.2, Проекта 3.1.3
3.3.5) Программные коды проектов Проекта 3.1.1, Проекта 3.1.2,
Проекта 3.1.3
Разработайте программные коды проектов (рис. 4.3.7-5 –
4.3.7-6):
Option Strict On Imports System. Math Public Class Form 1 'Функция, вычисляющая выражение Function func( ByVal x As Double , ByVal y As Double ) As Double Dim z As Double 'локальный объект z = (0.002 - Exp ( x ^ y )) / ((100 - y ) * ( x + 2)) Return z 'возвращение результата End Function Private Sub Button1_Click(sender As Object , _ e As EventArgs ) Handles Button1.Click Dim x, y, z, m, n As Double , p As Single , _ k As Integer Dim s1, s2 As String x = CDbl (TextBox1.Text) y = CDbl (TextBox2.Text) z = func ( x , y ) 'вызов функции p = CSng (z) k = CInt (z) m = Fix(z) n = Int(z) s1 = CStr (z) s2 = CStr (p) TextBox4.3.Text = CStr (z) TextBox4.Text = CStr (k) TextBox5.Text = CStr (m) : TextBox6.Text = CStr (n) TextBox7.Text = CStr (p): TextBox8.Text = CStr (z + p) TextBox9.Text = s1 + s2 End Sub Private Sub Button2_Click(sender As Object , _ e As EventArgs ) Handles Button2.Click End End Sub END Class |
Рис. П.1.3-5. Программный код Проект 3.1.1
Option Strict On Imports System. Math Public Class Form1 Sub proc1( ByVal x As Double , ByVal y As Double , _ ByRef z As Double ) z = (0.002 - Exp(x ^ y)) / ((100 - y) * (x + 2)) End Sub Private Sub Button1_Click(sender As Object ,e As EventArgs )_ Handles Button1.Click Dim x, y, z, m, n As Double , p As Single , k As Integer Dim s1, s2 As String x = CDbl (TextBox1.Text) y = CDbl (TextBox2.Text) proc1(x, y, z) ' вызов процедуры p = CSng (z) k = CInt (z) m = Fix(z) n = Int(z) s1 = CStr (z) : s2 = CStr (p) TextBox4.3.Text = CStr (z) TextBox4.Text = CStr (k) TextBox5.Text = CStr (m) TextBox6.Text = CStr (n) TextBox7.Text = CStr (p) TextBox8.Text = CStr (z + p) TextBox9.Text = s1 + s2 End Sub Private Sub Button2_Click(sender As Object , _ e As EventArgs ) Handles Button2.Click End End Sub End Class |
|
|
Рис. П.1.3-6. Программный код Проект 3.1.2
Option Strict On Imports System. Math Public Class Form1 ' Глобальные объекты Dim x As Double , y As Double , z As Double Sub proc2()'Процедура,вычисляющая выражение z = (0.002 - Exp ( x ^ y )) / ((100 - y ) * ( x + 2)) End Sub Private Sub Button1_Click(sender As Object , _ e As EventArgs ) Handles Button1.Click Dim m, n As Double , p As Single , k As Integer Dim s1, s2 As String x = CDbl (TextBox1.Text) y = CDbl (TextBox2.Text) proc2() ' вызов процедуры p = CSng (z) k = CInt (z) m = Fix(z) n = Int(z) s1 = CStr (z) s2 = CStr (p) TextBox4.3.Text = CStr (z) TextBox4.Text = CStr (k) TextBox5.Text = CStr (m) TextBox6.Text = CStr (n) TextBox7.Text = CStr (p) TextBox8.Text = CStr (z + p) TextBox9.Text = s1 + s2 End Sub Private Sub Button2_Click(sender As Object , _ e As EventArgs ) Handles Button2.Click End End Sub End Class |
Рис. П.1.3-7. Программный код Проект 3.1.3
3.4. Результаты выполнения трех проектов:
1)Учтите, что результаты текущей лабораторной работы должны совпасть с данными, приведенными на рис. 4.2.8-11.
2)При выполнении каждого из проектов не забудьте назначить его запускаемым проектом.
3)Выполните первый проект по шагам с заходом в процедуру-функцию (<F11>), поставив точку останова после ввода исходных данных на операторе вызова функции. Обратите внимание на значения всех объектов в окнах Локальные и Видимые при заходе и выходе из процедуры-функции и возврате в точку вызова в событийной процедуре.
|
|
4)Удалите из текста процедуры-функции оператор Return z и снова выполните проект по шагам, обосновав результат.
5)Аналогичным образом выполните по шагам с заходом в процедуру второй проект, обращая внимание на значения входных и выходных параметров в окне Локальные при заходе и выходе из процедуры.
6)Измените в заголовке процедуры параметр по ссылке на параметр по значению, вместо строки
Sub proc1( ByVal x As Double , ByVal y As Double , ByRef z As Double ) вставьте строку Sub proc1( ByVal x As Double , ByVal y As Double , ByVal z As Double ) |
и снова выполните проект по шагам, обоснуйте результаты.
7) Точно таким же образом изучите с помощью отладчика по шагам работу третьего проекта.
8) Далее измените его программный код, добавив строку
Dim x As Double , y As Double , z As Double
внутрь событийной процедуры, при этом оставив такую же строку с описанием глобальных объектов (в самом начале программного кода модуля формы, перед описаниями всех процедур). Обоснуйте результат работы измененного программного кода, выполнив отладку проекта по шагам.
|
|
9)Снова измените, программный код третьего проекта, убрав строку с описанием глобальных объектов (закомментируйте или удалите ее). Объясните возникшие ошибки при выполнив отладку проекта по шагам.
10) Результаты выполнения трех проектов должны быть одинаковыми (рис. 4.3.7-8).
Рис. 4.3.7-8. Результаты выполнения Проекта 3.1.1
3.5. Доказательства правильности результатов:
Для доказательства правильности результатов выполните расчет арифметического выражения с использованием калькулятора или программы Microsoft Excel, сделайте вывод о том, что результаты, полученные вручную, подтверждают правильность выполнения программы.
Реализация 2-го задания:
Вычисления периметра и площади треугольника по заданным координатам трех его вершин.
Дата добавления: 2019-01-14; просмотров: 500; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!