VirtualITM: Ejemplos

1. Entrar por pantalla los datos de un vendedor: cedula, nombre, año de nacimiento, dirección, cuatro valores que representan 4 ventas que hizo en el día de hoy , salario básico mensual.

Al vendedor se le retiene el 4 % sobre el salario mensual.

El vendedor tiene derecho hoy a una comisión del 3% sobre su venta. Se pide:

Total de la venta, promedio de ventas , edad del vendedor, total comisión, el cuadrado del total de ventas, la raíz cuadrada de la primera venta, salario neto mensual.

Clase vendedor

Metodo Ppal()

texto ced,nom,dir

real anio_act=2015,anio_nac,edad,v1,v2,v3,v4,sal_bm,sal_nm,ret,tot_ven,prom,comi,cuadr,raiz

mostrar "Ingrese la cedula del vendedor: "

leer ced

mostrar "Ingrese el nombre del vendedor: "

leer nom

mostrar "Ingrese el anio de nacimiento del vendedor: "

leer anio_nac

mostrar "Ingrese la direccion del vendedor: "

leer dir

mostrar "Ingrese la primera venta: "

leer v1

mostrar "Ingrese la segunda venta: "

leer v2

mostrar "Ingrese la tercera venta: "

leer v3

mostrar "Ingrese la cuarta venta: "

leer v4

mostrar "Ingrese su salario basico mensual: "

leer sal_bm

tot_ven = v1+v2+v3+v4

ret = sal_bm*0.04

sal_nm = sal_bm-ret

comi = tot_ven*0.03

edad = anio_act-anio_nac

prom = (v1+v2+v3+v4)/4

cuadr = tot_ven*tot_ven

raiz = v1**0.5

mostrar "El total de las ventas es " ,tot_ven, "y su promedio de ventas es " ,prom, " su edad es " ,edad, " anios , el total de su comision es " ,comi," el cuadrado total de sus ventas es " ,cuadr," la raiz cuadrada de su primera venta es " ,raiz," y su salario neto mensual es " ,sal_nm

Fin Metodo

Fin Clase

2.Entrar por pantalla los datos de un empleado: código, nombre, horas trabajadas semanales, año de nacimiento, valor hora, la retención es del 7% del salario básico mensual, año de ingreso a la empresa. Se pide:

Mostrar el salario semanal, salario neto mensual, el 15 % del salario Básico mensual, cuántos años tiene y cuanto lleva en la empresa.

Clase empleado

Metodo Ppal()

texto cod,nom

entero anio_act=2015,anio_nac,anio_ing,edad,anti

real h,val_h,sal_se,sal_bm,sal_nm,ret,sal_bm15

mostrar "Ingrese el codigo del empleado: "

leer cod

mostrar "Ingrese el nombre del empleado: "

leer nom

mostrar "Ingrese el anio de nacimiento del empleado: "

leer anio_nac

mostrar "Digite el anio de ingreso a la empresa: "

leer anio_ing

mostrar "Ingrese las horas trabajadas en la semana: "

leer h

mostrar "Ingrese el valor de la hora: "

leer val_h

sal_se = h*val_h

sal_bm = sal_se*4

ret= sal_bm*0.07

sal_nm = sal_bm-ret

edad = anio_act-anio_nac

anti = anio_act-anio_ing

sal_bm15=sal_bm*0.15

mostrar "El salario semanal es " ,sal_se, " Su salario neto mensual es " ,sal_nm, " El 15% de su salario basico es " ,sal_bm15, " Tiene ",edad, "anios de edad Y lleva " ,anti, "anios vinculado a la empresa."

Fin Metodo

Fin Clase

3. La empresa huequillas procederá hacer el incremento de sus sueldos a sus trabajadores en base a los siguientes parámetros; si el sueldo actual es menor a 900000 $ tendrá un incremento del 18%, presentar el nuevo sueldo de un empleado.

Clase Incremento

Metodo Ppal()

real salario,nsalario,incre

texto nom

mostrar"Ingrese el nombre del empleado: "

leer nom

mostrar"Ingrese el salario devengado: "

leer salario

Si(salario<900000) Entonces

incre=salario*0.18

nsalario=salario+incre

mostrar"El empleado ",nom, "tiene un incremento de ",incre, "Y su nuevo salario es ",nsalario

Sino

mostrar"El empleado no tiene incremento"

