sábado, 21 de mayo de 2011

programacion en modo consola en visual basic .net 2010

EJERCICIOS PROPUESTOS 

1.    Crear un aplicación para mostrar el mensaje “Instituto Infonet”
CÓDIGO:
Module Module2
    Sub main()
Console.Write("Instituto Infonet")
Console.ReadLine()
End Sub
End Module

2.    Crear una aplicación para mostrarnos los siguientes mensajes: (en líneas diferentes)
CÓDIGO:
Module Module3
    Sub main()
Console.WriteLine("               " & "Microsoft")
Console.WriteLine("               " & "Visual")
Console.WriteLine("               " & "Basic. Net")
Console.Write("               " & "2010")
Console.ReadLine()
End Sub
End Module

3.    Escribir un programa que nos permita multiplicar tres numeros ingresados.

CÓDIGO:
Module Module4
    Sub main()
Dim num1, num2, num3, prod As ULong
Console.Write("Ingrese primer numero: ")
        num1 = Console.ReadLine()
Console.Write("Ingrese segundo numero: ")
        num2 = Console.ReadLine()
Console.Write("Ingrese tercer numero: ")
        num3 = Console.ReadLine()
prod = num1 * num2 * num3
Console.Write("El resultado es: " &prod)
Console.ReadLine()
End Sub
End Module

4.    Desarrollar una aplicación que nos permita hallar el promedio de cinco notas ingresadas.

CÓDIGO:
Module Module5
    Sub main()
Dim nota1, nota2, nota3, nota4, nota5, prom As Single
Console.Write("Ingrese primera nota: ")
        nota1 = Console.ReadLine()
Console.Write("Ingrese segunda nota: ")
        nota2 = Console.ReadLine()
Console.Write("Ingrese tercera nota: ")
        nota3 = Console.ReadLine()
Console.Write("Ingrese cuarta nota: ")
        nota4 = Console.ReadLine()
Console.Write("Ingrese quinta nota: ")
        nota5 = Console.ReadLine()
prom = (nota1 + nota2 + nota3 + nota4 + nota5) / 5
Console.Write("El promedio es: " &prom)
Console.ReadLine()
End Sub
End Module

5.    Desarrollar un programa que nos permita calcular la raiz cuadrada de un numero ingresado.
CÓDIGO:
Module Module6
    Sub main()
Dimnum, rpta As Single
Console.Write("ingrese numero: ")
num = Console.ReadLine()
rpta = num ^ (1 / 2)
Console.Write("la raiz cuadrada es: " &rpta)
Console.ReadLine()
End Sub
End Module

6.    Desarrollar unaaplicacionparahallar el area de untriangulo.
CÓDIGO:
Module Module7
    Sub main()
Dim b, h, a As Integer
Console.Write("Ingrese base: ")
        b = Console.ReadLine()
Console.Write("Ingrese altura: ")
        h = Console.ReadLine()
        a = (b * h) / 2
Console.Write("El area de un triangulo es: " & a)
Console.ReadLine()
End Sub
End Module

7.    Escribaunprogramaparacalcular el area del circulo.

CÓDIGO:
Module Module8
    Sub main()
Dim r, pi, a As Single
Console.Write("Ingrese valor de radio: ")
        r = Console.ReadLine()
pi = 3.141592653
        a = pi * r ^ 2
Console.Write("El area de un circulo es: " & a)
Console.ReadLine()
End Sub
End Module

8.    Escribir un programa para hallar el area de un rectangulo. 

CÓDIGO:
Module Module9
    Sub main()
Dim b, h, a As Integer
Console.Write("ingrese base: ")
        b = Console.ReadLine()
Console.Write("ingrese altura: ")
        h = Console.ReadLine()
        a = b * h
Console.Write("el area de un rectangulo es: " & a)
Console.ReadLine()
End Sub
End Module

9.    Desarrollar unprogramaquenosingresa un valor expresado en metros y convertirlo en centimetros.
CÓDIGO:
Module Module10
    Sub main()
Dimmts, cm As Integer
Console.Write("Ingresar valor en metros: ")
mts = Console.ReadLine()
        cm = mts * 100
Console.Write("El valor en centimetros es: " & cm)
Console.ReadLine()
End Sub
End Module

10. Crearunaaplicacionqueingreseun valor expresado en centimetros y convertirlo en metros.
CÓDIGO:
Module Module11
    Sub main()
Dim cm, mts As Integer
Console.Write("Ingresar valor en centimetros: ")
        cm = Console.ReadLine()
mts = cm / 100
Console.Write("El valor en metros es: " &mts)
Console.ReadLine()
End Sub
End Module

11. Escribirunprogramaquenospermitaingresar un valor en pulgadas y convertirlo en centimetros.
CÓDIGO:
Module Module12
    Sub main()
Dimpulg, cmts As Integer
Console.Write("Ingresar valor en pulgadas: ")
pulg = Console.ReadLine()
cmts = pulg * 2.54
Console.Write("El valor en centimetros es: " &cmts)
Console.ReadLine()
End Sub
End Module

