PRM 2018-2019 NO HELP | C# Online Compiler

PRM 2018-2019 NO HELP by Osdef V

Imports System

Public Module Module1

	Dim Punc(3, 4, 5) as Integer

	Dim day as String

	Dim week as Integer

	Dim bus as String

	Dim i as integer

	Dim j as integer

	Dim k as Integer

	' Insert global declarations here, ie arrays and variables that will be used in all Subs		
	Public Sub Main()
		' Any variables declared here will be local to this subroutine only		
		Dim UserChoice As Integer
		Console.WriteLine("MENU OF OPTIONS")
		Do
			Console.WriteLine("Task 1")
			Console.WriteLine("Task 2")
			Console.WriteLine("Task 3")
			Console.WriteLine("Enter number 1 - 3")
			UserChoice = Console.ReadLine()
		Loop Until UserChoice >= 1 And UserChoice <= 3

		Select Case UserChoice
			Case Is = 1
				Call Task1
			Case Is = 2
				Call Task2
			Case Is = 3
				Call Task3
		End Select

		Call Main()
	End Sub

	Public Sub Task1
		' Insert code for Task 1
		' Any variables declared here will be local to this subroutine only	
		Console.WriteLine("Task 1")
		i = 0
		j = 0
		k = 0
		For i = 0 to 3
			for j = 0 to 4
				for k = 0 to 5
					Select case k
						case 0
							bus = "A"
						case 1
							bus = "B"
						case 2
							bus = "C"
						case 3
							bus = "D"
						case 4
							bus = "E"
						case else
							bus = "F"
					End Select

					week = i + 1
					Select case j
						case 0
							day = "monday"
						case 1
							day = "tuesday"
						case 2
							day = "wednesday"
						case 3
							day = "thursday"
						case else
							day = "friday"
					End Select

					Console.WriteLine("enter the data for " & day & " of week " & week & ", bus " & bus)
					Punc(i, j, k) = Console.ReadLine()
					Console.writeline(Punc(i, j, k))
				next k
			next j
		next i
	End Sub

	Public Sub Task2
		Dim Total as Integer
		Dim Average as Decimal
		Dim total2 as integer
		Dim Maxtotal as integer
		Dim Bigbus as String
		Dim Cookedavrg as Decimal
		Dim Negativetotal as Integer
		Dim Punc2 as Integer(,,) = {{{0, 0, 2, 1, -1, 0}, {0, 1, 0, 0, -1, -5}, {0, 0, -1, 0, -1, -5}, {2, 0, -1, 0, -2, -5}, {2, 1, -2, 0, -4, -4}}, {{4, 2, -2, 0, -10, -3}, {0, 0, -3, 0, -2, -5}, {3, 0, -1, 0, 0, 0}, {4, 0, 0, 0, 0, 0}, {-2, 0, 0, 0, 0, 0}}, {{-5, 1, -2, 2, 0, 0}, {0, 0, 0, 0, 1, -2}, {0, 0, 1, 0, 2, -3}, {3, 0, 1, 0, -3, 1}, {4, 2, 1, 0, 1, 1}}, {{-1, 0, 1, 0, 1, 1}, {8, 0, -1, 0, 3, 0}, {1, 1, -1, 0, -1, 0}, {1, 0, 2, 0, 0, -2}, {-2, 0, -2, 0, 0, -5}}}
		'finding howevermany times a bus route was late'
		For k = 0 to 5
			Total2 = 0
			Total = 0
			Select case k
				case 0
					bus = "A"
				case 1
					bus = "B"
				case 2
					bus = "C"
				case 3
					bus = "D"
				case 4
					bus = "E"
				case else
					bus = "F"
			End Select

			for j = 0 to 4
				for i = 0 to 3
					If Punc2(i, j, k) < 0
						Total = Total + 1
					Else
						Total = Total
					End If

					Total2 = Total2 + Punc2(i, j, k)
					If Punc2(i, j, k) < 0
						Negativetotal = Negativetotal + Punc2(i, j, k)
					End If
				next i
			next j

			console.WriteLine("bus route " & bus & " was late " & total & " times")
			Average = Total2 / 20
			console.WriteLine("On average" & average & "time")
			If Maxtotal < Total
				Maxtotal = total
				Bigbus = bus
			ElseIf Maxtotal = Total
				Bigbus = bus & " & " & Bigbus
			End If

			If Total = 0
				Cookedavrg = 0
			Else
				Cookedavrg = Negativetotal / Total
			End If
