Agencia de alquiler de automóviles en lenguaje Pascal

Lenguaje

Pascal
Descripción

En una agencia de alquiler de automóviles, al proporcionarle al programa el número de días que fue alquilado un automóvil y el número de kilómetros recorridos: calcule el total a pagar por el cliente si por cada kilómetro recorrido se cobran L.30, L.500 por día alquilado, el 15% de impuesto, y además L.1200 por el seguro obligatorio de daños.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

program AgenciaDeAlquilerDeAutomoviles;

uses crt;

var dias_de_alquiler, impuesto, kilometros_recorridos, seguro, subtotal : real;

var total_a_pagar : real;

begin

    write ('Ingresa el valor de dias de alquiler: ');

    readln (dias_de_alquiler);

    write ('Ingresa el valor de kilometros recorridos: ');

    readln (kilometros_recorridos);

    seguro := 1200;

    subtotal := dias_de_alquiler*500+kilometros_recorridos*30+seguro;

    impuesto := subtotal*0.15;

    total_a_pagar := subtotal+impuesto;

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

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

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

    writeln ('Valor de total a pagar: ', total_a_pagar:0:6);

    writeln;

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

    readkey;

end.