[Fork] Final Prerelease-Shortening | C# Online Compiler

[Fork] Final Prerelease-Shortening by XiongDKuma

Imports System

Public Module Module1

	Public Sub Main()
		Dim T_Income as Decimal
		Dim T_Length as Decimal
		Dim F_Income as Decimal
		Dim F_Length as Decimal
		Dim H_Income as Decimal
		Dim H_Length as Integer
		Dim T_Booked(10) as String
		Dim F_Booked(10) as String
		Dim H_Booked(10) as String
		Dim T_Earn as Integer
		Dim F_Earn as Integer
		Dim H_Earn as Integer
		Dim T_Total as Integer = 0
		Dim F_Total as Integer = 0
		Dim H_Total as Integer = 0
		Dim T_Max as Integer
		Dim F_Max as Integer
		Dim H_Max as Integer
		Dim Error_Msg as String = "Your input is invalid, Please try again."
		Dim Book as String
		Dim Book_Model as String
		Dim Book_Time as Integer
		Dim Book_(10) as String
		Dim I_Income as Decimal
		Dim I_Length as Decimal
		Dim I_Booked(10) as String
		Dim I_Max as Integer
		Dim I_Type as String
		Dim Thirty_TT as String = "Slot 1-8:00, Slot 2-9:00, Slot 3-10:00, Slot 4-11:00, Slot 5-12:00, Slot 6-1:00, Slot 7-2:00, Slot 8-3:00, Slot 9-4:00, and Slot 10-5:00"
		Dim Sixty_TT as String = "Slot 1-8:00, Slot 2-9:30, Slot 3-11:00, Slot 4-12:30, Slot 5-2:00, Slot 6-3:30, Slot 7-5:00"
		Console.WriteLine("PLEASE ENTER ALL INPUTS IN ALL CAPS WHERE APPLICABLE")
		Console.WriteLine("PLEASE ENTER ALL INPUTS IN ARABIC NUMERALS WHERE APPLICABLE")
		
		For J = 1 to 3
		If J = 1
			I_Type ="Two Seater"
		End If
			If J = 2
			I_Type ="Four Seater"
		End If
			If J = 3
			I_Type ="Historic"
		End If
		Console.WriteLine("Please input the Flight Time for the " & I_Type & " Plane in minutes")
		I_Length = Console.ReadLine()
		Do Until I_Length = 30 or I_Length = 60
			Console.WriteLine(Error_Msg)
			I_Length = Console.ReadLine()
		Loop
		If J =1 
			T_Length = I_length
		If T_Length = 30
			T_Income = 1000
			T_Earn = 100
		Else
			T_Length = 60
			T_Income = 1050
			T_Earn = 150
		End If
		End If
		If J = 2
			F_Length = I_Length
						If F_Length = 30
		F_Income = 1200
			F_Earn = 120
		Else
			F_Length = 60
			F_Income = 1400
			F_Earn = 200
		End If
		End If
			If J = 3
			H_Length = I_Length
				If H_Length = 30
			H_Income = 3000
			H_Earn = 300
		Else
			H_Length = 60
			H_Income = 3500
			H_Earn = 500
		End If
					H_Max = 600 / (H_Length + 30)
			T_Max = 600 / (T_Length + 30)
			F_Max = 600 / (F_Length + 30)
		End If
		
	Next

		Console.Writeline("The Details for the Planes are displayed below:")
	For J = 1 to 3
		Console.WriteLine("Two Seater, Flight Time: " & T_Length & ", Max Number of Fights: " & T_Max & ", Max Possible Income: " & T_Earn)
		Console.WriteLine("Four Seater, Flight Time: " & F_Length & ", Max Number of Fights: " & F_Max & ", Max Possible Income: " & F_Earn)
		Console.WriteLine("Historic, Flight Time: " & H_Length & ", Max Number of Fights: " & H_Max & ", Max Possible Income: " & H_Earn)
		Console.WriteLine("Please enter the current Bookings")
		Console.WriteLine("Please enter the Bookings for the Two Seater")
		If T_Length = 30
			Console.WriteLine(Thirty_TT)
			For I = 1 to 10
				Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
				T_Booked(I) = Console.Readline()
				Do Until T_Booked(I) = "YES" or T_Booked(I) = "NO"
					Console.WriteLine(Error_Msg)
					Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
					T_Booked(I) = Console.ReadLine()
				Loop
			Next
		Else
			Console.WriteLine(Sixty_TT)
			For I = 1 to 7
				Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
				T_Booked(I) = Console.Readline()
				Do Until T_Booked(I) = "YES" or T_Booked(I) = "NO"
					Console.WriteLine(Error_Msg)
					Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
					T_Booked(I) = Console.ReadLine()
				Loop
			Next
		End If

		Console.WriteLine("Please enter the Bookings for the Four Seater")
		If F_Length = 30
			Console.WriteLine(Thirty_TT)
			For I = 1 to 10
				Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
				F_Booked(I) = Console.Readline()
				Do Until F_Booked(I) = "YES" or F_Booked(I) = "NO"
					Console.WriteLine(Error_Msg)
					Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
					F_Booked(I) = Console.ReadLine()
				Loop
			Next
		Else
			Console.WriteLine(Sixty_TT)
			For I = 1 to 7
				Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
				F_Booked(I) = Console.Readline()
				Do Until F_Booked(I) = "YES" or F_Booked(I) = "NO"
					Console.WriteLine(Error_Msg)
					Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
					F_Booked(I) = Console.ReadLine()
				Loop
			Next
		End If

		Console.WriteLine("Please enter the Bookings for the Historic")
		If H_Length = 30
			Console.WriteLine(Thirty_TT)
			For I = 1 to 10
				Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
				H_Booked(I) = Console.Readline()
				Do Until H_Booked(I) = "YES" or H_Booked(I) = "NO"
					Console.WriteLine(Error_Msg)
					Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
					H_Booked(I) = Console.ReadLine()
				Loop
			Next
		Else
			Console.WriteLine(Sixty_TT)
			For I = 1 to 7
				Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
				H_Booked(I) = Console.Readline()
				Do Until H_Booked(I) = "YES" or T_Booked(I) = "NO"
					Console.WriteLine(Error_Msg)
					Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
					H_Booked(I) = Console.ReadLine()
				Loop
			Next
		End If

		Console.WriteLine("Here are the current Bookings, YES means booked, NO means available")
		Console.WriteLine("Two Seater")
		For I = 1 to 10
			If T_Booked(I) = "YES" or T_Booked(I) = "NO"
				Console.WriteLine("Slot " & I & ", " & T_Booked(I))
			End If
		Next

		Console.WriteLine("Four Seater")
		For I = 1 to 10
			If F_Booked(I) = "YES" or F_Booked(I) = "NO"
				Console.WriteLine("Slot " & I & ", " & F_Booked(I))
			End If
		Next

		Console.WriteLine("Historic")
		For I = 1 to 10
			If H_Booked(I) = "YES" or H_Booked(I) = "NO"
				Console.WriteLine("Slot " & I & ", " & H_Booked(I))
			End If
		Next

		Console.Writeline("Would you like to place anymore Bookings? Please answer in All Caps, YES or NO")
		Book = Console.Readline()
		Do Until Book = "YES" or BOOK = "NO"
			Console.WriteLine(Error_Msg)
			Console.Writeline("Would you like to place anymore Bookings? Please answer in All Caps, YES or NO")
			Book = Console.Readline()
		Loop

		If Book = "YES"
			Do Until Book = "NO"
				Console.WriteLine("Please enter the model of Plane you would like to Book for")
				Book_Model = Console.readline()
				Do Until Book_Model = "TWO SEATER" or Book_Model = "FOUR SEATER" or Book_Model = "HISTORIC"
					Console.WriteLine(Error_Msg)
					Console.WriteLine("Please enter the model of Plane you would like to Book for")
					Book_Model = Console.readline()
				Loop

				If Book_Model = "TWO SEATER"
					Book_(10) = T_Booked(10)
				End IF

				If Book_Model = "FOUR SEATER"
					Book_(10) = F_Booked(10)
				End IF

				If Book_Model = "HISTORIC"
					Book_(10) = H_Booked(10)
				End IF

				Console.WriteLine("Please enter the Time Slot you would like to Book")
				Book_Time = Console.ReadLine()
				Do Until Book_(Book_Time) = "YES" or Book_(Book_Time) = "NO"
					Console.WriteLine(Error_Msg)
					Console.WriteLine("Please enter the Time Slot you would like to Book")
					Book_Time = Console.ReadLine()
				Loop

				If Book_(Book_Time) = "YES"
					Console.WriteLine("The Chosen Slot for the Selected Plane is unavailable")
				Else
					If Book_Model = "TWO SEATER"
						T_Booked(Book_Time) = "YES"
					End IF

					If Book_Model = "FOUR SEATER"
						F_Booked(Book_Time) = "YES"
					End IF

					If Book_Model = "HISTORIC"
						H_Booked(Book_Time) = "YES"
					End IF

					Console.Writeline("Booking Confirmed")
				End If
			Loop
		End If

		For I = 1 to 10
			If T_Booked(I) = "Yes"
				T_Total = T_Total + 1
			End If

			If F_Booked(I) = "Yes"
				F_Total = F_Total + 1
			End If

			If H_Booked(I) = "Yes"
				H_Total = H_Total + 1
			End If
		Next

		T_Income = T_Total * T_Earn
		F_Income = F_Total * F_Earn
		H_Income = H_Total * H_Earn
		Console.WriteLine("The Earnings for the Planes are displayed Below")
		Console.WriteLine("Two Seater: " & T_Income)
		Console.WriteLine("Four Seater: " & F_Income)
		Console.WriteLine("Historic: " & H_Income)
		Console.WriteLine("The total Earnings are $" & T_Income + F_Income = H_Income)
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        Dim T_Income as Decimal
        Dim T_Length as Decimal
        Dim F_Income as Decimal
        Dim F_Length as Decimal
        Dim H_Income as Decimal
        Dim H_Length as Integer
        Dim T_Booked(10) as String
        Dim F_Booked(10) as String
        Dim H_Booked(10) as String
        Dim T_Earn as Integer
        Dim F_Earn as Integer
        Dim H_Earn as Integer
        Dim T_Total as Integer = 0
        Dim F_Total as Integer = 0
        Dim H_Total as Integer = 0
        Dim T_Max as Integer
        Dim F_Max as Integer
        Dim H_Max as Integer
        Dim Error_Msg as String = "Your input is invalid, Please try again."
        Dim Book as String
        Dim Book_Model as String
        Dim Book_Time as Integer
        Dim Book_(10) as String
        Dim I_Income as Decimal
        Dim I_Length as Decimal
        Dim I_Booked(10) as String
        Dim I_Max as Integer
        Dim I_Type as String
        Dim Thirty_TT as String = "Slot 1-8:00, Slot 2-9:00, Slot 3-10:00, Slot 4-11:00, Slot 5-12:00, Slot 6-1:00, Slot 7-2:00, Slot 8-3:00, Slot 9-4:00, and Slot 10-5:00"
        Dim Sixty_TT as String = "Slot 1-8:00, Slot 2-9:30, Slot 3-11:00, Slot 4-12:30, Slot 5-2:00, Slot 6-3:30, Slot 7-5:00"
        Console.WriteLine("PLEASE ENTER ALL INPUTS IN ALL CAPS WHERE APPLICABLE")
        Console.WriteLine("PLEASE ENTER ALL INPUTS IN ARABIC NUMERALS WHERE APPLICABLE")
        
        For J = 1 to 3
        If J = 1
            I_Type ="Two Seater"
        End If
            If J = 2
            I_Type ="Four Seater"
        End If
            If J = 3
            I_Type ="Historic"
        End If
        Console.WriteLine("Please input the Flight Time for the " & I_Type & " Plane in minutes")
        I_Length = Console.ReadLine()
        Do Until I_Length = 30 or I_Length = 60
            Console.WriteLine(Error_Msg)
            I_Length = Console.ReadLine()
        Loop
        If J =1 
            T_Length = I_length
        If T_Length = 30
            T_Income = 1000
            T_Earn = 100
        Else
            T_Length = 60
            T_Income = 1050
            T_Earn = 150
        End If
        End If
        If J = 2
            F_Length = I_Length
                        If F_Length = 30
        F_Income = 1200
            F_Earn = 120
        Else
            F_Length = 60
            F_Income = 1400
            F_Earn = 200
        End If
        End If
            If J = 3
            H_Length = I_Length
                If H_Length = 30
            H_Income = 3000
            H_Earn = 300
        Else
            H_Length = 60
            H_Income = 3500
            H_Earn = 500
        End If
                    H_Max = 600 / (H_Length + 30)
            T_Max = 600 / (T_Length + 30)
            F_Max = 600 / (F_Length + 30)
        End If
        
    Next
