• Lenguaje

    Pascal

  • Descripción

    Ingrese el nombre de artículo, el costo unitario, la cantidad adquirida y si tiene o no impuesto (S/N). Calcule el total y en caso de que tenga impuesto deduzca el 10% del costo total.

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

var tiene_impuesto : integer;
var cantidad_adquirida, costo_unitario, impuesto, subtotal, total : real;
var nombre_del_articulo : string;
begin
    write ('Ingresa el nombre del articulo: ');
    readln (nombre_del_articulo);
    write ('Ingresa el valor de cantidad adquirida: ');
    readln (cantidad_adquirida);
    write ('Ingresa el valor de costo unitario: ');
    readln (costo_unitario);
    subtotal := costo_unitario*cantidad_adquirida;
    writeln ('Selecciona el valor de tiene impuesto.');
    writeln ('    1.- Si');
    writeln ('    2.- No');
    write ('    : ');
    repeat
        readln (tiene_impuesto);
        if (tiene_impuesto<1) or (tiene_impuesto>2) then
            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
    until (tiene_impuesto>=1) and (tiene_impuesto<=2);
    if tiene_impuesto=1 then
        begin
            impuesto := subtotal*0.1;
        end
    else
        begin
            impuesto := 0;
        end;
    total := subtotal+impuesto;
    writeln ('Nombre del articulo: ', nombre_del_articulo);
    writeln ('Valor de impuesto: ', impuesto: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.