miércoles, 10 de julio de 2013

EJERCICIOS EN CONSOLA PARTE 4



1.Programa en el que el ordenador lanza 50 veces un dado y cuenta cuantas veces sale el nº 1.

static void Main(string[] args)
 {

int contador =0; int dado=0;
Random numero = new Random();
Console.Clear();
for (int t = 0; t<=50; t=t + 1)
 {
 dado = numero.Next(1, 7);
if (dado == 1)
 {
 contador = contador + 1;
Console.ForegroundColor = ConsoleColor.Red;
 }
else Console.ForegroundColor = ConsoleColor.Gray;
Console.Write(" {0}", dado);
 }
Console.WriteLine("-");
Console.WriteLine("Ha salido el número1 {0} veces",contador);



2.Programa que muestra 15 líneas como estas: 1 12 123 1234 
 1 
 12 
 123 .... 

 static void Main(string[] args)
 {
int i, j;
for (i = 1; i <= 15; i++) // 15 lineas
 {
for (j = 1; j <= i; j++) // números a cada línea
Console.Write(" - {0}", j);
Console.WriteLine(" ") ;
 }

3.Programa que señala si es múltiplo del número 5 

 class Exercici4
 {
static void Main(string[] args)
 {
int num = 1;
bool respuesta;
while (num <= 50)
 {
Console.Write(" - {0}", num);
 respuesta = multiplo5(num);
if (respuesta) Console.WriteLine(" Es múltiplo de 5");
else Console.WriteLine(" No es múltiplo de 5");
 num++;
 }
 }
public static bool multiplo5 (int n)
 {
if((n % 5) !=0) return false;
else return true;
     }
 }

Publicado por en No hay comentarios:

martes, 9 de julio de 2013

EJERCICIOS EN CONSOLA.NET PARTE3


21.determinar si un numero es positivo o negativo a traves de un mensaje

Module Module32
    Sub main()
        Dim num As Integer
        Dim resultado As String
        Console.WriteLine("ingrese numero:")
        num = Console.ReadLine()
        If num > 0 Then
            resultado = "positivo"
        Else
            resultado = "cero"
            If num < 0 Then
                resultado = "negativo"
            Else : resultado = "es cero"
            End If
        End If
        Console.WriteLine("el numero ingresado es:" & resultado)
        Console.ReadLine()
    End Sub
End Module



22.implementar una aplicacion que permita digitar un lenguaje de programación….

Module Module33
    Sub main()
        Console.WriteLine("digite su lenguaje favorito:")
        Dim lenguaje As String
        lenguaje = Console.ReadLine()
        lenguaje = lenguaje.ToUpper
        If lenguaje = "visual basic" Or lenguaje = "visual basic.net" Then
            Console.Write(lenguaje & "es otro lenguaje")

        End If
        Console.ReadLine()
    End Sub
End Module



23.En una playa de estacionamiento cobran S/. 2,5 por hora o fracción. Diseñar una aplicación que determine cuanto debe pagar un cliente por el estacionamiento de su vehículo, conociendo el tiempo de estacionamiento en horas y fracción.

Module Module34
    Sub main()
        'modulo35
        Dim h, m, m1, resul, tiempo As Integer
        Console.WriteLine("ingrese el tiempo en horas: ")
        h = Console.ReadLine()
        Console.WriteLine("ingrese cntidad en minutos: ")
        m = Console.ReadLine()
        If m > 0 And m < 60 Then
            m1 = 2.5
        Else
            m = 0
            Console.WriteLine("ingrese minutos entre 1 y 60 ")
            If m > 0 And m < 60 Then
                m1 = 2.5
            End If
        End If
        resul = (h * 2.5) + m1
        Console.WriteLine("el pago a realizar es: " & " s/. " & resul & " nuevos soles ")
        Console.ReadLine()
        Console.Clear()
        main()
    End Sub

End Module



24.Una companiña dedicada al alquiler de automoviles cobra un monto fijo de 200.00 para los primeros 300 km, cobra un adicional de S/. 5.00 por cada km en exceso sobre los 300 km.Para mas de 1000 km cobra S/ 3.00 por cada km en exceso sobre los 1000 km.Determinar el mont a pagar e impuesto.

Module Module35
    Sub main()
        Dim monto = 200
        Dim km, km1, km2, igv, exce, exce1, monto1 As Integer
        Console.WriteLine("Ingrese kilometros:")
        km = Console.ReadLine()
        If km > 0 And km < 300 Then
            Console.WriteLine("el monto a pagar es: " & monto)
            igv = monto * 0.19

        ElseIf km > 300 And km <= 1000 Then
            Console.WriteLine("el monto fijo por los primeros 300 km es:" & monto)
            km1 = km - 300
            Console.WriteLine("los km excedidos son:" & km1)
            exce = (km1 * 5)
            Console.WriteLine("el exceso delos kms importa:" & exce)
            monto1 = monto + (km1 * 5)
            Console.WriteLine("el monto a pagar es:" & monto1)
        End If
        Console.ReadLine()
        Console.Clear()
        main()

    End Sub

End Module



25.Una ferreteria desea tener un programa que le permita seleccionar cualquiera de las opcines, según tabla en tu hoja de consola 39  Calcular el total a pagar por cada articulo según aparatos sanitarios o materiales de construccion.

Module Module36
    Sub main()
        'modulo39
        Dim opcion As Integer
        opcion = 0
        Do While opcion < 3
            Console.WriteLine("DISTRIBUCION")
            Console.WriteLine("[1] aparatos sanitarios")
            Console.WriteLine("[2] materiales de construccion")
            Console.WriteLine("[3] terminar")
            Console.Write("elija la opcion de la ferreteria: ")
            opcion = Console.ReadLine()
            Select Case opcion
                Case Is = 1
                    aparatos()
                Case Is = 2
                    materiales()

            End Select
        Loop
    End Sub
Publicado por en No hay comentarios:

EJERCICIOS EN CONSOLA.NET PARTE2



1.Crear una aplicación que permita ingresar dos valores y que visualice dos resultados con el operador division y division entera

Module Module11
    Sub main()
        Dim n1, n2, division As Double
        Dim divisionentera As Integer
        Console.WriteLine("ingrese el n1:")
        n1 = Console.ReadLine()
        Console.WriteLine("ingrese el n2:")
        n2 = Console.ReadLine()
        division = n1 / n2
        divisionentera = n1 / n2
        Console.WriteLine("la division es :" & division)
        Console.WriteLine("la division entera es :" & divisionentera)
        Console.ReadLine()
        Console.Clear()
        main()

    End Sub

End Module




2.Diseñar 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)

Module Module13
    Sub main()
        Dim base, altura, area, perimetro As Double
        Console.WriteLine("ingrese la base:")
        base = Console.ReadLine()
        Console.WriteLine("ingrese la altura:")
        altura = Console.ReadLine()
        area = base * altura
        perimetro = 2 * (base + altura)
        Console.WriteLine("resultado de area es:" & area)
        Console.WriteLine("resultado de perimetro es:" & perimetro)
        Console.ReadLine()
        Console.Clear()
        main()
 End Sub
End Module



3.Diseñar un programa que permita convertir una longitud dada en metros a sus equivalentes en centímetros, pies, pulgadas y yardas. Se debe considerar:
1metro=100 centímetros
1pulgada=2.54 centímetros
1pie=12 pulgadas
1yarda=3pies

Module Module14
    Sub main()
        Dim m, mc, mpul, mpie, myarda As Double
        Console.WriteLine("ingrese los metros:")
        m = Console.ReadLine()
        mc= m * 100
        mpul = 2.54 / 100
        mpie = 12 / 100
        myarda = 3 / 100
        Console.WriteLine("los metros a centimetros son:" & mcm)
        Console.WriteLine("los metros a pulgadas son:" & mpul)
        Console.WriteLine("los metros a pie son:" & mpie)
        Console.WriteLine("los metros a yarda son:" & myarda)
        Console.ReadLine()
        Console.Clear()
        main()
End Sub
End Module



4.En una competencia atlética de velocidad, el tiempo se mide en minuto, segundo y centésimas de Segundo y el espacio recorrido se mide en metros. Diseñar una aplicación para determinar la velocidad del atleta en Km. /hr.

Module Module15
    Sub main()
        Dim metros, m, seg, vam, vas, tm, tseg As Double
        Console.WriteLine("ingrese los metros:")
        metros = Console.ReadLine()
        Console.WriteLine("ingrese los minutos:")
        m = Console.ReadLine()
        Console.WriteLine("ingrese los segundos:")
        seg = Console.ReadLine()
        tm = m * 60
        tseg = seg * 3600
        Console.WriteLine(" el tiempo en minutos a horas es:" & tm)
        Console.WriteLine("el tiempo en segundos a horas es:" & tseg)
        vam = metros * tm
        vas = metros * tseg
        Console.WriteLine(" la velocidad del atleta en minutos es:" & vam & "km / hrs")
        Console.WriteLine(" la velocidad del atleta en segundos es:" & vas & "km / hrs")
        Console.ReadLine()
        main()
End Sub
End Module



5.Una institucion benefice peruana ha recibido tres donaciones en sole,dolares y marcos. La donacion sera repartida en tres rubros:
60% para la implementacion de un centro de salud
30% para un comedor de niños
Y el resto para gastos administrativos
Determine el monto que le corresponde a cada rubro, se considera que:
1 dólar= 3.52 soles
1dolar= 2.08 marcos
1 dólar= 1,07 euros

Module Module16
    Sub main()
        Dim euro, dolar, marco As Double
        Dim t_euro, t_dolar, t_marco, t_soles As Integer
        Dim ics, cn, ga As Double
        Console.WriteLine("ingrese la cantidad en euros:")
        euro = Console.ReadLine()
        Console.WriteLine("ingrese la cantidad en dolar:")
        dolar = Console.ReadLine()
        Console.WriteLine("ingrese la cantidad en marco:")
        marco = Console.ReadLine()
        t_euro = ((euro * 1.07) * 3.52)
        t_dolar = (dolar * 3.52)
        t_marco = ((marco / 2.08) * 3.52)
        Console.WriteLine("la cantidad en euro a soles es de:" & t_euro)
        Console.WriteLine("la cantidad en dolar a soles es de:" & t_dolar)
        Console.WriteLine("la cantidad en marco a soles es de:" & t_marco)
        Console.ReadLine()
        ics = t_soles * 0.6
        cn = t_soles * 0.3
        ga = t_soles * 0.1
        Console.WriteLine("cantidad destinada a los centro de salud:" & ics)
        Console.WriteLine("cantidad destinada a los comedores de niños:" & cn)
        Console.WriteLine("cantidad destinada a gastos administrativos:" & ga)
        Console.ReadLine()
        main()
    End Sub
End Module


6.Diseñar una aplicación que permita ingresar un numero de cuatro cifras y luego se debe visualizar las unidades, decenas y miles.


Module Module17
    Sub main()
        Dim num, cent, dcn, mil, und As Integer
        Console.WriteLine("ingrese un numero de cuatro cifras:")
        num = Console.ReadLine()
        und = (num - ((num \ 10) * 10))
        dcn = num \ 10
        cent = dcn \ 10
        mil = cent \ 10
        Console.WriteLine("la cantidad en unidades:" & und)
        Console.WriteLine("la cantidad en decenas:" & dcn)
        Console.WriteLine("la cantidad en miles:" & mil)
        Console.ReadLine()
        main()
    End Sub
End Module



7.Diseñar un programa que permita leer la hora actual del sistema, que permita ingresar la hora, minuto y segundo manualmente.
Luego debe visualizar cuantos segundos, minutos y hora faltan para concluir el día

Module Module18
    Sub main()
        Dim h, m, s, hrest, mirest, serest As Double
        Console.WriteLine("ingrese horas:")
        h = Console.ReadLine()
        Console.WriteLine("ingrese los minutos:")
        m = Console.ReadLine()
        Console.WriteLine("ingrese los segundos:")
        s = Console.ReadLine()
        hrest = 24 - h
        mirest = (24 * 60) - m
        serest = (24 * 3600) - s
        Console.WriteLine(" le faltan en horas para concluir el dia :" & hrest)
        Console.WriteLine(" le faltan en minutos para concluir el dia:" & mirest)
        Console.WriteLine(" le faltan en segundos para concluir el dia :" & serest)
        Console.ReadLine()
        main()
End Sub
End Module



8.El sueldo neto de un trabajador se calcula con la suma del sueldo basico mas 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.

Module Module19
    Sub main()
        Dim Sn, Ht, Ch, Sb, Mv, costv As Double
        Dim nv As Integer
        Console.WriteLine("ingrese horas trabajadas:")
        Ht = Console.ReadLine()
        Console.WriteLine("ingrese costo por hora horas:")
        Ch = Console.ReadLine()
        Sb = Ht * Ch
        Console.WriteLine(" el sueldo basico es:" & Sb)
        Console.WriteLine(" ingrese el numero de ventas:")
        nv = Console.ReadLine()
        Console.WriteLine("ingrese el costo de ventas:")
        costv = Console.ReadLine()
        Mv = (nv * costv) * 0.12
        Console.WriteLine(" el monto de ventas es:" & Mv)
        Sn = Sb + Mv
        Console.WriteLine(" el sueldo neto es:" & Sn)
        Console.ReadLine()
        main()
    End Sub
End Module



9.Diseña una aplicación que permita determiner el porcentaje de varones y damas que se encuentran en un salon de clases

Module Module20
    Sub main()
        Dim nm, nv, ta As Integer
        Dim pm, pv As Double
        Console.WriteLine("ingrese numero de mujeres:")
        nm = Console.ReadLine()
        Console.WriteLine("ingrese numero de varones:")
        nv = Console.ReadLine()
        ta = nm + nv
        pm = (nm * 100) / ta
        pv = (100 - pm)
        Console.WriteLine("el total de alumnos es:" & ta)
        Console.WriteLine("el % de mujeres es:" & pm)
        Console.WriteLine("el % de varones es:" & pv)
        Console.ReadLine()
    End Sub
End Module



10.En paises de habla inglesa es comun dar la estatura de una persona en pies y pulgadas. Asi, la estatura de una persona podria ser de 3  2”(3 pies y 2 pulgadas). Diseñar una aplicación que permita determinar la estatura de una persona en metros, conociendo su estatura en formato ingles. Considere:
1pie= 12 pulgadas
1 pulgada= 2,54
1 metro= 100cm

Module Module21
    Sub main()
        Dim estatura, pulgada, pie As Single
        Console.WriteLine("ingrese la altura en pies de una persona:")
        pie = Console.ReadLine()
        Console.WriteLine("ingrese la altura en pulgadas de una persona:")
        pulgada = Console.ReadLine()
        estatura = ((pie * 12 + pulgada) * 2.54) / 100
        Console.WriteLine("su estatura en metros es:" & estatura)
        Console.ReadLine()

    End Sub
End Module



11.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:
1kb=1024 bytes
1MB= 1024KB
1GB=1024 MB

Module Module22
    Sub main()
        Dim MB, KB, Bytes, GB As Integer
        Console.WriteLine("ingrese los  GB:")
        GB = Console.ReadLine()
        Bytes = 1024 * (1024 * 1024)
        MB = 1024 * GB
        KB = 1024 * GB
        Console.WriteLine("la capacidad del disco en BYtes es:" & Bytes)
        Console.WriteLine("la capacidad del disco en en MB es:" & MB)
        Console.WriteLine("la capacidad del disco en KB es:" & KB)
        Console.ReadLine()
        Console.Clear()
        main()

    End Sub
End Module



12.Diseñar una aplicación que permita ingresar dos numeros, luego se debe visualizar como respuesta la operación con las cuatro operaciones basicas

Module Module23
    Sub main()
        Dim N1, N2, suma, resta, multiplicacion, division As Double
        Console.WriteLine("ingrese el numero 1:")
        N1 = Console.ReadLine()
        Console.WriteLine("ingrese el numero 2:")
        N2 = Console.ReadLine()
        suma = N1 + N2
        resta = N1 - N2
        multiplicacion = N1 * N2
        division = N1 / N2
        Console.WriteLine("la suma es:" & suma)
        Console.WriteLine("la resta es:" & resta)
        Console.WriteLine("la multiplicacion es:" & multiplicacion)
        Console.WriteLine("la division es:" & division)
        Console.ReadLine()
        Console.Clear()
        main()

    End Sub
End Module



13.Diseñar un programa en consola que permita insertar dos numeros y una de las opciones: sumar(1) o restar(2)

Module Module24
    Sub main()
        Dim N1, N2, opcion, resul As Double
        Console.WriteLine("ingrese el numero 1:")
        N1 = Console.ReadLine()
        Console.WriteLine("ingrese el numero 2:")
        N2 = Console.ReadLine()
        Console.WriteLine("la opcion es :")
        opcion = Console.ReadLine()
        Select Case (opcion)
            Case 1
                resul = N1 + N2

            Case 2
                resul = N1 - N2
        End Select
        Console.WriteLine(" el resultado es:" & resul)
        Console.ReadLine()
        Console.Clear()
        main()

    End Sub
End Module



14.Diseñar un programa que me permita ingresar un monto en soles. Si la cantidad ingresada es igual o superior a los cien nuevos soles, entonces tendra un descuento del 10% o de lo contrario solo el 25%. Se debe visualizar el monto de descuento y el pago a realizar

Module Module25
    Sub main()
        Dim ms, td, des As Double
        Console.WriteLine("ingrese monto en soles:")
        ms = Console.ReadLine()
        If (ms >= 100) Then
            des = (ms * 0.1)
            td = ms - des
            Console.WriteLine("el descuento es:" & des)
            Console.WriteLine("el pago a realizar es:" & td)
        ElseIf (ms < 100) Then
            des = (ms * 0.02)
            td = ms - des
            Console.WriteLine("el descuento es:" & des)
            Console.WriteLine("el pago a realizar es:" & td)
        End If
        Console.ReadLine()
    End Sub
End Module



15.Diseñar una aplicación que me permita ingresar un numero entre uno y siete, este numero debe representar los dias de la semana. Se dede visualizar el dia señalado.

Module Module26
    Sub main()
        Dim Num As Integer
        Dim mensaje As String
        Console.WriteLine("ingrese un Numero:")
        Num = Console.ReadLine()
        Select Case (Num)
            Case 1
                mensaje = "lunes"
            Case 2
                mensaje = "martes"
            Case 3
                mensaje = "miercoles"
            Case 4
                mensaje = "jueves"
            Case 5
                mensaje = "viernes"
            Case 6
                mensaje = "sabado"
            Case 7
                mensaje = "domingo"
            Case Else
                mensaje = "No hay otro dia"
        End Select
        Console.WriteLine("el dia es:" & mensaje)
        Console.ReadLine()
        Console.Clear()
        main()


16.Una empresa desea pagar a sus empleados todos los beneficios que se requieren, para lo cual desean saber cuanto le van a pagar a cada uno sabiendo que recibe beneficio por su instruccion de studio(secundaria 5%, tecnica 10% y profesional 20%); ademas si es casado recibira un adicional del 5% y si es soltero el3%.

Module Module27
    Sub main()
        Dim suel As Double
        Dim i_e, e_c As String
        Dim p_i_e, p_e_c, pago, p_t As Double
        Console.WriteLine("ingrese sueldo:")
        suel = Console.ReadLine()
        Console.WriteLine("ingrese la instruccion:")
        i_e = Console.ReadLine()
        Console.WriteLine("ingrese su estado civil:")
        e_c = Console.ReadLine()
        If i_e = "secundaria" Then
            p_i_e = suel * 0.05
        Else
            If i_e = "profesional" Then
                p_i_e = suel * 0.2
            End If
        End If
        Console.WriteLine("el incremento por instrucciones:" & p_i_e)
        If e_c = "casado" Then
            p_e_c = suel * 0.03
        End If
        Console.WriteLine("el incremento del estado civil es:" & p_e_c)
        pago = suel + p_e_c + p_i_e
        Console.WriteLine("el pago es de:" & pago)
        If pago >= 700 Then
            p_t = (pago * 0.1 + pago)
        Else
            p_t = pago
        End If
        Console.WriteLine("el pago total de un empleado es de:" & p_t)
        Console.ReadLine()
    End Sub
End Module


17.El instituto JHALEBET esta haciendo un descuento del 10,25 y 50% por la inscripción de dos,cuatro o seis a mas hermanos respectivamente. Si solo se inscribeuna persona no existe descuento.

Module Module28
    Sub main()
        Dim nombre As String
        Dim nh As Integer
        Dim desc, m, mp As Double
        Console.WriteLine("ingrese apellido y nombre:")
        nombre = Console.ReadLine()
        Console.WriteLine("ingrese cantidad de hijos:")
        nh = Console.ReadLine()
        Console.WriteLine("ingresar monto:")
        m = Console.ReadLine()
        If nh = 0 Then
            desc = 0
        ElseIf nh = 2 Then
            desc = m * 1
        ElseIf nh = 4 Then
            desc = m * 0.25
        ElseIf nh = 6 Then
            desc = m * 0.5
        End If
        mp = ((nh * m) + m) - desc
        Console.WriteLine("el descuento es:" & desc)
        Console.WriteLine("el monto a pagar es:" & mp)
        Console.ReadLine()

    End Sub
End Module


18.Crear un programa que permita ingresar el apellido, nombre y tres notas de un alumno. Se debe visualizar el promedio y su condicion.

Module Module29
    Sub MAIN()
        Dim Apellido, Nombre, promedio As String
        Dim not1, not2, not3 As Double
        Console.WriteLine("ingrese el apellido:")
        Apellido = Console.ReadLine()
        Console.WriteLine("ingrese el nombre:")
        Nombre = Console.ReadLine()
        Console.WriteLine("ingrese la nota1:")
        not1 = Console.ReadLine()
        Console.WriteLine("ingrese la nota2:")
        not2 = Console.ReadLine()
        Console.WriteLine("ingrese la nota3:")
        not3 = Console.ReadLine()
        promedio = (not1 + not2 + not3) / 3
        Console.WriteLine("el promedio es:" & promedio)
        If (promedio >= 11) And (promedio <= 20) Then
            Console.WriteLine("Aprobado")
        End If
        If (promedio >= 0) And (promedio <= 10) Then
            Console.WriteLine("desaprobado")
        End If

            Console.ReadLine()
            Console.Clear()
            MAIN()

 19.Crear un programa que permita el apellido,nombre,categoria y sueldo basico de sus trabajadores.hallar el monto de pago segun las categories….

Module Module30
    Sub main()
        Dim sB, Mp As Double
        Dim Apellido, Nombre, categoria, mensaje As String
        Console.WriteLine("ingrese el Apellido:")
        Apellido = Console.ReadLine()
        Console.WriteLine("ingrese elNombre:")
        Nombre = Console.ReadLine()
        Console.WriteLine("ingrese el sueldo basico:")
        sB = Console.ReadLine()
        Console.WriteLine("ingrese la categoria:")
        categoria = Console.ReadLine()   
        Select Case (categoria)
            Case "A"
                mensaje = "obrero"
                Mp = sB + 0.05
            Case "B"
                mensaje = "empleado"
                Mp = sB + 0.1
            Case "C"
                mensaje = "gerente"
                Mp = sB + 0.15
            Case Else
                mensaje = "categoria no existente"
        End Select
        Console.WriteLine("su categoria es:" & mensaje)
        Console.WriteLine("su Monto apagar es:" & Mp)

        Console.ReadLine()
        Console.Clear()
        main()


20.Determinar si una persona es mayor o menor de edad,tambien su sexo de acuerdo a las leyes peruanas.

Module Module31
    Sub main()
        Dim nom As String
        Dim sexo, condicion As String
        Dim edad As Integer
        Console.WriteLine("ingrese apellido y nombre:")
        nom = Console.ReadLine()
        Console.WriteLine("ingrse sexo de la persona:")
        sexo = Console.ReadLine()
        Console.WriteLine("ingrese edad:")
        edad = Console.ReadLine()
        If sexo = "f" Then
            sexo = "mujer"
        Else
            sexo = "hombre"
        End If
        If edad >= 18 Then
            condicion = "mayor de edad"
        Else
            condicion = "menor de edads"
        End If
        Console.WriteLine(nom & "" & sexo & " y es " & condicion)
        Console.ReadLine()
    End Sub
End Module

Publicado por en 1 comentario:
Suscribirse a: Entradas (Atom)