Федеральное агентство связи
Московский технический университет связи и информатики
Кафедра вычислительной математики и программирования
Контрольная работа №1
По дисциплине: Информатика
МТУСИ
Факультет: ЗОТФ Гр.№ БИН1151
Курс 1 Шифр:3БИН 11008
Губко Александр Михайлович
К/р № 1 Вариант:8
По дисциплине: Информатика
Москва 2012г.
Тема 4.2: Изучение алгоритма последовательной структуры Задание:
Программный код.
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form2
'Процедура обработки события нажатия на кнопку "Расчитать"
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, d As Double, k, l As Integer
x = CDbl(Val(TextBox1.Text))
y = CDbl(Val(TextBox2.Text))
d = ((((x * y) ^ 2) - Math.Sqrt(Math.Abs(x ^ 2 - 2.5 * 10 ^ (-3) * y))) / (2 * (Math.Sin(x * y)))) + 0.5
k = CInt(d)
l = CInt(Fix(d))
TextBox3.Text = CStr(d)
TextBox4.Text = CStr(k)
TextBox5.Text = CStr(l)
End Sub
'Процедура обработки события нажатия на кнопку "Очистить"
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
End Sub
'Процедура обработки события нажатия на кнопку "Далее"
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form3.Show()
Hide()
End Sub
'Процедура обработки события нажатия на кнопку "Выход"
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
End Class
Блок-Схема.
Проверка в EXCEL
Тема 4.3: Структура VB-программ и процедуры.
Средства программирования алгоритмов линейной структуры.
Задание:
Программный код.
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form3
'Функция ввода параметров
Function vvod(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
'Функция вычисления высоты
Public Function Visota(ByVal y As Single, ByVal v As Single, ByRef t As Single) As Single
Return CSng(y + v * t - (9.8 * t ^ 2) / 2)
End Function
'Процедура вывода результата
Sub vivod(ByVal Z As Single, ByVal T As TextBox)
T.Text = CStr(Z)
End Sub
'Процедура обработки события нажатия на кнопку "Расчитать"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim y As Single, v As Single, t As Single, h1 As Single, h2 As Single, h3 As Single
y = vvod(TextBox1)
v = vvod(TextBox2)
t = vvod(TextBox3)
h1 = Visota(y, v, t)
t = vvod(TextBox7)
h2 = Visota(y, v, t)
t = vvod(TextBox8)
h3 = Visota(y, v, t)
vivod(h1, TextBox4)
vivod(h2, TextBox5)
vivod(h3, TextBox6)
End Sub
'Процедура обработки события нажатия на кнопку "Очистить"
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
End Sub
'Процедура обработки события нажатия на кнопку "Далее"
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form4.Show()
Hide()
End Sub
'Процедура обработки события нажатия на кнопку "Выход"
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
End Class