Выдать на экран наименьшую площадь и № треугольника - VB
Формулировка задачи:
Даны основания a(i) и высоты h(i) десяти равнобедренных треугольников. Оформив вычисление площади треугольника в виде функции, выдать на экран наименьшую площадь и № этого треугольника.
Решение задачи: «Выдать на экран наименьшую площадь и № треугольника»
textual
Листинг программы
Dim A(10) As Single, H(10) As Single, B(10) As Single Dim min As Single, k As Integer Private Sub CommandButton1_Click() For i = 1 To 10 A(i) = InputBox("Введите основание треугольника") ListBox1.AddItem (Str(A(i))) Next End Sub Private Sub CommandButton2_Click() For i = 1 To 10 H(i) = InputBox("Введите высоту треугольника") ListBox2.AddItem (Str(H(i))) Next End Sub Private Sub CommandButton3_Click() For i = 1 To 10 B(i) = plochad(A(i), H(i)) ListBox3.AddItem (Str(B(i))) Next End Sub Function plochad(x As Single, y As Single) As Single plochad = (1 / 2) * x * y End Function Private Sub CommandButton4_Click() min = B(1): k = 1 For i = 1 To 10 If B(i) < min Then min = B(i): k = i Next MsgBox "Треугольник с наименьшей площадью имеет номер" & min & "ее номер" & k End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д