Imports System

Public Module Module1

    Private PlaneType() as string=  {"2 seater", "4 seater" , "historic"}

        Private numFlights as integer = 0

        Private flightlength as integer

        Private totalincome as decimal = 0

        Private Planenum as decimal 

        Private PRICE_2seater(1) as decimal

        Private PRICE_4seater(1) as decimal

        Private PRICE_historic(1) as decimal

        dim priceIndex as integer 

        Private mins as integer = 630

    Public Sub Main()

        Task1

        task2

    End Sub

    Public sub Task1

        'Task 1 

        PRICE_2seater(0) = 100

        PRICE_2seater(1) = 150  

        PRICE_4seater(0) = 120

        PRICE_4seater(1) = 200

        PRICE_historic(0) = 300

        PRICE_historic(1) = 500

        Console.WriteLine("input plane type. '1' for 2 seater, '2' for 4 seater, '3' for historic")

        Planenum = console.ReadLine()

        do while Planenum <1 or Planenum >3

            Console.WriteLine("invalid plane type.'1' for 2 seater, '2' for 4 seater, '3' for historic")

        Planenum = console.ReadLine()

        loop

        Console.WriteLine("input flight length. 30 or 60 minutes")

        flightlength = console.ReadLine()

        do while flightlength <> 30 and flightlength <> 60

            Console.WriteLine("invalid flight length.please enter 30 or 60 minutes")

        flightlength = console.ReadLine()

        loop

        flightlength = flightlength+30

        numFlights = mins / flightlength

        numFlights = Math.Floor(numFlights)

        PriceIndex= (flightlength/30)-2

​

         Select Case Planenum

            Case 1

                totalincome = PRICE_2Seater(priceIndex) * numFlights

            Case 2

               totalincome = PRICE_4Seater(priceIndex) * numFlights

            Case 3

                totalincome = PRICE_historic(priceIndex) * numFlights

        End Select

        console.writeline("max number of flights = " & numFlights)

        console.writeline("total income for chosen plane = $"& totalincome)

​

    end sub

    Public sub task2

        Dim nbookings_2Seater(numFlights) As integer

        Dim nbookings_4Seater(numFlights) As integer

        Dim nbookings_historic(numFlights) As integer

        Dim iAircraftType As Integer 

        Dim i As Integer = 0

        Dim bookingslot As Integer

            console.writeline("booking")

        console.writeline("input plane type. '1' for 2 seater, '2' for 4 seater, '3' for historic. '-1' to end booking")

        iAircraftType = console.ReadLine()

​

        Do While iAircraftType <> -1 

            bookingslot=0

        Select Case iAircraftType

            Case 1   '2 seater

            Do While bookingslot <> -1 

                    Console.WriteLine("Enter a booking slot between 1 and {0} for 2 seater. Enter -1 to stop entering bookings for this plane", numFlights)

                bookingslot = console.readline()

                If bookingslot <> -1 then

                    Do Until (bookingslot >= 1 And bookingslot <= numFlights)

                            Console.WriteLine("Invalid number entered. Enter a booking slot between 1 and {0} for 2 seater.", numFlights)

                                bookingslot = Console.ReadLine()

                            Loop

                            If nbookings_2Seater(bookingslot) <> 1 Then

                                nbookings_2Seater(bookingslot) = 1

                                Console.WriteLine("Booking slot {0} booked", bookingslot)

                            Else

                                Console.WriteLine("Booking slot{0} already booked. Please enter a valid slot", bookingslot)

                            End If

                        End If

            loop

            Case 2  ' 4 seater

               Do While bookingslot <> -1 

                    Console.WriteLine("Enter a booking slot between 1 and {0} for 4 seater. Enter -1 to end bookings for this plane", numFlights)       

                bookingslot = console.readline()

                If bookingslot <> -1 then

                    Do Until (bookingslot >= 1 And bookingslot <= numFlights)

                            Console.WriteLine("Invalid number entered. Enter a booking slot between 1 and {0} for 4 seater. ", numFlights)

                                bookingslot = Console.ReadLine()

                            Loop

                            If nbookings_4Seater(bookingslot) <> 1 Then

                                nbookings_4Seater(bookingslot) = 1

                                Console.WriteLine("Booking slot {0} booked", bookingslot)

                            Else

                                Console.WriteLine("Booking slot{0} already booked. Please enter a valid slot", bookingslot)

                            End If

                        End If

            loop

            Case 3 ' historic

                Do While bookingslot <> -1 

                    Console.WriteLine("Enter a booking slot between 1 and {0} for historic. Enter -1 to stop entering bookings for this plane", numFlights)

                bookingslot = console.readline()

                If bookingslot <> -1 then

                    Do Until (bookingslot >= 1 And bookingslot <= numFlights)

                            Console.WriteLine("Invalid number entered. Enter a booking slot between 1 and {0} for historic.", numFlights)

                                bookingslot = Console.ReadLine()

                            Loop

                            If nbookings_historic(bookingslot) <> 1 Then

                                nbookings_historic(bookingslot) = 1

                                Console.WriteLine("Booking slot {0} booked", bookingslot)

                            Else

                                Console.WriteLine("Booking slot{0} already booked. Please enter a valid slot", bookingslot)

                            End If

                    End If

                loop

        End Select

            Console.WriteLine("Enter Aircraft type, 1 for 2 seater, 2 for 4 seater, 3 for Historic. Enter -1 to stop entering all bookings")

            iAircraftType = Console.ReadLine()

        loop

        Dim flightincome (3)as integer

        dim totalflights(3) as integer

        For iAircraftType = 1 to 3

        Select case iAircraftType

        case 1

            For i = 1 to numFlights

            totalflights(iAircraftType) = totalflights(iAircraftType) + nbookings_2Seater(i)

        next

            flightincome(iAircraftType) = totalflights(iAircraftType) * PRICE_2seater(priceIndex)

        case 2

        For i = 1 to numFlights

            totalflights(iAircraftType) = totalflights(iAircraftType) + nbookings_4Seater(i)

        next

                flightincome(iAircraftType) = totalflights(iAircraftType) * PRICE_4seater(priceIndex)

        case 3

            For i = 1 to numFlights

            totalflights(iAircraftType) = totalflights(iAircraftType) + nbookings_historic(i)

        next

                flightincome(iAircraftType) = totalflights(iAircraftType) * PRICE_historic(priceIndex)

        end select

​

    next

​

console.writeline(" total no of flights for 2 seater is " & totalflights(1) )   

console.writeline(" total no of flights for 4 seater is " & totalflights(2) )   

console.writeline(" total no of flights for historic is " & totalflights(3) )   

​

​

console.writeline("income ")

​

for i = 1 to 3

console.writeline("plane {0} is {1} " , PlaneType(i) , flightincome(i) )    

next

​

console.writeline("total income= $" & flightincome(1) + flightincome(2) + flightincome(3))

    end sub

End Module