Legado de Juan, Luis y Rosa en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Un millonario tenía tres hijos: Juan, Luis y Rosa. Al morir dejó el siguiente legado: A Luis le dejó 4/3 de lo que le dejó a Juan. A Juan le dejó 1/3 de su fortuna. A Rosa le dejó la mitad de lo que le dejó a Luis. Además el licenciado les cobrará por sus servicios un porcentaje de lo que reciban cada uno de herencia: si el monto es menor a la tercera parte de la herencia cobrará 3%, en caso contrario 5%. Imprimir cuánto recibirán cada heredero y el abogado.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

Proceso LegadoDeJuanLuisYRosa

    Escribir Sin Saltar "Ingresa el valor de herencia:";

    Leer herencia;

    herencia_de_Juan <- herencia/3;

    herencia_de_Luis <- herencia_de_Juan*4.0/3.0;

    herencia_de_Rosa <- herencia_de_Luis/2;

    monto <- herencia_de_Juan+herencia_de_Luis+herencia_de_Rosa;

    servicios_de_abogado <- 0;

    Si monto<herencia/3 Entonces

        porcentaje <- herencia_de_Juan*0.03;

        herencia_de_Juan <- herencia_de_Juan-porcentaje;

        servicios_de_abogado <- servicios_de_abogado+porcentaje;

        porcentaje <- herencia_de_Luis*0.03;

        herencia_de_Luis <- herencia_de_Luis-porcentaje;

        servicios_de_abogado <- servicios_de_abogado+porcentaje;

        porcentaje <- herencia_de_Rosa*0.03;

        herencia_de_Rosa <- herencia_de_Rosa-porcentaje;

        servicios_de_abogado <- servicios_de_abogado+porcentaje;

    SiNo

        porcentaje <- herencia_de_Juan*0.05;

        herencia_de_Juan <- herencia_de_Juan-porcentaje;

        servicios_de_abogado <- servicios_de_abogado+porcentaje;

        porcentaje <- herencia_de_Luis*0.05;

        herencia_de_Luis <- herencia_de_Luis-porcentaje;

        servicios_de_abogado <- servicios_de_abogado+porcentaje;

        porcentaje <- herencia_de_Rosa*0.05;

        herencia_de_Rosa <- herencia_de_Rosa-porcentaje;

        servicios_de_abogado <- servicios_de_abogado+porcentaje;

    FinSi

    porcentaje <- 0;

    Escribir "Valor de herencia de Juan: ", herencia_de_Juan;

    Escribir "Valor de herencia de Luis: ", herencia_de_Luis;

    Escribir "Valor de herencia de Rosa: ", herencia_de_Rosa;

    Escribir "Valor de monto: ", monto;

    Escribir "Valor de porcentaje: ", porcentaje;

    Escribir "Valor de servicios de abogado: ", servicios_de_abogado;

FinProceso