Chapter 13 Worksheet | C# Online Compiler

Chapter 13 Worksheet by --------------------------------------------

Imports System
				
Public Module Module1
	Public Sub Main()
		Console.WriteLine("Hello World")
		'Task1()
		'Task2()
		'Task3()
		'Task4()
		'Task5()
		'Task6()
		'Task7()
		'Task8()
		Task9()
		'Task10()
		'Task11()
		'Task12()
		'Task13()
		'Task14()
		'Task15()
		'Task16()
	End Sub
	
	Sub Task1()
		Dim Length as Decimal
		Dim Width as Decimal
		Dim SurfaceArea as Decimal
		Console.WriteLine("Please input the length")
		Length = Console.ReadLine()
		Console.WriteLine("Please input the width")
		Width = Console.ReadLine()
		SurfaceArea = Length * Width
		Console.WriteLine("The surface area is " & SurfaceArea)		
	End Sub
	
	Sub Task2()
		Dim TempF as Decimal
		Dim TempC as Decimal
		Console.WriteLine("Please input the temperature in Fahrenheit")
		TempF = Console.ReadLine()
		TempC = (TempF-32) * 5/9
		Console.WriteLine("Your temperature in Degrees Celsius is " & TempC)
	End Sub
	
	Sub Task3()
		Dim TempC as Decimal
		Console.WriteLine("Please input the air temperature in Degrees Celsius")
		TempC = Console.ReadLine()
		If TempC < 1 Then
			Console.WriteLine("It is freezing")
		Else
			Console.WriteLine("It is not freezing")
		End If
	End Sub
	
	Sub Task4()
		Dim TempC as Decimal
		Console.WriteLine("Please input the water temperature in Degrees Celsius")
		TempC = Console.ReadLine()
		If TempC > 100 Then
			Console.WriteLine("The water is boiling")
		Else If TempC > 0
				Console.WriteLine("The water is liquid")
		Else If TempC < 0
				Console.WriteLine("The water is frozen")
		End If
	End Sub
			
	Sub Task5()
		Dim Month as String	= "January"	
		Console.WriteLine("Input a month number between 1 and 12")
			Select Case Month
				Case "1"
					Console.WriteLine("The month is January")
				Case "2"	
					Console.WriteLine("The month is February")
				Case "3"
					Console.WriteLine("The month is March")
				Case "4"
					Console.WriteLine("The month is April")
				Case "5"
					Console.WriteLine("The month is May")
				Case "6"
					Console.WriteLine("The month is June")
				Case "7"
					Console.WriteLine("The month is July")
				Case "8"
					Console.WriteLine("The month is August")
				Case "9"
					Console.WriteLine("The month is September")
				Case "10"
					Console.WriteLine("The month is October")
				Case "11"
					Console.WriteLine("The month is November")
				Case "12"
					Console.WriteLine("The month is December")
			End Select
	End Sub
			
	Sub Task6()
		Dim Input as Integer	
		Console.WriteLine("Please enter a number")
		Input = Console.ReadLine()
		For Input = 1 to Input
			Console.WriteLine(Input)
		Next
	End Sub
				
	Sub Task7()	
		Dim Input as Integer	
		Console.WriteLine("Please enter a number")
		Input = Console.ReadLine()
			For Input = Input to 1 Step -1
			Console.WriteLine(Input)
		Next	
	End Sub
	
	Sub Task8()
		Dim Input as Integer
		Dim Input2 As Integer
		Console.WriteLine("Please enter a number")
		Input = Console.ReadLine()
		Console.WriteLine("Please enter another number")
		Input2 = Console.ReadLine
		For Input = 1 to Input Step Input2
			Console.WriteLine(Input)
		Next
	End Sub

	Sub Task9()
		Dim x as Integer
		Dim Input as Integer = 0
		Dim storeInput as Integer
		For x = 0 to 9
			Console.WriteLine("Please enter a number")
			storeInput = Console.ReadLine()
			If storeInput > Input Then
				Input = storeInput
			End If
		Next
		Console.WriteLine("Biggest number input is " & Input)
	End Sub

	Sub Task10()
		Dim x as Integer
		Dim Input as Integer = 1000
		For x = 0 to 9
		Console.WriteLine("Please enter a number")
		If Console.ReadLine() < Input Then
			Input = Console.ReadLine()
		End If
		Console.WriteLine("Smallest number input is " & Input)
		Next
	End Sub

	Sub Task11()
		Dim Input as Integer
		Console.WriteLine("Please input a number between 1 and 5")
		Input = Console.ReadLine()
		Do Until Input < 6 AND Input> 0
			Console.WriteLine("Please input a valid number")
			Input = Console.ReadLine()
		Loop
		If Input < 6 OR Input > 0
			Console.WriteLine("You have input " & Input)
		End If
	End Sub	

	Sub Task12()
		Dim Input1 as Integer
		Dim Input2 as Integer
		Dim i as Integer
		Console.WriteLine("Please input a number")
		Input1 = Console.ReadLine()
		Console.WriteLine("Please input another number")
		Input2 = Console.ReadLine()
		For i = Input1 to Input2
			Console.WriteLine(i)
		Next
	End Sub

	Sub Task13()
		Dim Array() as Integer = {0,0,0,0,0,0,0,0,0,0}
		Dim i as Integer
		For i = 0 to 9
			Console.WriteLine(Array(i))
		Next
	End Sub
	
	Sub Task14()
		Dim Array() as Integer = {0,1,2,3,4,5,6,7,8,9}
		Dim i as Integer
		For i = 0 to 9
			Console.WriteLine(Array(i))
		Next
	End Sub

	Sub Task15()
		Dim Array() as Integer = {0,1,2,3,4,5,6,7,8,9}
		Dim i as Integer
		Dim Input as Integer
		Console.WriteLine("Enter a number between 1 and 10")
		Do Until Console.ReadLine() = 0
			Console.WriteLine("Enter a number between 1 and 10")
			Input = Console.ReadLine()
			For i = 0 to Input
				i = Input
				Console.WriteLine(Array(i) + 1)
			Console.WriteLine("Enter a number between 1 and 10")
			Next
		Loop
	End Sub

	Sub Task16()
		Dim ArrayO(4,4) as String	
		Dim i as Integer
		Dim j as Integer
		ArrayO(0,0) = 0
		ArrayO(0,1) = 0
		ArrayO(0,2) = 0
		ArrayO(0,3) = 0
		ArrayO(0,4) = 0
		ArrayO(1,0) = 0
		ArrayO(1,1) = 0
		ArrayO(1,2) = 0
		ArrayO(1,3) = 0
		ArrayO(1,4) = 0
		ArrayO(2,0) = 0
		ArrayO(2,1) = 0
		ArrayO(2,2) = 0
		ArrayO(2,3) = 0
		ArrayO(2,4) = 0	
		ArrayO(3,0) = 0
		ArrayO(3,1) = 0
		ArrayO(3,2) = 0
		ArrayO(3,3) = 0
		ArrayO(3,4) = 0	
		ArrayO(4,0) = 0 
		ArrayO(4,1) = 0 
		ArrayO(4,2) = 0
		ArrayO(4,3) = 0
		ArrayO(4,4) = 0
		For i = 0 to 4 
			For j = 0 to 4
				Console.WriteLine(ArrayO(i,j))
			Next
		Next
		
	End Sub

