Pre-Release Task Practice | C# Online Compiler

Pre-Release Task Practice by Hiilen

Imports System

Public Module Module1

	Public Sub TemperatureRange
		Console.WriteLine("Enter the temperature")
		Dim t as decimal
		t = Console.ReadLine()
		If t > 37.5
			Console.Writeline("Temperature is too high")
		Else if t < 36.0
			Console.WriteLine("Temperature is too low")
		Else
			Console.WriteLine("Temperature is normal")
		End if
	End Sub

	Public sub MaxMin
		Console.WriteLine("Enter the temperatures")
		Dim tMax as Decimal
		Dim tMin as Decimal
		Dim t(17) as Decimal
		t(0) = Console.Readline
		tMin = t(0)
		For i = 0 to 17
			t(i) = Console.ReadLine()
			If i = 0
				tMin = t(i)
				tMax = t(i)
			Else If t(i) > tMax
				tMax = t(i)
			Else If t(i) < tMin
				tMin = t(i)
			End if
		Next

		Console.WriteLine("The highest temperature in the three hours was " & tMax & " degrees Celsius")
		Console.WriteLine("The lowest temperature in the three hours was " & tMin & " degrees Celsius")
		Console.WriteLine("The diffrence between the lowest and highest temperature was " & (tMax - tMin) & " degrees Celsius")
	End sub

	Public Sub Main(Combine3Tasks)
		Console.WriteLine("Enter the temperatures")
		Dim tMax as Decimal
		Dim tMin as Decimal
		Dim t(17) as Decimal
		Dim tRange as Decimal
		Dim rcount as integer = 0
		t(0) = Console.Readline
		tMin = t(0)
		For i = 0 to 17
			t(i) = Console.ReadLine()
			If i = 0
				tMin = t(i)
				tMax = t(i)
			Else If t(i) > tMax
				tMax = t(i)
			Else If t(i) < tMin
				tMin = t(i)
			End if

			If t(i) > 37.5
				Console.Writeline("Temperature is too high")
				rcount += 1
			Else if t(i) < 36.0
				Console.WriteLine("Temperature is too low")
				rcount += 1
			End if
		Next

		Console.WriteLine("The highest temperature in the three hours was " & tMax & " degrees Celsius")
		Console.WriteLine("The lowest temperature in the three hours was " & tMin & " degrees Celsius")
		Console.WriteLine("The diffrence between the lowest and highest temperature was " & (tMax - tMin) & " degrees Celsius")
		tRange = tMax - tMin
		If tRange > 1 and rcount > 2
			Console.WriteLine("The temperature of the baby have experienced a relatively big change and has been out of the safe range of temperatures for him/her for more than two times")
		Else if tRange > 1
								Console.Writeline("The baby have experienced a significant change in temperature within the three hours")
		Else if rcount > 2
			Console.WriteLine("The temperature of the baby has been out of the safe range of temperatures for more than 2 times")
		Else
			Console.Writeline("The temperature of the baby has been normal")
		End if
	End sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub TemperatureRange
        Console.WriteLine("Enter the temperature")
        Dim t as decimal
        t = Console.ReadLine()
        If t > 37.5
            Console.Writeline("Temperature is too high")
        Else if t < 36.0
            Console.WriteLine("Temperature is too low")
        Else
            Console.WriteLine("Temperature is normal")
        End if
    End Sub
​
    Public sub MaxMin
        Console.WriteLine("Enter the temperatures")
        Dim tMax as Decimal
        Dim tMin as Decimal
        Dim t(17) as Decimal
        t(0) = Console.Readline
        tMin = t(0)
        For i = 0 to 17
            t(i) = Console.ReadLine()
            If i = 0
                tMin = t(i)
                tMax = t(i)
            Else If t(i) > tMax
                tMax = t(i)
            Else If t(i) < tMin
                tMin = t(i)
            End if
        Next
​
        Console.WriteLine("The highest temperature in the three hours was " & tMax & " degrees Celsius")
        Console.WriteLine("The lowest temperature in the three hours was " & tMin & " degrees Celsius")
        Console.WriteLine("The diffrence between the lowest and highest temperature was " & (tMax - tMin) & " degrees Celsius")
    End sub
​
    Public Sub Main(Combine3Tasks)
        Console.WriteLine("Enter the temperatures")
        Dim tMax as Decimal
        Dim tMin as Decimal
        Dim t(17) as Decimal
        Dim tRange as Decimal
        Dim rcount as integer = 0
        t(0) = Console.Readline
        tMin = t(0)
        For i = 0 to 17
            t(i) = Console.ReadLine()
            If i = 0
                tMin = t(i)
                tMax = t(i)
            Else If t(i) > tMax
                tMax = t(i)
            Else If t(i) < tMin
                tMin = t(i)
            End if
​
            If t(i) > 37.5
                Console.Writeline("Temperature is too high")
                rcount += 1
            Else if t(i) < 36.0
                Console.WriteLine("Temperature is too low")
                rcount += 1
            End if
        Next
​
        Console.WriteLine("The highest temperature in the three hours was " & tMax & " degrees Celsius")
        Console.WriteLine("The lowest temperature in the three hours was " & tMin & " degrees Celsius")
        Console.WriteLine("The diffrence between the lowest and highest temperature was " & (tMax - tMin) & " degrees Celsius")
        tRange = tMax - tMin
        If tRange > 1 and rcount > 2
            Console.WriteLine("The temperature of the baby have experienced a relatively big change and has been out of the safe range of temperatures for him/her for more than two times")
        Else if tRange > 1
                                Console.Writeline("The baby have experienced a significant change in temperature within the three hours")
        Else if rcount > 2
            Console.WriteLine("The temperature of the baby has been out of the safe range of temperatures for more than 2 times")
        Else
            Console.Writeline("The temperature of the baby has been normal")
        End if
    End sub
End Module
​

Enter No.1:

Cached Result
Last Run:	11:22:18 pm
Compile:	0.143s
Execute:	0s
Memory:	24kb
CPU:	0s

View IL Code