Блок-Схема.
ТЕМА 4.5 Программирование алгоритмов
регулярных циклических структур.
Задание:
Код программы.
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form5
'Функция ввода параметров
Function vvod(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
'Процедура вывода результата
Sub vivod(ByVal Z As Single, ByVal T As TextBox)
T.Text = Format(Z, "00.0000")
End Sub
'Процедура цикла и вывода данных в ListBox1
Sub f_cicle(ByVal n As Single, ByVal h As Single, ByVal x As Single)
Dim z1 As String = " N | "
Dim z2 As String = " X | "
Dim z3 As String = " Y | "
Dim z As String = " "
Dim z4 As String = "___________________"
Dim y As Single
For i = 1 To n
If x >= -1 And x <= 1 Then
y = CSng(Math.Sin(x))
Else
y = CSng(5 * Math.Cos(x))
End If
z1 = z1 + Format(i, "000") + Space(6) + "|" + Space(2)
z2 = z2 + Format(x, "0.00") + Space(3) + "|" + Space(2)
z3 = z3 + Format(y, "0.000") + Space(2) + "|" + Space(2)
z4 = z4 + "______________"
x = x + h
Next i
'Вывод данных в ListBox1
ListBox1.Items.Add(z4)
ListBox1.Items.Add(z1)
ListBox1.Items.Add(z4)
ListBox1.Items.Add(z)
ListBox1.Items.Add(z2)
ListBox1.Items.Add(z4)
ListBox1.Items.Add(z)
ListBox1.Items.Add(z3)
ListBox1.Items.Add(z4)
ListBox1.Items.Add(z)
End Sub
'Процедура подчета количества шагов
Function f_n(ByVal a As Single, ByVal b As Single, ByVal h As Single) As Integer
Return CInt((Fix((b - a) / h) + 1))
End Function
'Процедура обработки события нажатия на кнопку "Расчитать"
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, h, x As Single, n As Integer
a = vvod(TextBox1)
b = vvod(TextBox2)
h = vvod(TextBox3)
n = f_n(a, b, h)
x = a
f_cicle(n, x, h)
End Sub
'Процедура обработки события нажатия на кнопку "Очистить"
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
ListBox1.Items.Clear()
End Sub
'Процедура обработки события нажатия на кнопку "Выход"
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
Hide()
End Sub
End Class
Блок-Схема.
