Programación, C#, C Sharp, Visual Basic, .net, Análisis y diseño de sistemas.

Cierra esta ventana si quieres conectarte como invitado. Registrarte sí quieres opinar y ver todos los enlaces al curso..
Programación, C#, C Sharp, Visual Basic, .net, Análisis y diseño de sistemas.

Foro de intercambiar de ideas con interesados en el tema.

Últimos temas

» Ayuda con este programa
4/7/2013, 12:32 am por hcovenas

» Pasar datos de dos arraylist a otro arraylist
10/7/2012, 8:35 pm por hcovenas

» Aprende todo sobre C++
24/4/2012, 9:28 pm por hcovenas

» Instalación de Linux en Windows VM
20/4/2012, 7:46 pm por hcovenas

» 5) Transacciones
15/4/2012, 8:21 pm por hcovenas

» 4) Primer examen de Unidad
9/4/2012, 3:04 pm por hcovenas

» 3) DataReader
2/4/2012, 2:38 pm por hcovenas

» Oledbcommand
26/3/2012, 12:28 pm por hcovenas

» 2) El Objeto Comando
22/3/2012, 3:23 pm por hcovenas

Conectarse

Recuperar mi contraseña

¿Quién está en línea?

En total hay 2 usuarios en línea: 0 Registrados, 0 Ocultos y 2 Invitados

Ninguno


[ Ver toda la lista ]


