La toalla del mojado

Solo disponible en BuenasTareas
  • Páginas : 2 (326 palabras )
  • Descarga(s) : 0
  • Publicado : 15 de febrero de 2012
Leer documento completo
Vista previa del texto
Practica 1.
'1.Pedir al alumno dos numero, uno entero y otro real y mostrar su producto.

Dim num1 As Integer
Dim num2, prod As Double
Console.Write("Escribe un numeroentero: ")
num1 = Console.ReadLine
Console.Write("Escribe un numero real: ")
num2 = Console.ReadLine
prod = num1 * num2
Console.WriteLine("El producto es: "& prod)
Console.Read()

'2.Calcular el area de un circulo cuyo radio se le preguntara al alumno.
Dim rad, area As Double
Console.Write("Ingresa el radio de tucirculo: ")
rad = Console.ReadLine
area = 3.1416 * rad ^ 2
Console.WriteLine("El area del circulo es: " & area)
Console.Read()

'3.Pedir al alumno loscoeficientes(a, b, c) de un polimonio de segundo grado (ax2+bx+c) y mostrar las dos raices: (-b+-(b2-4ac)1/2)/2a
Dim a, b, c, x, x1 As Double
Console.WriteLine("Introduce valor de a: ")a = Console.ReadLine
Console.WriteLine("Introduce valor de b: ")
b = Console.ReadLine
Console.WriteLine("Introduce valor de c: ")
c = Console.ReadLinex = (-b + Math.Sqrt((b ^ 2) - (4 * a * c))) / (2 * a)
x1 = (-b - Math.Sqrt((b ^ 2) - (4 * a * c))) / (2 * a)
Console.WriteLine("Resultado: " & x)Console.WriteLine("Resultado: " & x1)
Console.Read()

'4.Preguntar al alumno su nombre(texto) y su edad(valor entero) y mostrar por pantalla un texto del estilo del siguiente:
'Te llamaslucia y tienes 19 años.
Dim edad As Double
Dim nom As String
Console.Write("Introduce tu nombre: ")
nom = Console.ReadLine
Console.Write("Introduce tu edad:")
edad = Console.ReadLine
Console.WriteLine("Te llamas {0} y tienes {1} de edad ", nom, edad)
Console.Read()

'5.Pedir un entero al alumno y mostrar su valor...
tracking img