Algoritmos

ALGORITMOS

Taller 02 marzo 2012.

Nombre: Nury Victoria Mahecha Sierra
Cod: 52787829
Grupo: 1

Tutor:
Jorge Eduardo Pérez García.

UNIVERSIDAD NACIONAL ABIERTA Y A DISTANCIA
UNAD
2012

Taller 02 marzo 2012.

1. CODENSA, desea contratar sus servicios para que elabore un algoritmo que le permita calcular el Total a Pagar de cada cliente, por consumo de energía eléctrica. Losdatos que deben ser leídos son los siguientes: Número de cuenta (3 dígitos), Estrato socioeconómico, tipo de servicio y cantidad de kilovatios consumidos. Los cálculos por concepto de energía eléctrica utilizada, que debe realizar el algoritmo, son: Valor por consumo, que depende de los kWh consumidos, de la siguiente manera: Si el consumo está entre 0 y 150 kWh inclusive, la tarifa de cobro es de$320.45 por kWh consumido. Si el consumo está entre 150 y 250 kWh, el cobro es de $450.75. Se cobrará $501.65 por cada kWh, si el consumo está entre 250 y 350 kWh inclusive. Si el consumo sobrepasa los 350 kWh, el cobro por kWh consumido es de $600.50. Como es bien sabido, todo recibo tiene un Cargo Fijo, para lo cual se estipuló que por cada estrato se cobra: $13550, Estrato1; para Estrato 2,$14280; $154850 para Estrato 3; para Estrato 4, $17090 y, $19895 para Estrato 5. La empresa otorga un subsidio dependiendo del uso que se le dé a la energía (Tipo de servicio). Así, si el tipo de servicio es 1 (Residencial), se otorga un descuento del 30% al total consumo (valor por consumo + cargo fijo). Si el tipo de servicio es 2 (Comercial), el descuento es del 27% del total consumo. Si el tipode servicio es 3 (Industrial), el descuento es del 18% del total consumo. Con base en esta información, el algoritmo debe mostrar el Total a Pagar por cada cliente.

Pseudocódigo:
Var: cuenta, estrato, tiposerv, kv, tf, D1,D2,D3
1. Inicio;
2. Escriba 'Ingrese su numero de cuenta, recuerde que debe ser de tres digitos';
3. leer: cuenta;
4. Escriba 'Ingrese su estrato recuerde que debe estarentre 1-5';
5. leer: estrato;
6. Escriba ngrese el Tipo de servicio prestado: 1-Residencial, 2-Comercial , 3-Industrial';
7. leer: tiposerv;
8. Escriba 'Ingrese los kilovatios consumidos';
9. leer: kv;
10. si: kv>0 and kv <=150
11. si_si: tf=kv*320.45
12. si_no: kv>150 and kv <=250;
13. si_si: tf=kv*450.75;
14. si_no: kv>250 and kv<=350;
15. si_si: tf=kv*501.65;16. si_no: kv>350;
17. si_si: tf=kv * 600.50;
18. fin_si;
19. si: estrato=1;
20. si_si: tf=tf+13550;
21. si_no: estrato=2;
22. si_si: tf=tf+14280;
23 si_no: estrato=3;
24. si_si: tf=tf+15485;
25. si_no: estrato=4;
26. si_si: tf=tf+17090;
27. si_no: estrato=5;
28. si_si: tf=tf+19895;
29. fin_si;
30. haga: D1=tf*30/100, D2=tf*27/100, D3= tf*18/100;
31. si: tiposerv=1;
32. si_si;tf-D1;
33. si: cuenta>999 or cuenta<100 or estrato>5 or tiposerv>3;
34. si_si: 'los valores ingresados no son validos';
35. si_no: ' EL VALOR A PAGAR PARA LA CUENTA: ',cuenta,' es de : $ ',tf;
36. fin_si;
37. fin;
38: si_no; tiposerv=2;
39. si_si: tf=tf-D2;
40. si: cuenta>999 or cuenta<100 or estrato>5 or tiposerv>3;
41. si_si: 'los valores ingresados noson validos';
42. si_no: ' EL VALOR A PAGAR PARA LA CUENTA: ',cuenta,' es de : $ ',tf;
43. fin_si;
44. fin;
45: si_no; tiposerv=3;
46. si_si: tf=tf-D3;
47. si: cuenta>999 or cuenta<100 or estrato>5 or tiposerv>3;
48. si_si: 'los valores ingresados no son validos';
49. si_no: ' EL VALOR A PAGAR PARA LA CUENTA: ',cuenta,' es de : $ ',tf;
50. fin_si;
51. fin.2. En una empresa hay 1500 empleados; usted, debe realizar un programa en Visual Basic que lea el código de un trabajador, el número de horas trabajadas y el valor de la hora y calcule su salario total bruto. Calcule el salario neto sabiendo que si el salario bruto es menor a 500000, hay un descuento de 10%, para salarios entre 500001 y 1000000, el descuento es de 15%, pare salarios entre 1000001...