Transformar En C Digo El Pseudoc Digo Que Se Muestra A Continuaci N

Transformar en código el pseudocódigo que se muestra a continuación, relativo a proporcionar el volumen de un cilindro dado su altura y diámetro.
1.  Inicio
2.  Mostrar “Introduzca el diámetro, enmetros” : Pedir D 
3.  Mostrar “Introduzca la altura, en metros” : Pedir H 
4.  R = D/2 : Pi = 3,141593
5.  V = Pi * (R ^ 2) * H
6.  Mostrar “El volumen del cilindro es de”, V, “metros cúbicos”
7. Fin
 
 
SOLUCIÓN EJERCICIO
Creamos un formulario donde insertamos dos Labels (podemos usar arrays de controles como Label1(0) yLabel1(1)) ó simplemente dos controles como Label1 y Label2, dos TextBox(podemos decir lo mismo que para los labels)y un Label para resultados al que vamos a ponerle nosotros el nombre y que llamaremos (LabelResultados), así como un botón al que llamaremos ButtonCalcular. Elprimer Label mostrará el mensaje de solicitud del diámetro y el segundo Label el correspondiente a la altura. A través de los TextBox el usuario introducirá los datos solicitados y a través del Labelde resultados mostraremos los resultados. El código será algo así:
 
Código (versionesVB menos recientes)
Código (versiones VB más recientes)
Rem Curso Visual Basic aprenderaprogramar.com
OptionExplicit
Rem Declaración de variables
Const Pi As Single = 3.141592654
Dim R!, H!, V As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo volumen cilindro"ButtonCalcular.Caption = "Calcular Volumen"
Label1.Caption = "Introduzca aquí el diámetro, en metros"
Label2.Caption = "Introduzca aquí la altura, en metros"
End Sub

Rem Cálculo y muestra resultados
Private SubButtonCalcular_Click()
R = Val(Text1) / 2
H = Val(Text2)
V = Pi * (R ^ 2) * H
LabelResultados.FontSize = 10
LabelResultados.FontBold = True
LabelResultados.Alignment = 2
LabelResultados = "El volumendel cilindro es de " & V & " metros cúbicos"
End Sub
REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
    REM Declaración de variables
    Const Pi As Single =...