Area of Circle


Module Module1

Sub Main()

'program to find the area of the circle
Dim radius, Area, pi As Single

Console.Write("Enter the radius of the circle: ")
radius = Console.ReadLine

pi = 3.14
Area = pi * radius * radius

Console.WriteLine("The area of the circle is: " & Area)

Console.ReadKey() 'This line of code is used to hold the output window to see the output

End Sub

End Module


Comments

Post a Comment

Popular posts from this blog

Check whether the input number is prime or not

Module Module1 Sub Main() 'program to check whether the input number is a prime number or not 'decalring the variables Dim entry, count, index As Integer Console.WriteLine("Enter the number to check prime or not") entry = Console.ReadLine() For index = 1 To entry If entry Mod index = 0 Then count = count + 1 End If Next If count = 2 Then Console.WriteLine(entry & " is a prime number") Else Console.WriteLine(entry & " is not a prime number") End If Console.ReadKey() End Sub End Module
Read more

Print the factorial value of an input number

Module Module1 Sub main() 'program to print the factorial value of a input number 'declaring the datatypes Dim num, factorial As Integer 'initializing the value of factorial factorial = 1 'entry of the number Console.WriteLine("Enter the number whose factorial value you want to be generated ") num = Console.ReadLine 'start of the while loop to calculate the factorial value of the input number While num <> 0 factorial = factorial * num num = num - 1 End While 'generating the output of the factorial value Console.WriteLine("The factorial value of the number you entered is " & factorial) Console.ReadLine() ' this line of code holds the screen so that you can see the output End Sub End Module
Read more

Print Greatest Number out of 3 numbers

Module Module1 Sub Main() Dim num1, num2, num3 As Integer Console.WriteLine("Enter the first number") num1 = Console.ReadLine Console.WriteLine("Enter the second number") num2 = Console.ReadLine Console.WriteLine("Enter the third number") num3 = Console.ReadLine If num1 > num2 And num1 > num3 Then Console.WriteLine(num1 & " is the greatest number") ElseIf num2 > num1 And num2 > num3 Then Console.WriteLine(num2 & " is the greatest number") ElseIf num1 = num2 And num2 = num3 Then Console.WriteLine("Oops ! you have enetered a number thrice. So ! no greater number found") Else Console.WriteLine(num3 & " is the greatest number") End If Console.ReadKey() End Sub End Module
Read more