​
        Console.Writeline("The Details for the Planes are displayed below:")
    For J = 1 to 3
        Console.WriteLine("Two Seater, Flight Time: " & T_Length & ", Max Number of Fights: " & T_Max & ", Max Possible Income: " & T_Earn)
        Console.WriteLine("Four Seater, Flight Time: " & F_Length & ", Max Number of Fights: " & F_Max & ", Max Possible Income: " & F_Earn)
        Console.WriteLine("Historic, Flight Time: " & H_Length & ", Max Number of Fights: " & H_Max & ", Max Possible Income: " & H_Earn)
        Console.WriteLine("Please enter the current Bookings")
        Console.WriteLine("Please enter the Bookings for the Two Seater")
        If T_Length = 30
            Console.WriteLine(Thirty_TT)
            For I = 1 to 10
                Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                T_Booked(I) = Console.Readline()
                Do Until T_Booked(I) = "YES" or T_Booked(I) = "NO"
                    Console.WriteLine(Error_Msg)
                    Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                    T_Booked(I) = Console.ReadLine()
                Loop
            Next
        Else
            Console.WriteLine(Sixty_TT)
            For I = 1 to 7
                Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                T_Booked(I) = Console.Readline()
                Do Until T_Booked(I) = "YES" or T_Booked(I) = "NO"
                    Console.WriteLine(Error_Msg)
                    Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                    T_Booked(I) = Console.ReadLine()
                Loop
            Next
        End If
