segunda-feira, 22 de junho de 2009

Calcular a àrea de um circulo usando VB.Net

'Este programa mostra como calcular a área
'de um círculo mediante a informação do raio.

Module Module1
Sub Main()
Dim area, raio As Double
Console.Write("Informe o raio do círculo: ")
raio = CDbl(Console.ReadLine())
area = Math.PI * Math.Pow(raio, 2)
Console.WriteLine("A area do círculo de raio " & _
raio & " é igual a " & area)

Console.WriteLine()
Console.WriteLine("Pressione uma tecla para sair...")
Console.ReadKey()
End Sub
End Module

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.