console.WriteLine(Cookedavrg)
		next k

		console.WriteLine(Maxtotal & Bigbus)
		
		Console.WriteLine("Task 2")
	End Sub

	Public Sub Task3
			Dim Punc2 as Integer(,,) = {{{0, 0, 2, 1, -1, 0}, {0, 1, 0, 0, -1, -5}, {0, 0, -1, 0, -1, -5}, {2, 0, -1, 0, -2, -5}, {2, 1, -2, 0, -4, -4}}, {{4, 2, -2, 0, -10, -3}, {0, 0, -3, 0, -2, -5}, {3, 0, -1, 0, 0, 0}, {4, 0, 0, 0, 0, 0}, {-2, 0, 0, 0, 0, 0}}, {{-5, 1, -2, 2, 0, 0}, {0, 0, 0, 0, 1, -2}, {0, 0, 1, 0, 2, -3}, {3, 0, 1, 0, -3, 1}, {4, 2, 1, 0, 1, 1}}, {{-1, 0, 1, 0, 1, 1}, {8, 0, -1, 0, 3, 0}, {1, 1, -1, 0, -1, 0}, {1, 0, 2, 0, 0, -2}, {-2, 0, -2, 0, 0, -5}}}
DIm Dayz as Integer
dim weeknum as Integer
dim bus as String
console.WriteLine("nth day of the week")
Dayz = Console.readline()
console.WriteLine("enter week")
Weeknum=console.ReadLine()
FOr i = 0 to 5
		Select case i
				case 0
					bus = "A"
				case 1
					bus = "B"
				case 2
					bus = "C"
				case 3
					bus = "D"
				case 4
					bus = "E"
				case else
					bus = "F"
			End Select


COnsole.WriteLine("for Bus" & bus & " " & Punc2(weeknum-1,dayz-1,i))

next




		Console.WriteLine("Task 3")
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Dim Punc(3, 4, 5) as Integer
​
    Dim day as String
​
    Dim week as Integer
​
    Dim bus as String
​
    Dim i as integer
​
    Dim j as integer
​
    Dim k as Integer
​
    ' Insert global declarations here, ie arrays and variables that will be used in all Subs        
    Public Sub Main()
        ' Any variables declared here will be local to this subroutine only     
        Dim UserChoice As Integer
        Console.WriteLine("MENU OF OPTIONS")
        Do
            Console.WriteLine("Task 1")
            Console.WriteLine("Task 2")
            Console.WriteLine("Task 3")
            Console.WriteLine("Enter number 1 - 3")
            UserChoice = Console.ReadLine()
        Loop Until UserChoice >= 1 And UserChoice <= 3
​
        Select Case UserChoice
            Case Is = 1
                Call Task1
            Case Is = 2
                Call Task2
            Case Is = 3
                Call Task3
        End Select
​
        Call Main()
    End Sub
​
    Public Sub Task1
        ' Insert code for Task 1
        ' Any variables declared here will be local to this subroutine only 
        Console.WriteLine("Task 1")
        i = 0
        j = 0
        k = 0
        For i = 0 to 3
            for j = 0 to 4
                for k = 0 to 5
                    Select case k
                        case 0
                            bus = "A"
                        case 1
                            bus = "B"
                        case 2
                            bus = "C"
                        case 3
                            bus = "D"
                        case 4
                            bus = "E"
                        case else
                            bus = "F"
                    End Select
​
                    week = i + 1
                    Select case j
                        case 0
                            day = "monday"
                        case 1
                            day = "tuesday"
                        case 2
                            day = "wednesday"
                        case 3
                            day = "thursday"
                        case else
                            day = "friday"
                    End Select
​
                    Console.WriteLine("enter the data for " & day & " of week " & week & ", bus " & bus)
                    Punc(i, j, k) = Console.ReadLine()
                    Console.writeline(Punc(i, j, k))
                next k
            next j
        next i
    End Sub
