1.Тема и название работы:
Структура VB-программ и процедуры. Средства программирования алгоритмов линейной структуры – Вычисление периметра и площади треугольника по заданным координатам трех его вершин.
2. Цель работы:
Структура VB-программ и процедуры. Средства программирования алгоритмов линейной структуры – Вычисление периметра и площади треугольника по заданным координатам трех его вершин.
3. Задание на разработку проекта и вариант задания:
Создать приложение для вычисления общей длины дуги, образованной полуокружностями R1 = 3 R2 = 2 R3 =2.5 R4 = 1
Назначение процедуры S = pR – формула длины полуокружности
4. Разработка графического интерфейса
4.1 Форма
6. Программный код
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form2
Function vvodSngl(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
Sub vivodSngl(ByVal Z As Single, ByVal T As TextBox)
T.Text = CStr(Z)
End Sub
Public Function S(ByVal R As Single) As Single
Return CSng(R * PI)
End Function
Sub LD(ByVal R1 As Single, ByVal R2 As Single, ByVal R3 As Single, ByVal R4 As Single, ByRef L As Single)
Dim S1 As Single, S2 As Single, S3 As Single, S4 As Single
S1 = S(R1)
S2 = S(R2)
S3 = S(R3)
S4 = S(R4)
L = CSng(S1 + S2 + S3 + S4)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r1 As Single, r2 As Single, r3 As Single, r4 As Single
Dim L As Single
r1 = vvodSngl(TextBox1)
r2 = vvodSngl(TextBox2)
r3 = vvodSngl(TextBox3)
r4 = vvodSngl(TextBox4)
LD(r1, r2, r3, r4, L)
vivodSngl(L, TextBox5)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Form0.Show()
Hide()
End Sub
End Class
Начало
Vivod (W,T)
R2=vvod(Textbox2)
T.Text =cstw(W)
R3=vvod(Textbox3)
Конец Vivod
()
R4=vvod(Textbox4)
L = S(r1)+S(r2)+S(r3)+S(r4)
Процедура Функция
S (R)
S1=vivod(Textbox6)
S = Pi *R
S2=vivod(Textbox7)
Конец S
(R)
S3=vivod(Textbox8)
S4=vivod(Textbox9)
L=vivod(Textbox5)
Конец
Работа
4.4
1.Тема и название работы:
Программирование алгоритмов разветвляющихся структур – Вычисление значения сложной условной функции.
2. Цель работы:
Цель данной работы состоит в получении навыков разработки проектов, использующих алгоритмы разветвляющихся структур
3. Задание на разработку проекта и вариант задания:
Создать проект с именем Проект-4-4-Лаб для вычисления значения функции f=f(x):
f
=