Finsi

Fin Metodo

Fin Clase

4. Realizar un algoritmo que lea el nombre y las 3 notas de un estudiante. Se pide mostrar el nombre, su nota definitiva y un mensaje si gano o perdió, y si perdió un mensaje si puede o no habilitar. Nota: La escala de notas es de 0 a 5 se gana con 3 o más y si saca menos de 2.5 no puede habilitar.

Clase Promedio

Metodo Ppal()

texto nom

real n1,n2,n3,prom

mostrar"Ingrese el nombre del estudiante: "

leer nom

mostrar"Ingrese la primer nota: "

leer n1

mostrar"Ingrese la segunda nota: "

leer n2

mostrar"Ingrese la tercer nota: "

leer n3

prom = (n1+n2+n3)/3

Si(prom>3) Entonces

mostrar"Aprobo"

Sino

Si(prom<2,5) Entonces

mostrar"Reprobo"

Sino

mostrar"Habilita"

Finsi

Fin Metodo

Fin Clase

5. Entrar por pantalla 3 números enteros y diferentes, ordenarlos de menor a mayor y mostrarlos.

Clase MenorMayor

Metodo Ppal()

entero n1,n2,n3,mayor,menor,medio

mostrar"Ingrese el primer numero: "

leer n1

mostrar"Ingrese el segundo numero: "

leer n2

mostrar"Ingrese el tercer numero: "

leer n3

Si (n1<>n2)^(n1<>n3)^(n2<>n3) Entonces

Si(n1>n2)^(n1>n3) Entonces

mayor=n1

Sino

Si(n2>n1)^(n2>n3) Entonces

mayor=n2

Sino

mayor=n3

Finsi

Si(n1<n2)^(n1<n3) Entonces

menor=n1

Sino

Si(n2<n1)^(n2<n3) Entonces

menor=n2

Sino

menor=n3

Finsi

medio= (n1+n2+n3)-(mayor+menor)

mostrar"Los numeros de menor a mayor son: ",menor,medio,mayor

Sino

mostrar"Error ingrese numeros diferentes"

Finsi

Fin Metodo

Fin Clase

6. Un almacén de cadena en el cual venden 3 tipos de computadores con scanner.

1. Computador Acer = 1.400.000

2. Computador lenovo = 1.500.000

3. Computador Toshiba = 1.300.000

Estos tres tipos de computadores traen un sistema operativo básico Windows xp.

El almacén ofrece tres productos adicionales

1. Windows 8 =200.000

2. Impresora = 180.000

3. Mesa del computador = 100.000

Datos de entrada: nombre del cliente, último número de la cedula, tipo de computador, producto adicional, dirección, año de nacimiento.

Mostrar edad, valor total A PAGAR por el cliente, valor comisión del vendedor

1. Si el valor a pagar es superior a 1600.000 tendrá un descuento del 8 %

2. Si el último número de la cedula es múltiplo de 4 obtendrá un descuento del 5%

3. Si la edad es mayor de 40 años obtendrá un descuento del 3 %

4. Si el valor total es mayor a 1.500.000 EL VENDEDOR tendrá una comisión del 7 %

Clase Compra

Metodo Ppal()

texto nom,dir

real doc,tipo,padic,anio_nac,edad,desc,pago,anio_act,coms,total,descm,descedad

mostrar "Ingrese el anio actual: "

leer anio_act

mostrar "Ingrese el nombre del cliente: "

leer nom

mostrar "Ingrese el ultimo numero del documento del cliente: "

leer doc

mostrar "Ingrese el anio de nacimiento del cliente: "

leer anio_nac

mostrar "Ingrese la direccion del cliente: "

Leer dir

mostrar "Seleccione el tipo de producto que desea comprar: "

mostrar "1.Computador Acer $ 1400000 "

mostrar "2.Computador Lenovo $ 1500000 "

mostrar "3.Computador Toshiba $ 1300000 "

Leer tipo

mostrar "Seleccione el tipo de adicion que desea comprar: "

mostrar "1.Windows 8 $ 200000 "

mostrar "2.Impresora $ 180000 "

mostrar "3.Mesa de computador $ 100000 "

mostrar "4.Si no desea adicionar nada "

Leer padic

edad=anio_act-anio_nac

Si (tipo=1)^(padic=1) Entonces

total=1400000+200000