La mayor cantidad de usuarios en línea fue 11 el 6/6/2014, 12:16 am.


    Examen final

    Comparte
    avatar
    hcovenas
    Admin

    Mensajes : 227
    Fecha de inscripción : 29/10/2010
    Edad : 27
    Localización : Chimbote

    Examen final

    Mensaje por hcovenas el 23/12/2011, 2:41 pm

    No olvides de estar conectado para ver enlace!!!



    Basketball Basketball Basketball

    Ingrese aquí para ver el tema

    Basketball Basketball Basketball

    avatar
    invitado

    Mensajes : 11
    Fecha de inscripción : 07/12/2010
    Edad : 43
    Localización : Piura

    Re: Examen final

    Mensaje por invitado el 11/1/2012, 5:02 pm

    [color=blue]End Module



    Ejercicio Numero 2
    Module Module2

    Sub main()
    Dim tipo As Char

    Dim cantidad As Integer
    Dim precio As Double
    Dim precion As Double
    Dim preciototal As Double
    Dim num As Integer
    Dim adultos As Integer
    Dim preciod As Double
    Dim menores As Integer
    Dim desayuno As String
    Dim ingresototal As Double


    Console.WriteLine("ingrese cantidad de adulto hospedados")
    num = Console.ReadLine()

    Console.WriteLine(" indique cuantos menores de 10 años se hospedaron")
    menores = Console.ReadLine()



    Console.WriteLine(" ingrese el tipo de habitacion ")
    tipo = Console.ReadLine()
    Console.WriteLine(" ingrese la cantidad de noches hospedadas")
    cantidad = Console.ReadLine()

    If tipo = "a" Then
    precio = cantidad * 40


    ElseIf tipo = "b" Then
    precio = cantidad * 100


    ElseIf tipo = "c" Then
    precio = cantidad * 200
    End If


    If menores > 0 And tipo = "a" Then

    precion = (40 / 2)
    ElseIf menores > 0 And tipo = "b" Then
    precion = (100 / 2)
    ElseIf menores > 0 And tipo = "c" Then
    precion = (200 / 2)
    End If




    preciototal = precion + precio

    Console.WriteLine("ingrese si desearon desayunos")
    desayuno = Console.ReadLine()

    If desayuno = "si" Then

    preciod = 6 * cantidad * (num + menores)
    End If


    ingresototal = preciototal + preciod


    Console.WriteLine(" la cantidad de personas que se hospedaron es:" & num)
    Console.WriteLine(" se hospedaron:" & num & "adultos")
    Console.WriteLine("se hospedo :" & menores & "menor de 10 años ")
    Console.WriteLine(" se sirvieron desayuno:" & desayuno & "y su precio es de" & preciod)
    Console.WriteLine(" el ingreso total cobrado es:" & ingresototal)
    Console.ReadKey()
    End Sub
    End Module


    Alumno : Pineda Melendez Gustavo I - B
    avatar
    invitado

    Mensajes : 11
    Fecha de inscripción : 07/12/2010
    Edad : 43
    Localización : Piura

    Re: Examen final

    Mensaje por invitado el 11/1/2012, 5:05 pm

    Ejercicio numero 1


    Sub Main()


    Dim nombre As String
    Dim sueldototal As Double
    Dim sueldobasico As Double
    Dim sueldohorasext As Integer
    Dim horasextras As Integer
    Dim turno As Char
    Dim renta As Double
    Dim fonavi As Double
    Dim afp As Double
    Dim ingreso As Double
    Dim egreso As Double

    Console.WriteLine("ingrese nombre completo del trabajador")
    nombre = Console.ReadLine()

    Console.WriteLine("ingrese sueldo del trabajador")
    sueldobasico = Console.ReadLine()

    Console.WriteLine("ingrese horas extras del trabajador")
    horasextras = Console.ReadLine()

    Console.WriteLine("ingrese d para diurno o n para nocturno")
    turno = Console.ReadLine()



    If turno = "d" Or turno = "D" Then
    sueldohorasext = 10

    ElseIf turno = "n" Or turno = "N" Then
    sueldohorasext = 15
    End If

    renta = sueldobasico * 0.1
    fonavi = sueldobasico * 0.07
    afp = sueldobasico * 0.03

    ingreso = sueldobasico + (horasextras * sueldohorasext)
    egreso = renta + fonavi + afp
    sueldototal = ingreso - egreso
    Console.WriteLine("el sueldo basico es: " & sueldobasico)
    Console.WriteLine("el fonavi es: " & fonavi)
    Console.WriteLine("el afp es: " & afp)
    Console.WriteLine("el sueldo total es: " & sueldototal)

    console.readkey()



    ejercicio numero 2


    Module Module2

    Sub main()
    Dim tipo As Char

    Dim cantidad As Integer
    Dim precio As Double
    Dim precion As Double
    Dim preciototal As Double
    Dim num As Integer
    Dim adultos As Integer
    Dim preciod As Double
    Dim menores As Integer
    Dim desayuno As String
    Dim ingresototal As Double


    Console.WriteLine("ingrese cantidad de adulto hospedados")
    num = Console.ReadLine()

    Console.WriteLine(" indique cuantos menores de 10 años se hospedaron")
    menores = Console.ReadLine()



    Console.WriteLine(" ingrese el tipo de habitacion ")
    tipo = Console.ReadLine()
    Console.WriteLine(" ingrese la cantidad de noches hospedadas")
    cantidad = Console.ReadLine()

    If tipo = "a" Then
    precio = cantidad * 40


    ElseIf tipo = "b" Then
    precio = cantidad * 100


    ElseIf tipo = "c" Then
    precio = cantidad * 200
    End If


    If menores > 0 And tipo = "a" Then

    precion = (40 / 2)
    ElseIf menores > 0 And tipo = "b" Then
    precion = (100 / 2)
    ElseIf menores > 0 And tipo = "c" Then
    precion = (200 / 2)
    End If




    preciototal = precion + precio

    Console.WriteLine("ingrese si desearon desayunos")
    desayuno = Console.ReadLine()

    If desayuno = "si" Then

    preciod = 6 * cantidad * (num + menores)
    End If


    ingresototal = preciototal + preciod


    Console.WriteLine(" la cantidad de personas que se hospedaron es:" & num)
    Console.WriteLine(" se hospedaron:" & num & "adultos")
    Console.WriteLine("se hospedo :" & menores & "menor de 10 años ")
    Console.WriteLine(" se sirvieron desayuno:" & desayuno & "y su precio es de" & preciod)
    Console.WriteLine(" el ingreso total cobrado es:" & ingresototal)
    Console.ReadKey()
    End Sub
    End Module


    Alumna : Lucero De La Cruz Velasquez I - B
    avatar
    invitado

    Mensajes : 11
    Fecha de inscripción : 07/12/2010
    Edad : 43
    Localización : Piura

    Re: Examen final

    Mensaje por invitado el 11/1/2012, 5:06 pm

    Ejercicio numero 1


    Sub Main()


    Dim nombre As String
    Dim sueldototal As Double
    Dim sueldobasico As Double
    Dim sueldohorasext As Integer
    Dim horasextras As Integer
    Dim turno As Char
    Dim renta As Double
    Dim fonavi As Double
    Dim afp As Double
    Dim ingreso As Double
    Dim egreso As Double

    Console.WriteLine("ingrese nombre completo del trabajador")
    nombre = Console.ReadLine()

    Console.WriteLine("ingrese sueldo del trabajador")
    sueldobasico = Console.ReadLine()

    Console.WriteLine("ingrese horas extras del trabajador")
    horasextras = Console.ReadLine()

    Console.WriteLine("ingrese d para diurno o n para nocturno")
    turno = Console.ReadLine()



    If turno = "d" Or turno = "D" Then
    sueldohorasext = 10

    ElseIf turno = "n" Or turno = "N" Then
    sueldohorasext = 15
    End If

    renta = sueldobasico * 0.1
    fonavi = sueldobasico * 0.07
    afp = sueldobasico * 0.03

    ingreso = sueldobasico + (horasextras * sueldohorasext)
    egreso = renta + fonavi + afp
    sueldototal = ingreso - egreso
    Console.WriteLine("el sueldo basico es: " & sueldobasico)
    Console.WriteLine("el fonavi es: " & fonavi)
    Console.WriteLine("el afp es: " & afp)
    Console.WriteLine("el sueldo total es: " & sueldototal)

    console.readkey()



    ejercicio numero 2


    Module Module2

    Sub main()
    Dim tipo As Char

    Dim cantidad As Integer
    Dim precio As Double
    Dim precion As Double
    Dim preciototal As Double
    Dim num As Integer
    Dim adultos As Integer
    Dim preciod As Double
    Dim menores As Integer
    Dim desayuno As String
    Dim ingresototal As Double


    Console.WriteLine("ingrese cantidad de adulto hospedados")
    num = Console.ReadLine()

    Console.WriteLine(" indique cuantos menores de 10 años se hospedaron")
    menores = Console.ReadLine()



    Console.WriteLine(" ingrese el tipo de habitacion ")
    tipo = Console.ReadLine()
    Console.WriteLine(" ingrese la cantidad de noches hospedadas")
    cantidad = Console.ReadLine()

    If tipo = "a" Then
    precio = cantidad * 40


    ElseIf tipo = "b" Then
    precio = cantidad * 100


    ElseIf tipo = "c" Then
    precio = cantidad * 200
    End If


    If menores > 0 And tipo = "a" Then

    precion = (40 / 2)
    ElseIf menores > 0 And tipo = "b" Then
    precion = (100 / 2)
    ElseIf menores > 0 And tipo = "c" Then
    precion = (200 / 2)
    End If




    preciototal = precion + precio

    Console.WriteLine("ingrese si desearon desayunos")
    desayuno = Console.ReadLine()

    If desayuno = "si" Then

    preciod = 6 * cantidad * (num + menores)
    End If


    ingresototal = preciototal + preciod


    Console.WriteLine(" la cantidad de personas que se hospedaron es:" & num)
    Console.WriteLine(" se hospedaron:" & num & "adultos")
    Console.WriteLine("se hospedo :" & menores & "menor de 10 años ")
    Console.WriteLine(" se sirvieron desayuno:" & desayuno & "y su precio es de" & preciod)
    Console.WriteLine(" el ingreso total cobrado es:" & ingresototal)
    Console.ReadKey()
    End Sub
    End Module


    Alumna : Rocio Pereda Castillo I - B
    avatar
    hcovenas
    Admin

    Mensajes : 227
    Fecha de inscripción : 29/10/2010
    Edad : 27
    Localización : Chimbote

    Re: Examen final

    Mensaje por hcovenas el 12/1/2012, 3:31 pm

    SOLICION A LA PREGUNTA 1
    Sub Main()

    ' sistema para el control de pagos
    ' para fabrica
    ' hecho por: hcovenas -- hcovenas@hotmail.com
    ' fecha: 12/01/2012

    Dim nombre As String
    Dim Basico As Double
    Dim Horas_extras As Integer
    Dim turno As Char
    Dim tarifa_hora_extra As Double
    Dim beneficio As Double
    Dim fonavi As Double
    Dim afp As Double
    Dim ingreso As Double
    Dim egreso As Double
    Dim sueldo_neto As Double



    Console.WriteLine("* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *")
    Console.WriteLine("C O N T R O L D E P A G O S - T R A B A J A D O R E S")
    Console.WriteLine()
    Console.WriteLine()

    Console.Write("INGRESE NOMBRE: ")
    nombre = Console.ReadLine()

    Console.Write("INGRESE SUELDO BASICO: ")

    Basico = Console.ReadLine()

    Console.Write("INGRESE HORAS EXTRAS(CERO SINO TIENE): ")
    Horas_extras = Console.ReadLine()

    If Horas_extras > 0 Then
    Do
    Console.Write("TURNO MAÑANA O NOCHE")
    Console.Write("INGRESE M O N : ")
    turno = Console.ReadLine()

    Select Case turno
    Case "M"
    tarifa_hora_extra = 10
    Case "m"
    tarifa_hora_extra = 10
    Case "N"
    tarifa_hora_extra = 15
    Case "n"
    tarifa_hora_extra = 15
    End Select
    Loop Until (turno = "m") Or (turno = "M") Or (turno = "N") Or (turno = "n")
    End If


    beneficio = Basico * 0.1
    fonavi = Basico * 0.07
    afp = Basico * 0.03


    ingreso = Basico + (Horas_extras * tarifa_hora_extra)
    egreso = beneficio + fonavi + afp

    sueldo_neto = ingreso - egreso

    Console.Clear()
    Console.WriteLine("* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *")
    Console.WriteLine("R E P O R T E S - T R A B A J A D O R E S")
    Console.WriteLine("- - - - - - - - - - - - - - - - - - -")
    Console.WriteLine("Empleado : " & nombre)
    Console.WriteLine("Suldo basico es : " & Basico)
    Console.WriteLine("- - - - - - - - - - - - - - - - - - -")
    If Horas_extras > 0 Then
    Console.WriteLine("Turno : " & turno)
    Console.WriteLine("Horas extras : " & tarifa_hora_extra)
    Console.WriteLine("- - - - - - - - - - - - - - - - - - -")
    Else
    Console.WriteLine("Horas extras : No tiene")
    Console.WriteLine("- - - - - - - - - - - - - - - - - - -")
    End If
    Console.WriteLine("- - - - - - - - - - - - - - - - - - -")
    Console.WriteLine("Renta : " & beneficio)
    Console.WriteLine("Fonabi : " & fonavi)
    Console.WriteLine("AFP : " & afp)
    Console.WriteLine("- - - - - - - - - - - - - - - - - - -")
    Console.WriteLine("Total Ingresos : " & ingreso)
    Console.WriteLine("Total egresos : " & egreso)
    Console.WriteLine("- - - - - - - - - - - - - - - - - - -")
    Console.WriteLine("Neto a pagar : " & sueldo_neto)
    Console.WriteLine("- - - - - - - - - - - - - - - - - - -")


    Console.ReadKey()
    End Sub

    Contenido patrocinado

    Re: Examen final

    Mensaje por Contenido patrocinado


      Fecha y hora actual: 23/2/2018, 8:10 am