-
Lenguaje
Pascal
-
Descripción
Un concesionario como plan de estímulo de venta ha diseñado un plan de bonificación que consiste en asignar un bono del 10% sobre el total vendido si esta supera los $10,000,000, en otro caso el bono será del 5%.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program BonoPorTotalVendido;
uses crt;
var bono, total_vendido : real;
begin
write ('Ingresa el valor de total vendido: ');
readln (total_vendido);
if total_vendido>10000000 then
begin
bono := total_vendido*0.1;
end
else
begin
bono := total_vendido*0.05;
end;
writeln ('Valor de bono: ', bono:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var bono, total_vendido : real;
begin
write ('Ingresa el valor de total vendido: ');
readln (total_vendido);
if total_vendido>10000000 then
begin
bono := total_vendido*0.1;
end
else
begin
bono := total_vendido*0.05;
end;
writeln ('Valor de bono: ', bono:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.