​
    Public Sub Task2
        Dim Total as Integer
        Dim Average as Decimal
        Dim total2 as integer
        Dim Maxtotal as integer
        Dim Bigbus as String
        Dim Cookedavrg as Decimal
        Dim Negativetotal as Integer
        Dim Punc2 as Integer(,,) = {{{0, 0, 2, 1, -1, 0}, {0, 1, 0, 0, -1, -5}, {0, 0, -1, 0, -1, -5}, {2, 0, -1, 0, -2, -5}, {2, 1, -2, 0, -4, -4}}, {{4, 2, -2, 0, -10, -3}, {0, 0, -3, 0, -2, -5}, {3, 0, -1, 0, 0, 0}, {4, 0, 0, 0, 0, 0}, {-2, 0, 0, 0, 0, 0}}, {{-5, 1, -2, 2, 0, 0}, {0, 0, 0, 0, 1, -2}, {0, 0, 1, 0, 2, -3}, {3, 0, 1, 0, -3, 1}, {4, 2, 1, 0, 1, 1}}, {{-1, 0, 1, 0, 1, 1}, {8, 0, -1, 0, 3, 0}, {1, 1, -1, 0, -1, 0}, {1, 0, 2, 0, 0, -2}, {-2, 0, -2, 0, 0, -5}}}
        'finding howevermany times a bus route was late'
        For k = 0 to 5
            Total2 = 0
            Total = 0
            Select case k
                case 0
                    bus = "A"
                case 1
                    bus = "B"
                case 2
                    bus = "C"
                case 3
                    bus = "D"
                case 4
                    bus = "E"
                case else
                    bus = "F"
            End Select
​
            for j = 0 to 4
                for i = 0 to 3
                    If Punc2(i, j, k) < 0
                        Total = Total + 1
                    Else
                        Total = Total
                    End If
​
                    Total2 = Total2 + Punc2(i, j, k)
                    If Punc2(i, j, k) < 0
                        Negativetotal = Negativetotal + Punc2(i, j, k)
                    End If
                next i
            next j
​
            console.WriteLine("bus route " & bus & " was late " & total & " times")
            Average = Total2 / 20
            console.WriteLine("On average" & average & "time")
            If Maxtotal < Total
                Maxtotal = total
                Bigbus = bus
            ElseIf Maxtotal = Total
                Bigbus = bus & " & " & Bigbus
            End If
​
            If Total = 0
                Cookedavrg = 0
            Else
                Cookedavrg = Negativetotal / Total
            End If
console.WriteLine(Cookedavrg)
        next k
​
        console.WriteLine(Maxtotal & Bigbus)
        
        Console.WriteLine("Task 2")
    End Sub
​
    Public Sub Task3
            Dim Punc2 as Integer(,,) = {{{0, 0, 2, 1, -1, 0}, {0, 1, 0, 0, -1, -5}, {0, 0, -1, 0, -1, -5}, {2, 0, -1, 0, -2, -5}, {2, 1, -2, 0, -4, -4}}, {{4, 2, -2, 0, -10, -3}, {0, 0, -3, 0, -2, -5}, {3, 0, -1, 0, 0, 0}, {4, 0, 0, 0, 0, 0}, {-2, 0, 0, 0, 0, 0}}, {{-5, 1, -2, 2, 0, 0}, {0, 0, 0, 0, 1, -2}, {0, 0, 1, 0, 2, -3}, {3, 0, 1, 0, -3, 1}, {4, 2, 1, 0, 1, 1}}, {{-1, 0, 1, 0, 1, 1}, {8, 0, -1, 0, 3, 0}, {1, 1, -1, 0, -1, 0}, {1, 0, 2, 0, 0, -2}, {-2, 0, -2, 0, 0, -5}}}
DIm Dayz as Integer
dim weeknum as Integer
dim bus as String
console.WriteLine("nth day of the week")
Dayz = Console.readline()
console.WriteLine("enter week")
Weeknum=console.ReadLine()
FOr i = 0 to 5
        Select case i
                case 0
                    bus = "A"
                case 1
                    bus = "B"
                case 2
                    bus = "C"
                case 3
                    bus = "D"
                case 4
                    bus = "E"
                case else
                    bus = "F"
            End Select
​
​
COnsole.WriteLine("for Bus" & bus & " " & Punc2(weeknum-1,dayz-1,i))
​
next
​
​
​
​
        Console.WriteLine("Task 3")
    End Sub
End Module 
​
​

View IL Code