End Module

​x
 
Imports System
                
Public Module Module1
    Public Sub Main()
        Console.WriteLine("Hello World")
        'Task1()
        'Task2()
        'Task3()
        'Task4()
        'Task5()
        'Task6()
        'Task7()
        'Task8()
        Task9()
        'Task10()
        'Task11()
        'Task12()
        'Task13()
        'Task14()
        'Task15()
        'Task16()
    End Sub
    
    Sub Task1()
        Dim Length as Decimal
        Dim Width as Decimal
        Dim SurfaceArea as Decimal
        Console.WriteLine("Please input the length")
        Length = Console.ReadLine()
        Console.WriteLine("Please input the width")
        Width = Console.ReadLine()
        SurfaceArea = Length * Width
        Console.WriteLine("The surface area is " & SurfaceArea)     
    End Sub
    
    Sub Task2()
        Dim TempF as Decimal
        Dim TempC as Decimal
        Console.WriteLine("Please input the temperature in Fahrenheit")
        TempF = Console.ReadLine()
        TempC = (TempF-32) * 5/9
        Console.WriteLine("Your temperature in Degrees Celsius is " & TempC)
    End Sub
    
    Sub Task3()
        Dim TempC as Decimal
        Console.WriteLine("Please input the air temperature in Degrees Celsius")
        TempC = Console.ReadLine()
        If TempC < 1 Then
            Console.WriteLine("It is freezing")
        Else
            Console.WriteLine("It is not freezing")
        End If
    End Sub
    
    Sub Task4()
        Dim TempC as Decimal
        Console.WriteLine("Please input the water temperature in Degrees Celsius")
        TempC = Console.ReadLine()
        If TempC > 100 Then
            Console.WriteLine("The water is boiling")
        Else If TempC > 0
                Console.WriteLine("The water is liquid")
        Else If TempC < 0
                Console.WriteLine("The water is frozen")
        End If
    End Sub
            
    Sub Task5()
        Dim Month as String = "January" 
        Console.WriteLine("Input a month number between 1 and 12")
            Select Case Month
                Case "1"
                    Console.WriteLine("The month is January")
                Case "2"    
                    Console.WriteLine("The month is February")
                Case "3"
                    Console.WriteLine("The month is March")
                Case "4"
                    Console.WriteLine("The month is April")
                Case "5"
                    Console.WriteLine("The month is May")
                Case "6"
                    Console.WriteLine("The month is June")
                Case "7"
                    Console.WriteLine("The month is July")
                Case "8"
                    Console.WriteLine("The month is August")
                Case "9"
                    Console.WriteLine("The month is September")
                Case "10"
                    Console.WriteLine("The month is October")
                Case "11"
                    Console.WriteLine("The month is November")
                Case "12"
                    Console.WriteLine("The month is December")
            End Select
    End Sub
            
    Sub Task6()
        Dim Input as Integer    
        Console.WriteLine("Please enter a number")
        Input = Console.ReadLine()
        For Input = 1 to Input
            Console.WriteLine(Input)
        Next
    End Sub
                
    Sub Task7() 
        Dim Input as Integer    
        Console.WriteLine("Please enter a number")
        Input = Console.ReadLine()
            For Input = Input to 1 Step -1
            Console.WriteLine(Input)
        Next    
    End Sub
    
    Sub Task8()
        Dim Input as Integer
        Dim Input2 As Integer
        Console.WriteLine("Please enter a number")
        Input = Console.ReadLine()
        Console.WriteLine("Please enter another number")
        Input2 = Console.ReadLine
        For Input = 1 to Input Step Input2
            Console.WriteLine(Input)
        Next
    End Sub
