кція залежить від однієї змінної R.
. Прямокутник:
.
Отже, функція залежить від двох змінних A, h.
. Трапеція:
.
Отже, функція залежить від трьох змінних A, B, h.
1. Методика вирішення поставленого завдання
У програмі для обчислення площ геометричних фігур я застосувала метод поліморфізм, тобто програмувала, використовуючи поліморфну ​​функцію.
поліморфний називається функція, незалежно певна в кожному з групи похідних класів і має у них спільне ім'я.
Поліморфна функція володіє тим властивістю, що за відсутності повної інформації про те, об'єкт якого з похідних класів у даний момент обробляється, вона, тим не менш, коректно викликається в тому вигляді, в якому вона була визначена для даного конкретного класу.
Таким чином, надсилається загальне повідомлення про збір даних будь-якому класу, причому і батьківський клас, і класи-нащадки дадуть відповідь на повідомлення відповідним чином, оскільки довільні класи містять додаткову функцію.
Наприклад, при натисканні кнопок або В«КругВ», або В«ПрямокутникВ», або В«ТрапеціяВ», викликається функція PL, яка і розраховує площі фігур.
В
Рисунок 4 - Блок-схема алгоритму
В
Рисунок 5 - Форма в термінах елемента управління
2. Текст програми
Class Form1
Public obj As New Figure
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Label7.Text = ""
Label8.Text = ""
End Sub
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim R, S As Integer
R = Val (TextBox1.Text)
If R <0 Then
Label7.Text = "Помилка"
Label8.Text = "Помилка"
Else: S = obj.PL (R)
Label7.Text = CStr (S)
Label8.Text = "Круг"
End If
End Sub
Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim A, h, S As Integer
A = Val (TextBox1.Text)