12. Desarrollar unprogramaquenosingrese un valor expresado en metros y convertirlo en pies y pulgadas.
CÓDIGO:
Module Module13
    Sub main()
Dimmts, pie, pulg, cm As Integer
Console.Write("Ingresar valor en metros: ")
mts = Console.ReadLine()
pie = mts * 3.2808
Console.Write("El valor en pies es: " & pie)
Console.ReadLine()
pulg = mts *  39.37
Console.Write("El valor en pulgadas es: " &pulg)
Console.ReadLine()
End Sub
End Module

13. Calcular el valor de Csegun la siguiente formula: A^2*B^2=C
(Ingresar el valor de a y b)
CÓDIGO:
ModuleModule14
Submain()
Dim a, b, c AsDouble
Console.Write("Ingrese el numero a: ")
a = Console.ReadLine()
Console.Write("Ingrese el numero b: ")
a = Console.ReadLine()
c = a ^ 2 + b ^ 2
Console.Write("El numero c es: "& c)
Console.ReadLine()
EndSub
EndModule

14. Calcular el numero de pulsacionesqueuna persona debetenerporcadadiezsegundos de ejercicio, si la formula es:


15. Hallar el importe a pagarporunproductocompradosi me ingresancomodatos la cantidad y el precio unitario. 
CÓDIGO:
Module Module16
    Sub main()
Dimcant, prec_unit, import As Single
Console.Write("Ingresar la cantidad de productos: ")
cant = Console.ReadLine()
Console.Write("Ingresar el precio unitario: ")
prec_unit = Console.ReadLine()
import = cant * prec_unit
Console.Write("Importe a pagar es: " &import)
Console.ReadLine()
End Sub
End Module

16. Calcular el importe a pagarporunproductosi me ingresancomodatos la cantidad y el precio unitario y se aplicara un descuento del 5% al subtotal.
CÓDIGO:
Module Module17
    Sub main()
Dimcant, prec_unit, desct, import, prec_vent As Single
Console.Write("Ingresar la cantidad de productos: ")
cant = Console.ReadLine()
Console.Write("Ingresar el precio unitario: ")
prec_unit = Console.ReadLine()
import = cant * prec_unit
desct = import * 0.05
prec_vent = import - desct
Console.Write("Importe a pagar es: " &prec_vent)
Console.ReadLine()
End Sub
End Module

17. Calcular el nuevosalario de unobrerosiobtuvo un incremento del 25% sobresusalario anterior.
CÓDIGO:
Module Module18
    Sub main()
Dimsal_bas, sal_net, bonif, import As Single
Console.Write("Ingrese salario mensual: ")
sal_bas = Console.ReadLine()
import = sal_bas
Console.Write("Salario mensual neto a pagar: " &import)
Console.ReadLine()
bonif = sal_bas * 0.25
sal_net = sal_bas + bonif
Console.Write("Nuevo salario mensual: " &sal_net)
Console.ReadLine()
End Sub
End Module

18. El dueño de unatiendacompraunarticulo a un precio determinado. Obtener el precio en que lo debe vender paraobtenerunagananciadel 30%.
CÓDIGO:
Module Module19
    Sub main()
Dimprec, import, gan As Single
Console.Write("Ingresar precio del producto: ")
prec = Console.ReadLine()
gan = prec * 0.3
import = gan + prec
Console.Write("Importe a vender es: " &import)
Console.ReadLine()
End Sub
End Module

19. Desarrollar unaaplicacionquecalcule en importe total de un producto comprador donde se aplicara el igv y un descuento del 3% al sub total (ingresar el preciounitario y la cantidad)
CÓDIGO:
Module Module20
    Sub main()
Dimprec_unit, prec_vent, cant, import, igv, desct As Single
Console.Write("Ingrese precio del producto: ")
prec_unit = Console.ReadLine()
Console.Write("Ingrese cantidad de producto: ")
cant = Console.ReadLine()
import = prec_unit * cant
desct = import * 0.03
igv = prec_unit * 0.18
prec_vent = import - desct + igv
Console.Write("Importe del producto comprado: " &prec_vent)
Console.ReadLine()
End Sub
End Module

20. Calcular el valor de la formula dada:

CÓDIGO:
Module Module21
    Sub main()
Dim a, b, c, rpta As Double
Console.Write("el numero a:")
        a = Console.ReadLine()
Console.Write("el numero b:")
        b = Console.ReadLine()
Console.Write("el numero c:")
        c = Console.ReadLine()
rpta = (b * -1) + ((b ^ 2 - 4 * a * c) ^ (1 / 2)) / 2 * a
Console.Write("la respuesta es: " &rpta)
Console.ReadLine()
End Sub
End Module

1 comentario:

  1. Que les parece este contenido: http://infoobtain-algoritmos.blogspot.com/

    ResponderEliminar