-
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
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.
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.