2019 ON | C# Online Compiler

2019 ON by ibrahim_24

Imports System

Public Module Module1

	Public Sub Main()
		dim color as string
		dim shape as string
		dim dimension as string
	
		dim depth as STRING
		dim volume as decimal
		dim basicprice as decimal = 0.05
		dim price as decimal
		console.WriteLine("Enter color of the concrete you want to purchase")
		color = console.ReadLine()
		select case color
			case is = "grey"
				console.WriteLine("Enter Shape of concrete")
				shape = console.ReadLine()
				if shape = "square" then
					console.WriteLine("enter dimensions")
					console.Writeline("A is 600x600")
					console.Writeline("B is 450x450")
					dimension = console.ReadLine()
					console.WriteLine("enter depth")
					console.WriteLINE("A is 38")
				console.WriteLINE("B is 45")
					depth = console.ReadLine()
					if dimension = "A" AND depth = "A" then
						volume = 600 * 600 * 38
					else if dimension = "A" AND depth = "B" then
						volume = 600 * 600 * 45
					else if dimension = "B" AND depth = "A" then
						volume = 450 * 450 * 38
					else if dimension = "B" AND depth = "B" then
						volume = 450 * 450 * 45
					end if
				ELSE if shape = "RECTANGLE" then
					console.WriteLine("enter dimensions")
					console.Writeline("A is 600x700")
					console.Writeline("B is 600x450")
					dimension = console.ReadLine()
					console.WriteLine("enter depth")
					console.WriteLINE("A is 38")
					console.Write("B is 45")
					depth = console.ReadLine()
					if dimension = "A" AND depth = "A" then
						volume = 600 * 700 * 38
					else if dimension = "A" AND depth = "B" then
						volume = 600 * 700 * 45
					else if dimension = "B" AND depth = "A" then
						volume = 600 * 450 * 38
					else if dimension = "B" AND depth = "B" then
						volume = 600 * 450 * 45
					end if
				ELSE if shape = "round" then
					console.WriteLine("enter dimensions")
					console.Writeline("A is 300 diameter")
					console.Writeline("B is 450 diameter")
					dimension = console.ReadLine()
					console.WriteLine("enter depth")
					console.WriteLINE("A is 38")
					console.Write("B is 45")
					depth = console.ReadLine()
					if dimension = "A" AND depth = "A" then
						volume = 300 * 300 * 38 * 3.14
					else if dimension = "A" AND depth = "B" then
						volume = 300 * 300 * 45 * 3.14
					else if dimension = "B" AND depth = "A" then
						volume = 450 * 450 * 38 * 3.14
					else if dimension = "B" AND depth = "B" then
						volume = 450 * 450 * 45 * 3.14
					end if
				end if

			case else
				console.WriteLine("shape does not exist")
		end select

		price =(volume / 100000) * basicprice * 20
		console.WriteLine("The price of 20 slabs is {0}", price)
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        dim color as string
        dim shape as string
        dim dimension as string
    
        dim depth as STRING
        dim volume as decimal
        dim basicprice as decimal = 0.05
        dim price as decimal
        console.WriteLine("Enter color of the concrete you want to purchase")
        color = console.ReadLine()
        select case color
            case is = "grey"
                console.WriteLine("Enter Shape of concrete")
                shape = console.ReadLine()
                if shape = "square" then
                    console.WriteLine("enter dimensions")
                    console.Writeline("A is 600x600")
                    console.Writeline("B is 450x450")
                    dimension = console.ReadLine()
                    console.WriteLine("enter depth")
                    console.WriteLINE("A is 38")
                console.WriteLINE("B is 45")
                    depth = console.ReadLine()
                    if dimension = "A" AND depth = "A" then
                        volume = 600 * 600 * 38
                    else if dimension = "A" AND depth = "B" then
                        volume = 600 * 600 * 45
                    else if dimension = "B" AND depth = "A" then
                        volume = 450 * 450 * 38
                    else if dimension = "B" AND depth = "B" then
                        volume = 450 * 450 * 45
                    end if
                ELSE if shape = "RECTANGLE" then
                    console.WriteLine("enter dimensions")
                    console.Writeline("A is 600x700")
                    console.Writeline("B is 600x450")
                    dimension = console.ReadLine()
                    console.WriteLine("enter depth")
                    console.WriteLINE("A is 38")
                    console.Write("B is 45")
                    depth = console.ReadLine()
                    if dimension = "A" AND depth = "A" then
                        volume = 600 * 700 * 38
                    else if dimension = "A" AND depth = "B" then
                        volume = 600 * 700 * 45
                    else if dimension = "B" AND depth = "A" then
                        volume = 600 * 450 * 38
                    else if dimension = "B" AND depth = "B" then
                        volume = 600 * 450 * 45
                    end if
                ELSE if shape = "round" then
                    console.WriteLine("enter dimensions")
                    console.Writeline("A is 300 diameter")
                    console.Writeline("B is 450 diameter")
                    dimension = console.ReadLine()
                    console.WriteLine("enter depth")
                    console.WriteLINE("A is 38")
                    console.Write("B is 45")
                    depth = console.ReadLine()
                    if dimension = "A" AND depth = "A" then
                        volume = 300 * 300 * 38 * 3.14
                    else if dimension = "A" AND depth = "B" then
                        volume = 300 * 300 * 45 * 3.14
                    else if dimension = "B" AND depth = "A" then
                        volume = 450 * 450 * 38 * 3.14
                    else if dimension = "B" AND depth = "B" then
                        volume = 450 * 450 * 45 * 3.14
                    end if
                end if
​
            case else
                console.WriteLine("shape does not exist")
        end select
​
        price =(volume / 100000) * basicprice * 20
        console.WriteLine("The price of 20 slabs is {0}", price)
    End Sub
End Module
​

Pdv - 1
Pdv - 2
EquipmentModel - 4
EquipmentModel - 5
Usuario - 6

Cached Result
Last Run:	9:18:47 pm
Compile:	0.014s
Execute:	0.06s
Memory:	4.58Mb
CPU:	0.074s

View IL Code