Module VBModule

Public Class Triangle

    Dim side1 as double
    Dim side2 as double
    Dim side3 as double

    Dim Area as double
    Dim Perimeter As double
    Dim triangleNummber as Integer

        Public Sub setSide1 (ByVal w As double)
              side1 = w
        End Sub

        Public Sub setSide2 (ByVal w As double)
              side2 = w
        End Sub

        Public Sub setSide3 (ByVal w As double)
              side3 = w
        End Sub

        Public Sub setArea ()

            Dim halfArea as double
            halfArea = (side1 + side2 + side3) / 2
            Area = halfArea * (halfArea-side1)* (halfArea-side2)* (halfArea-side3)
            Console.WriteLine("Лицето на този триъгълник е: " & Area)

        End Sub

        Public Sub setPerimeter ()

            Perimeter = side1 + side2 + side3
            Console.WriteLine("Периметърът на този триъгълник е: " & Perimeter)

        End Sub

        Public Sub setTriangleNummber (ByVal w As double)
              triangleNummber = w
        End Sub


       Public Function getSide1() as double
       Return side1
       End Function

       Public Function getSide2() as double
       Return side2
       End Function

       Public Function getSide3() as double
       Return side3
       End Function

       Public Function getArea() as double
       Return Area
       End Function

       Public Function getPerimeter() as double
       Return Perimeter
       End Function

       Public Function getTriangleNummber() as Integer
       Return triangleNummber
       End Function


End Class



    Sub Main()

        Console.WriteLine("Въведете брои на точки(кратен на 3):")
        Dim MyGivenNumber as Integer
        MyGivenNumber = Console.ReadLine()

        Dim triangleNum as Integer = MyGivenNumber/3
        Console.WriteLine("Броят на получините триъгълници е: " & triangleNum)
        Dim triangleData (triangleNum-1) As Triangle
        Dim max As Integer = triangleNum-1

         For value As Integer  = 0 To max step +1

            Console.WriteLine("------")
            triangleData (value) = New Triangle()
            Console.WriteLine("На колко е равна първата страна на триъгълник номер " & value+1)
            triangleData(value).setSide1( Console.ReadLine() )
            Console.WriteLine("На колко е равна втората страна на триъгълник номер " & value+1)
            triangleData(value).setSide2( Console.ReadLine() )
            Console.WriteLine("На колко е равна третата страна на триъгълник номер " & value+1)
            triangleData(value).setSide3( Console.ReadLine() )
            triangleData(value).setArea()
            triangleData(value).setPerimeter()
            triangleData(value).setTriangleNummber(value+1)
        Next


        Console.WriteLine("-/-/-/-/-/-")

        Dim ss as Integer = theSlowestArea(triangleData, max)
        Console.WriteLine("Триъгълникът с най-малко лице е номер:")
        printTrInfo(triangleData, ss)

        Console.WriteLine("***")
        ss = theBiggestArea(triangleData, max)
        Console.WriteLine("Триъгълникът с най-голамото лице е номер:")
        printTrInfo(triangleData, ss)

        Console.WriteLine("***")
        ss = theSlowestPerimeter(triangleData, max)
        Console.WriteLine("Триъгълникът с най-малкия периметър е номер:")
        printTrInfo(triangleData, ss)

        Console.WriteLine("***")
        ss = theBiggestPerimeter(triangleData, max)
        Console.WriteLine("Триъгълникът с най-големия периметър е номер:")
        printTrInfo(triangleData, ss)

    End Sub

    Function theSlowestArea(ByVal triangleData() As Triangle, ByVal triangleNum As Integer) As Integer

        Dim int_max as Integer = 90946
        Dim theNumInTheArray as Integer = 0
        For n as Integer = 0 to triangleNum step+1

             If triangleData(n).getArea() < int_max Then
                int_max = triangleData(n).getArea()
                theNumInTheArray = n
            End If
        Next
        return theNumInTheArray
    End Function

    Function theBiggestArea(ByVal triangleData() As Triangle, ByVal triangleNum As Integer) As Integer

        Dim int_min as Integer = -90946
        Dim theNumInTheArray as Integer = 0
        For n as Integer = 0 to triangleNum step+1

             If triangleData(n).getArea() > int_min Then
                int_min = triangleData(n).getArea()
                theNumInTheArray = n
            End If
        Next
        return theNumInTheArray
    End Function

    Function theSlowestPerimeter(ByVal triangleData() As Triangle, ByVal triangleNum As Integer) As Integer

        Dim int_max as Integer = 90946
        Dim theNumInTheArray as Integer = 0
        For n as Integer = 0 to triangleNum step+1

             If triangleData(n).getPerimeter() < int_max Then
                int_max = triangleData(n).getPerimeter()
                theNumInTheArray = n
            End If
        Next
        return theNumInTheArray
    End Function

    Function theBiggestPerimeter(ByVal triangleData() As Triangle, ByVal triangleNum As Integer) As Integer

        Dim int_min as Integer = -90946
        Dim theNumInTheArray as Integer = 0
        For n as Integer = 0 to triangleNum step+1

             If triangleData(n).getPerimeter() > int_min Then
                int_min = triangleData(n).getPerimeter()
                theNumInTheArray = n
            End If
        Next
        return theNumInTheArray
    End Function

    Sub printTrInfo(ByVal triangleData() As Triangle, ByVal theNumInTheArray As Integer)

        Console.WriteLine(triangleData(theNumInTheArray).getTriangleNummber())
        Console.WriteLine("Първата страна e равна на: "& triangleData(theNumInTheArray).getSide1())
        Console.WriteLine("Втората страна e равна на: "& triangleData(theNumInTheArray).getSide2())
        Console.WriteLine("Третата страна e равна на: "& triangleData(theNumInTheArray).getSide3())
        Console.WriteLine("Лицето e равно на: "& triangleData(theNumInTheArray).getArea())
        Console.WriteLine("Периметърът e равен на: "& triangleData(theNumInTheArray).getPerimeter())

    end Sub

End Module