Imports System

Public Module Module1

    Public Sub Main()

        'Variables Declaration

        Dim total_cow as integer

        Dim cow_code(total_cow) as integer

        Dim cow_yield(total_cow) as single

        Dim total_yield(total_cow) as single

        dim average_yield(total_cow) as integer

        'Dim a, i,choice, total_prod, avg_prod, counter as integer

        dim check, session as integer

​

        'First prompt asking the user to enter the cows in the herd

        Console.write("Farmer, enter the number of cows in your herd: ")

        total_cow = console.readline()

        'Re initialize the array bounds according to herd size given by  user

        ReDim cow_code(total_cow)

        ReDim cow_yield(total_cow)

        ReDim total_yield(total_cow)

        ReDim average_yield(total_cow)

​

        'Cow identities to be assigned with 3 digit code with validation

        For i=0 to total_cow - 1

            label1: Console.write("Enter the code for your cow " & (i+1) & "(3 digit): ")

            cow_code(i) = console.readline()

            'Validation of range check for 3 digit code

            While ( cow_code(i)<100) Or ( cow_code(i)>999)

                Console.writeline("The code should be three digits!!!")

                Console.write("Enter the code again for your cow "& (i+1) & ": ")

                cow_code(i) = console.readline()

            End while

​

            'code to check the uniqueness of cow_code

            for check = 0 to i-1

                if(cow_code(i)=cow_code(check)) then

                    Console.writeline("The code should be unique for each cow. Please enter again!!")

                    goto label1

                end if

            next check

        Next

​

​

        'Loop to enter data for each 

        console.writeline("Please enter the data.")

        for i=0 to total_cow - 1

            console.writeline("Cow "&(i+1)&": ")

            for day=0 to 6

                console.writeline("Day "&(day+1)&": ")

                if(total_cow=1) then

                    Console.writeline("How many times you need to yield the cow (max. 2)? ")

                else

                    Console.writeline("How many times you need to yield the cows (max. 2)? ")

                end if

                session = console.ReadLine()

                for time=0 to session - 1

                    console.write("      Session "&(time+1)&": ")

                    cow_yield(time)=console.readline()

                    total_yield(i) = total_yield(i) + cow_yield(time)

                next time

            next day

            average_yield(i) = total_yield(i)/7

        next i

​

        console.WriteLine()

        console.WriteLine("WEEKLY REPORT")

        console.WriteLine()

        'console.WriteLine("Total and Average yield for each cow.")

        console.WriteLine()

        for i=0 to total_cow-1

            console.writeline("Cow "&(i+1)&":   Code = "&cow_code(i)&":   Total Yield = "&total_yield(i)&" and Average yield = "&Math.round(average_yield(i), 1))

            console.WriteLine()

        next i

​

        dim max as single

        max = total_yield(0)

        for i=1 to total_cow-1

            if(total_yield(i) > max) then

                max = total_yield(i)

            end if

        next i

​

        dim flag as integer

        flag=0

        console.WriteLine()

        console.WriteLine("The cows that produced less than 12 ltrs of milk are listed below..")

        for i=0 to total_cow-1

            for day =0 to 6

                if(day>=4 and total_yield(i) < 12) then

                    flag=1

                    console.writeline("   Cow Code = "&cow_code(i))

                    exit for

                end if

            next day

        next i

        if flag=0 then

            console.WriteLine("No cows.")

        end if

​

        console.WriteLine()

        for i=0 to total_cow -1

            if(max=total_yield(i)) then

                console.WriteLine("The cow with code "&cow_code(i)&" has produced most milk in the week.")

            end if

        next i

    End Sub

End Module