Pseudocódigo XIII

Ejercicios Metodología de la Programación con PseInt.

Una empresa quiere hacer una compra de varias piezas a una fábrica de refacciones. La empresa, dependiendo del monto total de la compra, decidirá que hacer para pagar al fabricante. 

• Si el monto total de la compra excede de $500 000 la empresa tendrá la capacidad de invertir de su propio dinero un 55% del monto de la compra, pedir prestado al banco un 30% al 10% y el resto lo pagara solicitando un crédito al fabricante.
• Si el monto total de la compra no excede de $500 000 la empresa tendrá capacidad de invertir de su propio dinero un 70% y el restante 30% lo pagara solicitando crédito al fabricante. 
• El fabricante cobra por concepto de intereses un 8% sobre la cantidad que se le pague a crédito. 

1 Proceso FinanciarCompraMateriales

2      //Una empresa quiere hacer una compra de varias piezas de la misma

3      //clase a una fabrica de refacciones.

4      //La empresa, dependiendo del monto total de la compra,

5      //decidirá que hacer para pagar al fabricante.

6      //Si el monto total de la compra excede de $500 000 la empresa

7      //tendrá la capacidad de invertir de su propio dinero un 55%

8      //del monto de la compra, pedir prestado al banco un 30% al 10%

9      //y el resto lo pagara solicitando un crédito al fabricante.

10     //Si el monto total de la compra no excede de $500 000 la empresa

11     //tendrá capacidad de invertir de su propio dinero un 70%

12     //y el restante 30% lo pagara solicitando crédito al fabricante.

13     //El fabricante cobra por concepto de intereses un 8% sobre

14     //la cantidad que se le pague a crédito.

15     Definir TotalCompra, Contado , Banco, Fabri Como Entero;

16     Definir InteresesBanco , InteresesFab Como Real;

17     Escribir "Dime el total de la compra";

18     Leer TotalCompra;

19     Si TotalCompra > 500000 entonces //C 55 B 30 F 15

20           Contado <- TotalCompra * 0.55;

21           Banco <- TotalCompra * 0.30;

22           Fabri <- TotalCompra * 0.15;

23     Sino // C 70 B 00 F 30

24           Contado <- TotalCompra * 0.70;

25           Banco <- 0; //TotalCompra * 0.00;

26           Fabri <- TotalCompra * 0.30;

27     FinSi

28     InteresesBanco <- Banco * 0.10;

29     InteresesFab <- Fabri * 0.08;

30     Escribir "Total:", TotalCompra;

31     Escribir "Contado:" , Contado;

32     Escribir "Banco:" , Banco, " Intereses:" ,InteresesBanco ;

33     Escribir "Fabri:" , Fabri, " Intereses:" ,InteresesFab ;

34 FinProceso

Leer 2 números, si son iguales que los multiplique, si el primero es mayor que el segundo que los reste y si no que los sume.

1 Proceso Leer2NumerosYMSR

2      //Leer 2 números; si son iguales que los multiplique,

3      //si el primero es mayor que el segundo que los reste

4      //y si no que los sume.

5      Definir NumA, NumB, Resultado Como Real;

6      Escribir "Dime el 1 numero";

7      Leer NumA;

8      Escribir "Dime el 2 numero";

9      Leer NumB;

10     Si NumA = NumB Entonces

11           Resultado <- NumA * NumB;

12     Sino

13           Si NumA > NumB Entonces

14                  Resultado <- NumA - NumB;

15           Sino

16                  Resultado <- NumA + NumB;

17           FinSi

18     FinSi

19     Escribir "Resultado " , Resultado;

20 FinProceso

Leer tres números diferentes e imprimir el numero mayor de los tres.

1 Proceso LeerTresNumerosDifYMostrarelMayor

2      Definir NumA , NumB, NumC, Mayor Como Real;

3      Escribir "Dime el numero A";

4      Leer NumA;

5      Repetir

6            Escribir "Dime el Numero B";

7            Leer NumB;

8      Hasta Que NumB <> NumA

9      Repetir

10           Escribir "Dime el Numero C";

11           Leer NumC;

12     Hasta Que NumC <> NumB & NumC <> NumA

13     si NumA > NumB Entonces

14           si NumA > NumC Entonces

15                  Mayor <- NumA;

16           Sino

17                  Mayor <- NumC;

18           FinSi

19     Sino //B > A

20           Si NumB > NumC Entonces

21                  Mayor <- NumB;

22           Sino

23                  Mayor <- NumC;

24           FinSi

25     FinSi

26 Escribir "El Mayor es " ,Mayor;

27 FinProceso

Determinar la cantidad de dinero que recibirá un trabajador por concepto de las horas extras trabajadas en una empresa, sabiendo que cuando las horas de trabajo exceden de 40, el resto se consideran horas extras y que estas se pagan al doble de una hora normal cuando no exceden de 8, si las horas extras exceden de 8 se pagan las primeras 8 al doble de lo que se pagan las horas normales y el resto al triple.

1 Proceso HorasExtras

2      //Determinar la cantidad de dinero que recibirá

3      //un trabajador por concepto de las horas extras

4      //trabajadas en una empresa, sabiendo que cuando

5      //las horas de trabajo exceden de 40,

6      //el resto se consideran horas extras y que estas

7      //se pagan al doble de una hora normal cuando no

8      //exceden de 8; si las horas extras exceden de 8

9      //se pagan las primeras 8 al doble de lo que se

10     //pagan las horas normales y el resto al triple.

11     Definir TotalHoras, Horas, HorasDobles, HorasTriples Como Entero;

12     Definir PrecioHora, Sueldo Como Real;

13     Escribir "Dime el precio de la hora:";

14     Leer PrecioHora;

15     Escribir "Dime las horas trabajadas.";

16     Leer TotalHoras;

17     HorasDobles<-0;

18     HorasTriples <-0;

19     Si TotalHoras > 40 Entonces

20           Horas <- 40;

21           TotalHoras <- TotalHoras - 40;

22           Si TotalHoras > 8 Entonces

23                  HorasDobles <- 8;

24                  HorasTriples <- TotalHoras - 8;

25           Sino

26                  HorasDobles <- TotalHoras;

27           FinSi

28     Sino

29           Horas <- TotalHoras;

30     FinSi

31     Escribir "Horas ",Horas," EstrasD ",HorasDobles," EstrasT ",HorasTriples;

32     Sueldo <- (Horas + (2*HorasDobles) + (3*HorasTriples)) * PrecioHora;

33     Escribir "Esta Semana tu sueldo es " , Sueldo , " Euros.";

34 FinProceso

Siguiente>