Legado de Juan, Luis y Rosa en lenguaje Pascal

Lenguaje

Pascal
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
38
39
40
41
42
43
44
45
46
47
48

program LegadoDeJuanLuisYRosa;

uses crt;

var herencia, herencia_de_Juan, herencia_de_Luis, herencia_de_Rosa, monto : real;

var porcentaje, servicios_de_abogado : real;

begin

    write ('Ingresa el valor de herencia: ');

    readln (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;

    if monto<herencia/3 then

        begin

            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;

        end

    else

        begin

            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;

        end;

    porcentaje := 0;

    writeln ('Valor de herencia de Juan: ', herencia_de_Juan:0:6);

    writeln ('Valor de herencia de Luis: ', herencia_de_Luis:0:6);

    writeln ('Valor de herencia de Rosa: ', herencia_de_Rosa:0:6);

    writeln ('Valor de monto: ', monto:0:6);

    writeln ('Valor de porcentaje: ', porcentaje:0:6);

    writeln ('Valor de servicios de abogado: ', servicios_de_abogado:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.