​
        Console.WriteLine("Please enter the Bookings for the Four Seater")
        If F_Length = 30
            Console.WriteLine(Thirty_TT)
            For I = 1 to 10
                Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                F_Booked(I) = Console.Readline()
                Do Until F_Booked(I) = "YES" or F_Booked(I) = "NO"
                    Console.WriteLine(Error_Msg)
                    Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                    F_Booked(I) = Console.ReadLine()
                Loop
            Next
        Else
            Console.WriteLine(Sixty_TT)
            For I = 1 to 7
                Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                F_Booked(I) = Console.Readline()
                Do Until F_Booked(I) = "YES" or F_Booked(I) = "NO"
                    Console.WriteLine(Error_Msg)
                    Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                    F_Booked(I) = Console.ReadLine()
                Loop
            Next
        End If
​
        Console.WriteLine("Please enter the Bookings for the Historic")
        If H_Length = 30
            Console.WriteLine(Thirty_TT)
            For I = 1 to 10
                Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                H_Booked(I) = Console.Readline()
                Do Until H_Booked(I) = "YES" or H_Booked(I) = "NO"
                    Console.WriteLine(Error_Msg)
                    Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                    H_Booked(I) = Console.ReadLine()
                Loop
            Next
        Else
            Console.WriteLine(Sixty_TT)
            For I = 1 to 7
                Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                H_Booked(I) = Console.Readline()
                Do Until H_Booked(I) = "YES" or T_Booked(I) = "NO"
                    Console.WriteLine(Error_Msg)
                    Console.WriteLine("Is Slot " & I & " booked? Please answer in all caps, either YES or NO")
                    H_Booked(I) = Console.ReadLine()
                Loop
            Next
        End If
