• Lenguaje

    Pascal

  • Descripción

    Calcule e imprima la depreciación de costo en años de un computador cuyo costo es por entrada por el teclado y se depreciara en 4 años.
    * Depreciación: es la disminución del valor o precio de alguna cosa, en este caso, de un computador.
    * La forma en que calcularemos la depreciación, es por el método de la suma de los dígitos.
    - D=1,2,3,4/10
    - La Depreciación del 1er año = 4/10 costo
    - La Depreciación del 2do año = 3/10 costo
    - La Depreciación del 3er año = 2/10 costo
    - La Depreciación del 4to año = 1/10 costo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program DepreciacionDeUnComputador;
uses crt;

var i : integer;
var costo, depreciacion : real;
begin
    write ('Ingresa el valor de costo: ');
    readln (costo);
    for i:=1 to 4 do
    begin
        writeln ('PROCESO ', i);
        depreciacion := costo*(5-i)/10;
        writeln ('Valor de depreciacion: ', depreciacion:0:6);
        writeln;
    end;
end.