• Lenguaje

    Pascal

  • Descripción

    Una frutería ofrece las manzanas con descuento según la siguiente tabla.
    NUM DE KILOS COMPRADOS | % DESCUENTO
    0 - 2 | 0%
    2.01 - 5 | 10%
    5.01 - 10 | 15%
    10.01 en adelante | 20%
    Determinar cuánto pagará una persona que compre manzanas en esa frutería.

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
program DescuentoEnKilosDeManzana;
uses crt;

var descuento, kilos_comprados, precio_por_kilo, subtotal, total : real;
begin
    write ('Ingresa el valor de kilos comprados: ');
    readln (kilos_comprados);
    write ('Ingresa el valor de precio por kilo: ');
    readln (precio_por_kilo);
    descuento := 0;
    subtotal := kilos_comprados*precio_por_kilo;
    if (kilos_comprados>2) and (kilos_comprados<=5) then
        begin
            descuento := subtotal*0.1;
        end;
    if (kilos_comprados>5) and (kilos_comprados<=10) then
        begin
            descuento := subtotal*0.15;
        end;
    if kilos_comprados>10 then
        begin
            descuento := subtotal*0.2;
        end;
    total := subtotal-descuento;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de subtotal: ', subtotal:0:6);
    writeln ('Valor de total: ', total:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.