​
        Console.WriteLine("Here are the current Bookings, YES means booked, NO means available")
        Console.WriteLine("Two Seater")
        For I = 1 to 10
            If T_Booked(I) = "YES" or T_Booked(I) = "NO"
                Console.WriteLine("Slot " & I & ", " & T_Booked(I))
            End If
        Next
​
        Console.WriteLine("Four Seater")
        For I = 1 to 10
            If F_Booked(I) = "YES" or F_Booked(I) = "NO"
                Console.WriteLine("Slot " & I & ", " & F_Booked(I))
            End If
        Next
​
        Console.WriteLine("Historic")
        For I = 1 to 10
            If H_Booked(I) = "YES" or H_Booked(I) = "NO"
                Console.WriteLine("Slot " & I & ", " & H_Booked(I))
            End If
        Next
​
        Console.Writeline("Would you like to place anymore Bookings? Please answer in All Caps, YES or NO")
        Book = Console.Readline()
        Do Until Book = "YES" or BOOK = "NO"
            Console.WriteLine(Error_Msg)
            Console.Writeline("Would you like to place anymore Bookings? Please answer in All Caps, YES or NO")
            Book = Console.Readline()
        Loop
​
        If Book = "YES"
            Do Until Book = "NO"
                Console.WriteLine("Please enter the model of Plane you would like to Book for")
                Book_Model = Console.readline()
                Do Until Book_Model = "TWO SEATER" or Book_Model = "FOUR SEATER" or Book_Model = "HISTORIC"
                    Console.WriteLine(Error_Msg)
                    Console.WriteLine("Please enter the model of Plane you would like to Book for")
                    Book_Model = Console.readline()
                Loop