​
    Sub Task9()
        Dim x as Integer
        Dim Input as Integer = 0
        Dim storeInput as Integer
        For x = 0 to 9
            Console.WriteLine("Please enter a number")
            storeInput = Console.ReadLine()
            If storeInput > Input Then
                Input = storeInput
            End If
        Next
        Console.WriteLine("Biggest number input is " & Input)
    End Sub
​
    Sub Task10()
        Dim x as Integer
        Dim Input as Integer = 1000
        For x = 0 to 9
        Console.WriteLine("Please enter a number")
        If Console.ReadLine() < Input Then
            Input = Console.ReadLine()
        End If
        Console.WriteLine("Smallest number input is " & Input)
        Next
    End Sub
​
    Sub Task11()
        Dim Input as Integer
        Console.WriteLine("Please input a number between 1 and 5")
        Input = Console.ReadLine()
        Do Until Input < 6 AND Input> 0
            Console.WriteLine("Please input a valid number")
            Input = Console.ReadLine()
        Loop
        If Input < 6 OR Input > 0
            Console.WriteLine("You have input " & Input)
        End If
    End Sub 
​
    Sub Task12()
        Dim Input1 as Integer
        Dim Input2 as Integer
        Dim i as Integer
        Console.WriteLine("Please input a number")
        Input1 = Console.ReadLine()
        Console.WriteLine("Please input another number")
        Input2 = Console.ReadLine()
        For i = Input1 to Input2
            Console.WriteLine(i)
        Next
    End Sub
​
    Sub Task13()
        Dim Array() as Integer = {0,0,0,0,0,0,0,0,0,0}
        Dim i as Integer
        For i = 0 to 9
            Console.WriteLine(Array(i))
        Next
    End Sub
    
    Sub Task14()
        Dim Array() as Integer = {0,1,2,3,4,5,6,7,8,9}
        Dim i as Integer
        For i = 0 to 9
            Console.WriteLine(Array(i))
        Next
    End Sub
​
    Sub Task15()
        Dim Array() as Integer = {0,1,2,3,4,5,6,7,8,9}
        Dim i as Integer
        Dim Input as Integer
        Console.WriteLine("Enter a number between 1 and 10")
        Do Until Console.ReadLine() = 0
            Console.WriteLine("Enter a number between 1 and 10")
            Input = Console.ReadLine()
            For i = 0 to Input
                i = Input
                Console.WriteLine(Array(i) + 1)
            Console.WriteLine("Enter a number between 1 and 10")
            Next
        Loop
    End Sub
​
    Sub Task16()
        Dim ArrayO(4,4) as String   
        Dim i as Integer
        Dim j as Integer
        ArrayO(0,0) = 0
        ArrayO(0,1) = 0
        ArrayO(0,2) = 0
        ArrayO(0,3) = 0
        ArrayO(0,4) = 0
        ArrayO(1,0) = 0
        ArrayO(1,1) = 0
        ArrayO(1,2) = 0
        ArrayO(1,3) = 0
        ArrayO(1,4) = 0
        ArrayO(2,0) = 0
        ArrayO(2,1) = 0
        ArrayO(2,2) = 0
        ArrayO(2,3) = 0
        ArrayO(2,4) = 0 
        ArrayO(3,0) = 0
        ArrayO(3,1) = 0
        ArrayO(3,2) = 0
        ArrayO(3,3) = 0
        ArrayO(3,4) = 0 
        ArrayO(4,0) = 0 
        ArrayO(4,1) = 0 
        ArrayO(4,2) = 0
        ArrayO(4,3) = 0
        ArrayO(4,4) = 0
        For i = 0 to 4 
            For j = 0 to 4
                Console.WriteLine(ArrayO(i,j))
            Next
        Next
        
    End Sub
​
End Module

View IL Code