4.3. Разработка схемы алгоритма:

рис. 4.3-2

4.4. Программный код

Option Strict On 'запрещает неявное преобразование типов данных

Option Explicit On 'явное преобразование всех переменных

Imports System.Math

Public Class Form1

'Процедура вводы длин окружностей в TextBox

Sub vvod(ByVal T As TextBox, ByRef A As Single)

A = CSng(Val(T.Text))

End Sub

'Процедура вывода результата в TextBox

Sub vivod(ByVal Z As Single, ByVal T As TextBox)

T.Text = CStr(Z)

End Sub

'Процедура вычисления радиуса

Sub radius(ByVal L As Single, ByRef K As Single)

K = CSng(L / (2 * PI))

End Sub

'Процедура вычисления площади круга

Sub square(ByVal R As Single, ByRef M As Single)

M = CSng(PI * R ^ 2)

End Sub

'Процедура обработки события нажатия на кнопку Button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim L1 As Single, L2 As Single, L3 As Single

Dim S1 As Single, S2 As Single, S3 As Single

Dim R1 As Single, R2 As Single, R3 As Single

vvod(TextBox1, L1) : vvod(TextBox2, L2) : vvod(TextBox3, L3)

radius(L1, R1) : radius(L2, R2) : radius(L3, R3)

square(R1, S1) : square(R2, S2) : square(R3, S3)

vivod(R1, TextBox4) : vivod(R2, TextBox5) : vivod(R3, TextBox6) : vivod(S1, TextBox7) : vivod(S2, TextBox8) : vivod(S3, TextBox9)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

End Class

5. Выполнение приложения и получение результатов:

6. Доказательство правильности результата: