Estructura Secuencial
Ejercicio de Consola:
Diseñar un programa en Consola que me permita visualizar un nombre y un apellido
Module Module1
Sub Main()
Dim nom = "carlos", ape = "vizarreta"
Console.WriteLine("visualizando el nombre y apellido")
Console.WriteLine("el nombre a visualizar es: " & nom)
Console.WriteLine("el apellido a visualizar es: " & ape)
Console.ReadLine()
End Sub
End Module
Ejercicio de Consola:
Diseñar un programa en Consola que me permita insertar un nombre y que luego me permita visualizar el mensaje “el nombre introducido es…………. “
Module Module1
Sub Main()
Dim cadena As String
Console.WriteLine("por favor, introduzca su nombre")
cadena = Console.ReadLine()
cadena = "el nombre introducido es:" & cadena
Console.WriteLine(cadena)
Console.ReadLine()
End Sub
End Module
Ejercicio de Consola:
Diseñar una aplicación donde se visualice lo siguiente:
Hola
Cual es tu nombre
Buenos días
(le debe permitir ingresar su nombre)
al ejecutar debe visualizarse así:
Hola Buenos días …………..
Sub Main()
Dim nom As String
Console.WriteLine("Hola")
Console.WriteLine("Cual es tu nombre")
Console.WriteLine("Buenos días")
nom = Console.ReadLine()
Console.WriteLine("Buenos días")
Console.WriteLine(nom)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñar una aplicación donde se ingrese ciertos datos y luego se debe visualizar los datos ingresados como respuesta:
Hola
Mi nombre es:
Estudio en
Tengo la edad de:
Sub Main()
Dim nom, est, eda As String
Console.WriteLine("Hola")
Console.WriteLine("Mi nombre es:")
nom = Console.ReadLine()
Console.WriteLine("Estudio en:")
est = Console.ReadLine()
Console.WriteLine("Tengo la edad de:")
eda = Console.ReadLine()
Console.WriteLine("hola")
Console.WriteLine(nom)
Console.WriteLine("estudias en")
Console.WriteLine(est)
Console.WriteLine("tienes la edad de")
Console.WriteLine(eda)
Console.ReadLine()
Console.WriteLine("Gracias por la consulta")
Console.Read()
End Sub
Ejercicio de Consola:
Diseñar una aplicación que me permita visualizar los datos ingresados por código, el nombre y su edad del usuario. Luego se debe visualizar el mensaje de bienvenida y los datos ingresados.
Sub Main()
Dim nombre = "Visasoft"
Dim numero = "27"
Console.WriteLine("hola me llamo:" & nombre & "tengo la edad de" & numero & "años")
Console.ReadLine()
End Sub
Ejercicio de Consola:
Crear una aplicación que sume o una dos variables
Sub Main()
Dim a, b As String
Console.WriteLine("digitar el primer texto")
a = Console.ReadLine()
Console.Write(a)
Console.WriteLine("digitar el segundo texto")
b = Console.ReadLine()
Console.Write(b)
Console.WriteLine("el resultado de la uniòn es:")
Console.WriteLine(a + " " + b)
Console.Read()
End Sub
Ejercicio de Consola:
Diseñar una aplicación donde se visualice la adición automática de dos constante
Sub Main()
Dim intx = 10, num = 5
Console.Write(intx)
Console.ReadLine()
Console.WriteLine("visualizar el numero a sumar")
Console.Write(num)
Console.ReadLine()
Console.WriteLine("el resultado es:")
Console.Write(intx + num)
Console.Read()
End Sub
Ejercicio de Consola:
Diseñar una aplicación que me permita ingresar dos números, luego se visualizar los números ingresados cada uno respectivamente con la variable previamente ingresada por código.
Sub Main()
Dim a, b As Integer
Console.Write("ingrese el primer elemento ")
a = Console.ReadLine
Console.Write("ingrese el segundo elemento ")
b = Console.ReadLine
Console.WriteLine("a es igual a: " & a)
Console.WriteLine("b es igual a: " & b)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Crear una aplicación que permita ingresar dos valores y luego muestre el resultado de la suma de ellos
Sub Main()
Dim n1 As Integer
Dim n2 As Integer
Console.WriteLine("ingrese el primer numero")
n1 = Console.ReadLine()
Console.WriteLine("ingrese el segundo numero")
n2 = Console.ReadLine()
Console.WriteLine("el resultado de la suma es")
Console.WriteLine(n1 + n2)
Console.Read()
End Sub
Ejercicio de Consola:
Crear una aplicación que permita ingresar tres valores, sabiendo que la formula es la siguiente: valor1+valor2-(valor3-valor1). Mostrar el resultado de la formula.
Sub Main()
Dim valor1 As Integer
Dim valor2 As Integer
Dim valor3 As Integer
Console.WriteLine("ingrese el primer valor")
valor1 = Console.ReadLine()
Console.WriteLine("ingrese el segundo valor")
valor2 = Console.ReadLine()
Console.WriteLine("ingrese el tercer valor")
valor3 = Console.ReadLine()
Console.WriteLine("el resultado es:")
Console.WriteLine(valor1 + valor2 - (valor3 - valor1))
Console.ReadLine()
End Sub
Ejercicio de Consola:
Crear una aplicación que permita ingresar dos valores y que se visualice dos resultados: el de división real y división entera.
Sub Main()
Dim a As Integer
Dim b As Integer
Console.Write("primer numero")
a = Console.ReadLine()
Console.Write("segundo numero")
b = Console.ReadLine()
Console.WriteLine("visualize la primera division")
Console.Write(a / b)
Console.ReadLine()
Console.WriteLine("visualize la division entera")
Console.Write(a \ b)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñar una aplicación que me permita visualizar los diferentes formatos de los números ingresados por codificación. Además se debe visualizar el espacio de separación de cada uno.
Sub Main()
Console.WriteLine("----------------------------")
Console.WriteLine("{0,10}{1,5}{2,10}{3}", 10, 15, 23, 450)
' el primero se separa 10 del limite izquierdo, el segundo 5 del primero....
Console.WriteLine("----------------------------")
Console.WriteLine("{0,10:#,###.00}{1,10}", 10.476, 15.355)
' el primero se visualiza con dos decimales, el segundo tal como se ingreso
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñe un programa que permita hallar el área y el perímetro de un rectángulo. Se considera que:
Área = base * altura
Perímetro = 2 * (base + altura)
Sub Main()
Dim base As Integer
Dim altura As Integer
Console.WriteLine("introduzca la base del cuadrado")
base = Console.ReadLine
Console.WriteLine("introduzca la altura del cuadrado")
altura = Console.ReadLine
Console.WriteLine("el area del cuadrado es")
Console.WriteLine(base * altura)
Console.ReadLine()
Console.WriteLine("el perimetro del cuadrado es")
Console.WriteLine(2 * (base + altura))
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñar una aplicación que permita convertir una longitud dada en metros a sus equivalentes en centímetros, pies, pulgadas y yardas. Se debe considerar:
Sub Main()
Dim metros As Double
Console.WriteLine("introduzca la cantidad en metros")
metros = Console.ReadLine
Console.WriteLine("la cantidad en centimetros es")
Console.WriteLine(metros * 100)
Console.ReadLine()
Console.WriteLine("la cantidad en pulgada es")
Console.WriteLine((metros * 100) / 2.54)
Console.ReadLine()
Console.WriteLine("la cantidad en pie es")
Console.WriteLine((((metros * 100) / 2.54)) / 12)
Console.ReadLine()
Console.WriteLine("la cantidad en yardas es")
Console.WriteLine(((((metros * 100) / 2.54)) / 12) / 3)
Console.ReadLine()
End Sub
Ejercicio de Consola:
En una competencia atlética de velocidad el tiempo se mide en minutos, segundos y centésimas de segundo; y el espacio recorrido se mide en metros. Diseñar una aplicación para determinar la velocidad atleta en km/hr.
Sub Main()
Dim km, hora, veloc, metro, seg, cent As Single
Console.Write("introduzca la cantidad de kilometro : ") : km = Console.ReadLine
Console.Write("la cantidad en horas es : ") : hora = Console.ReadLine
Console.Write("la cantidad en horas es : ") : seg = hora * 60
Console.WriteLine(seg)
Console.Write("la velocidad del atleta en hora es : ") : veloc = km / hora
Console.WriteLine(veloc & " kilometros por hora")
Console.ReadLine()
End Sub
Ejercicio de Consola:
Una institución benéfica peruana ha recibido tres donaciones en soles, dólares y euros. La donación será repartida en tres rubros:
- 60% para la implementación de un Centro de Salud
- 30% para un Comedor de Niños
- Y el resto para gastos administrativos
Determinar el monto en soles que le corresponde a cada rubro, se considera que:
1 dólar = 2.88 soles
1 euro = 1,17 dólar
Module Module1
Sub Main()
Dim euros, dolar, soles, teuro, tdolar, tmarco, tsoles As Double
Console.WriteLine("introduzca la cantidad en euros")
euros = Console.ReadLine
Console.WriteLine("introduzca la cantidad en dolares")
dolar = Console.ReadLine
Console.WriteLine("introduzca la cantidad en soles")
soles = Console.ReadLine
Console.WriteLine("la cantidad en soles de los euros es")
teuro = ((euros * 1.17) * 3.32)
Console.WriteLine(teuro)
Console.ReadLine()
Console.WriteLine("la cantidad en soles de los dolares es")
tdolar = (dolar * 3.32)
Console.WriteLine(tdolar)
Console.ReadLine()
Console.WriteLine("la cantidad total en soles es")
tsoles = (teuro + tdolar + soles)
Console.WriteLine(tsoles)
Console.ReadLine()
Console.WriteLine("la cantidad destinada a los Centros de Salud - 60%")
Console.WriteLine(tsoles * 0.6)
Console.ReadLine()
Console.WriteLine("la cantidad destinada a los Comedores de niños - 30%")
Console.WriteLine(tsoles * 0.3)
Console.ReadLine()
Console.WriteLine("la cantidad destinada a Gastos Administrativos - 10%")
Console.WriteLine(tsoles * 0.1)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñar un programa que permita visualizar la hora actual del sistema, así mismo que permita ingresar la hora, minuto y segundo manualmente. Luego debe permitir visualizar cuantos segundos, minutos y horas faltan para concluir el día.
Sub Main()
Dim hora, minuto, segundo, restosegundos, restominutos, restohoras, todo As Double
Console.WriteLine(Now)
Console.WriteLine("ingrese la hora actual")
hora = Console.ReadLine()
Console.WriteLine("ingrese el minuto actual")
minuto = Console.ReadLine()
Console.WriteLine("ingrese el segundo actual")
segundo = Console.ReadLine()
Console.WriteLine("cantidad de horas que restan para culminar el dia")
restohoras = (24 - hora)
Console.WriteLine(restohoras)
Console.WriteLine("cantidad de minutos que restan para culminar el dia")
restominutos = (restohoras * 60)
Console.WriteLine(restominutos)
Console.WriteLine("cantidad de segundos que restan para culminar el dia")
restosegundos = (restominutos * 60)
Console.WriteLine(restosegundos)
Console.WriteLine("las horas son " & restohoras & " los minutos son " & restominutos & " y los segundos son " & restosegundos)
Console.ReadLine()
End Sub
Ejercicio de Consola:
El sueldo neto de un trabajador se calcula con la suma del sueldo básico más el 12% del monto total de ventas hechas. Diseñar un programa que determine el sueldo neto de un vendedor sabiendo que hizo tres ventas durante el mes.
Sub Main()
Dim sueldo, venta1, venta2, venta3, porcentaje, total As Single
Console.WriteLine("ingrese el sueldo basico")
sueldo = Console.ReadLine()
Console.WriteLine("ingrese la primera venta")
venta1 = Console.ReadLine()
Console.WriteLine("ingrese la segunda venta")
venta2 = Console.ReadLine()
Console.WriteLine("ingrese la tercera venta")
venta3 = Console.ReadLine()
Console.WriteLine("el porcentaje por cada venta es del 12%")
Console.WriteLine("el porcentaje de las tres ventas es")
porcentaje = (venta1 + venta2 + venta3) * 0.12
Console.WriteLine(porcentaje)
Console.ReadLine()
Console.WriteLine("el total del sueldo a cobrar es")
total = sueldo + porcentaje
Console.WriteLine(total)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseña una aplicación que permita determinar el porcentaje de varones y de damas que se encuentran en un salón de clases.
Sub Main()
Dim varones, damas, total, porcvarones, porcdamas As Single
Console.WriteLine("ingrese la cantidad de personas que se encuentran en el aula")
total = Console.ReadLine()
Console.WriteLine("ingrese la cantidad de varones")
varones = Console.ReadLine()
Console.WriteLine("ingrese la cantidad de damas")
damas = Console.ReadLine()
Console.WriteLine("El porcentaje de varones en el aula es")
porcvarones = varones * 100 / total
Console.WriteLine(porcvarones)
Console.ReadLine()
Console.WriteLine("El porcentaje de damas en el aula es")
porcdamas = damas * 100 / total
Console.WriteLine(porcdamas)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñar una aplicación que exprese la capacidad de un disco duro en MB, KB y bytes, conociendo la capacidad del disco GB.
Considere que:
1 KB = 1024 bytes 1 MB = 1024 KB 1 GB = 1024 MB
Sub Main()
Dim gb, mb, kb, b As Double
Console.WriteLine("ingrese la capacidad del disco duro")
gb = Console.ReadLine()
Console.WriteLine("la cantidad en MB es")
mb = gb * 1024
Console.WriteLine(mb)
Console.ReadLine()
Console.WriteLine("la cantidad en KB es")
kb = mb * 1024
Console.WriteLine(kb)
Console.ReadLine()
Console.WriteLine("la cantidad en byte es")
b = kb * 1024
Console.WriteLine(b)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñar una aplicación que permita ingresar dos números, luego se debe visualizar como respuesta la operación con las cuatro operaciones básicas.
Sub Main()
Dim a, b, c As Single
Console.WriteLine("ingrese el primer numero")
a = Console.ReadLine
Console.WriteLine("ingrese el segundo numero")
b = Console.ReadLine
Console.WriteLine("el resultado de la suma es")
c = a + b
Console.WriteLine(c)
Console.WriteLine("el resultado de la resta es")
c = a - b
Console.WriteLine(c)
Console.WriteLine("el resultado de la multiplicacion es")
c = a * b
Console.WriteLine(c)
Console.WriteLine("el resultado de la division es")
c = a / b
Console.WriteLine(c)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñar una aplicación que permita ingresar un numero de cuatro cifras y luego se debe visualizar las unidades, decenas, centenas y miles.
Sub Main()
Dim numero, centena, decena, mil, unidad As Integer
Console.WriteLine("ingrese el numero de cuatro cifras")
numero = Console.ReadLine()
Console.WriteLine("cantidad en unidades")
unidad = (numero - ((numero \ 10) * 10))
Console.WriteLine(unidad)
Console.WriteLine("cantidad en decenas")
decena = (numero \ 10) Mod 10
Console.WriteLine(decena)
Console.WriteLine("cantidad en centenas")
centena = (numero \ 100) Mod 10
Console.WriteLine(centena)
Console.WriteLine("cantidad en miles")
mil = numero \ 1000
Console.WriteLine(mil)
Console.ReadLine()
End Sub
Comentarios
Publicar un comentario