[Fork] Hard programming | C# Online Compiler

[Fork] Hard programming by Jeremy Huang

Imports System

Public Module Module1

	Public Sub Main()
		dim mdt(3) as decimal
		dim mnt(3) as decimal
		dim t as decimal
		dim m as string
		dim ld as integer
		dim l as integer
		dim pre as string
		dim d as integer
		dim a as integer
		dim maxdt as decimal
		dim minnt as decimal
		console.writeline("What is the month?")
		m = Console.ReadLine()
		for i = 0 to 3
			d = i + 1
			l = math.abs(d).tostring.length()
			if l = 1 then
				if d = 1 then
					pre = "st"
				else if d = 2 then
					pre = "nd"
				else if d = 3
					pre = "rd"
				else
					pre = "th"
				End if
			else if l = 2 then
				ld = Math.Abs(d).ToString.Substring(1, 1)
				if ld = 1 then
					pre = " st "
				else if ld = 2 then
					pre = " nd "
				else if ld = 3 then
					pre = " rd "
				else
					pre = "th"
				End if
			else
				pre = ""
			End if

			Console.WriteLine("What is the midday temperature of the " & d & pre & " of " & m & " in Celcius?")
			t = Console.ReadLine()
			if t > -273.15 and t < 4000000000 then
				mdt(i) = t
			Else
				do until t > -273.15 and t < 4000000000
					Console.WriteLine("Invalid entry, try again")
					Console.WriteLine("What is the midday temperature of the " & d & pre & " of " & m & " in Celcius?")
					t = Console.ReadLine()
					mdt(i) = t
				loop
			End if

			Console.WriteLine("What is the midnight temperature of the " & d & pre & " of " & m & " in Celcius?")
			t = Console.ReadLine()
			if t > -273.15 and t < 4000000000 then
				mnt(i) = t
			Else
					do until t > -273.15 and t < 4000000000
					Console.WriteLine("Invalid entry, try again")
					Console.WriteLine("What is the midnight temperature of the " & d & pre & " of " & m & " in Celcius?")
					t = Console.ReadLine()
					mnt(i) = t
				loop
			End if
		next

		for each element in mdt
			console.writeline(element)
		next

		for each element in mnt
			console.writeline(element)
		next

		a = 0
		for i = 0 to 3
			a = a + mdt(i)
		next

		a = a / 4
		Console.WriteLine("The average midday temperature is " & a & "°C")
		a = 0
		for i = 0 to 3
			a = a + mnt(i)
		next

		a = a / 4
		Console.WriteLine("The average midnight temperature is " & a & "°C")
		maxdt =(-273.5)
		for each element in mdt
			if maxdt < element then
				maxdt = element
			else
			end if
		next

		Console.WriteLine("The highest midday temperature was " & maxdt & "°C")
		minnt = 4000000000
		for each element in mdt
			if minnt > element then
				minnt = element
			else
			end if
		next

		Console.WriteLine("The lowest midnight temperature was " & minnt & "°C")
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        dim mdt(3) as decimal
        dim mnt(3) as decimal
        dim t as decimal
        dim m as string
        dim ld as integer
        dim l as integer
        dim pre as string
        dim d as integer
        dim a as integer
        dim maxdt as decimal
        dim minnt as decimal
        console.writeline("What is the month?")
        m = Console.ReadLine()
        for i = 0 to 3
            d = i + 1
            l = math.abs(d).tostring.length()
            if l = 1 then
                if d = 1 then
                    pre = "st"
                else if d = 2 then
                    pre = "nd"
                else if d = 3
                    pre = "rd"
                else
                    pre = "th"
                End if
            else if l = 2 then
                ld = Math.Abs(d).ToString.Substring(1, 1)
                if ld = 1 then
                    pre = " st "
                else if ld = 2 then
                    pre = " nd "
                else if ld = 3 then
                    pre = " rd "
                else
                    pre = "th"
                End if
            else
                pre = ""
            End if
​
            Console.WriteLine("What is the midday temperature of the " & d & pre & " of " & m & " in Celcius?")
            t = Console.ReadLine()
            if t > -273.15 and t < 4000000000 then
                mdt(i) = t
            Else
                do until t > -273.15 and t < 4000000000
                    Console.WriteLine("Invalid entry, try again")
                    Console.WriteLine("What is the midday temperature of the " & d & pre & " of " & m & " in Celcius?")
                    t = Console.ReadLine()
                    mdt(i) = t
                loop
            End if
​
            Console.WriteLine("What is the midnight temperature of the " & d & pre & " of " & m & " in Celcius?")
            t = Console.ReadLine()
            if t > -273.15 and t < 4000000000 then
                mnt(i) = t
            Else
                    do until t > -273.15 and t < 4000000000
                    Console.WriteLine("Invalid entry, try again")
                    Console.WriteLine("What is the midnight temperature of the " & d & pre & " of " & m & " in Celcius?")
                    t = Console.ReadLine()
                    mnt(i) = t
                loop
            End if
        next
​
        for each element in mdt
            console.writeline(element)
        next
​
        for each element in mnt
            console.writeline(element)
        next
​
        a = 0
        for i = 0 to 3
            a = a + mdt(i)
        next
​
        a = a / 4
        Console.WriteLine("The average midday temperature is " & a & "°C")
        a = 0
        for i = 0 to 3
            a = a + mnt(i)
        next
​
        a = a / 4
        Console.WriteLine("The average midnight temperature is " & a & "°C")
        maxdt =(-273.5)
        for each element in mdt
            if maxdt < element then
                maxdt = element
            else
            end if
        next
​
        Console.WriteLine("The highest midday temperature was " & maxdt & "°C")
        minnt = 4000000000
        for each element in mdt
            if minnt > element then
                minnt = element
            else
            end if
        next
​
        Console.WriteLine("The lowest midnight temperature was " & minnt & "°C")
    End Sub
End Module
​

Compilation error (line 1, col 1): A namespace cannot directly contain members such as fields or methods

Last Run:	11:56:25 pm
Compile:	0s
Execute:	0.031s
Memory:	0b
CPU:	0s

View IL Code