​
                If Book_Model = "TWO SEATER"
                    Book_(10) = T_Booked(10)
                End IF
​
                If Book_Model = "FOUR SEATER"
                    Book_(10) = F_Booked(10)
                End IF
​
                If Book_Model = "HISTORIC"
                    Book_(10) = H_Booked(10)
                End IF
​
                Console.WriteLine("Please enter the Time Slot you would like to Book")
                Book_Time = Console.ReadLine()
                Do Until Book_(Book_Time) = "YES" or Book_(Book_Time) = "NO"
                    Console.WriteLine(Error_Msg)
                    Console.WriteLine("Please enter the Time Slot you would like to Book")
                    Book_Time = Console.ReadLine()
                Loop
​
                If Book_(Book_Time) = "YES"
                    Console.WriteLine("The Chosen Slot for the Selected Plane is unavailable")
                Else
                    If Book_Model = "TWO SEATER"
                        T_Booked(Book_Time) = "YES"
                    End IF
​
                    If Book_Model = "FOUR SEATER"
                        F_Booked(Book_Time) = "YES"
                    End IF
​
                    If Book_Model = "HISTORIC"
                        H_Booked(Book_Time) = "YES"
                    End IF
​
                    Console.Writeline("Booking Confirmed")
                End If
            Loop
        End If
​
        For I = 1 to 10
            If T_Booked(I) = "Yes"
                T_Total = T_Total + 1
            End If
​
            If F_Booked(I) = "Yes"
                F_Total = F_Total + 1
            End If
​
            If H_Booked(I) = "Yes"
                H_Total = H_Total + 1
            End If
        Next
​
        T_Income = T_Total * T_Earn
        F_Income = F_Total * F_Earn
        H_Income = H_Total * H_Earn
        Console.WriteLine("The Earnings for the Planes are displayed Below")
        Console.WriteLine("Two Seater: " & T_Income)
        Console.WriteLine("Four Seater: " & F_Income)
        Console.WriteLine("Historic: " & H_Income)
        Console.WriteLine("The total Earnings are $" & T_Income + F_Income = H_Income)
    End Sub
End Module
​

2
3
4
2

Last Run:	8:15:53 am
Compile:	0.11s
Execute:	0s
Memory:	0b
CPU:	0s

View IL Code