Выдать на экран наименьший периметр треугольника и его номер - VB
Формулировка задачи:
Функции:
Даны основания и высота десяти равнобедренных треугольников (значения вводятся с клавиатуры в диалоговом режиме). Оформив вычисление периметра треугольника в виде функции, выдать на экран наименьший периметр и № этого треугольника.
Решение задачи: «Выдать на экран наименьший периметр треугольника и его номер»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim n As Integer, h() As Single, a() As Single, i As Integer, minP As Single, minPnumber As Integer n = InputBox("Введите количество треугольников", "Ввод данных", 10) ReDim h(1 To n), a(1 To n) For i = 1 To n a(i) = InputBox("Введите длину основания треугольника № " & i, "Ввод данных", 2 * i) h(i) = InputBox("Введите высоту треугольника № " & i, "Ввод данных", 3 * i) Next i minP = P(a(1), h(1)): minPnumber = 1 For i = 2 To n If minP > P(a(i), h(i)) Then minP = P(a(i), h(i)): minPnumber = i Next i Print "Минимальный периметр равен " & minP & " у треугольника № " & minPnumber End Sub Private Function P(a As Single, h As Single) P = Sqr((a / 2) ^ 2 + h ^ 2) * 2 + a End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д