Hojas de hielo seco, viguetas y armazones en lenguaje Pascal

Lenguaje

Pascal
Descripción

Un cliente ordena cierta cantidad de hojas de hielo seco, viguetas y armazones; las hojas de hielo seco tienen un 20% de descuento y las viguetas un 15%, sobre el total de cada una. Los datos que se tiene por cada tipo de artículo son: la cantidad pedida y el precio (hojas precio=2.75, viguetas precio=4, armazones precio=6.75). Además si se paga de contado tiene un descuento de 7% sobre el monto total. El algoritmo debe imprimir el costo total de la orden, en caso de ser efectivo de mostrar el costo inicial, el descuento y el monto final.

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

program HojasDeHieloSecoViguetasYArmazones;

uses crt;

var tipo_de_pago : integer;

var cantidad_de_armazones, cantidad_de_hojas, cantidad_de_viguetas, costo_inicial, descuento : real;

var monto_final, monto_total, precio_por_armazon, precio_por_hoja, precio_por_vigueta : real;

begin

    write ('Ingresa el valor de cantidad de armazones: ');

    readln (cantidad_de_armazones);

    write ('Ingresa el valor de cantidad de hojas: ');

    readln (cantidad_de_hojas);

    write ('Ingresa el valor de cantidad de viguetas: ');

    readln (cantidad_de_viguetas);

    writeln ('Selecciona el valor de tipo de pago.');

    writeln ('    1.- Al contado');

    writeln ('    2.- A cr'#130'dito');

    write ('    : ');

    repeat

        readln (tipo_de_pago);

        if (tipo_de_pago<1) or (tipo_de_pago>2) then

            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');

    until (tipo_de_pago>=1) and (tipo_de_pago<=2);

    precio_por_hoja := 2.75;

    precio_por_vigueta := 4;

    precio_por_armazon := 6.75;

    costo_inicial := cantidad_de_hojas*precio_por_hoja+cantidad_de_viguetas*precio_por_vigueta+cantidad_de_armazones*precio_por_armazon;

    descuento := cantidad_de_hojas*precio_por_hoja*0.2+cantidad_de_viguetas*precio_por_vigueta*0.15;

    monto_total := costo_inicial-descuento;

    if tipo_de_pago=1 then

        begin

            descuento := descuento+monto_total*0.07;

        end;

    monto_final := costo_inicial-descuento;

    writeln ('Valor de costo inicial: ', costo_inicial:0:6);

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

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

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

    writeln ('Valor de precio por armazon: ', precio_por_armazon:0:6);

    writeln ('Valor de precio por hoja: ', precio_por_hoja:0:6);

    writeln ('Valor de precio por vigueta: ', precio_por_vigueta:0:6);

    writeln;

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

    readkey;

end.