Pascal/Turbo Pascal - Ayuda con programa urgentisimo

   
Vista:

Ayuda con programa urgentisimo

Publicado por Luis luialex45@hotmail.com (33 intervenciones) el 02/04/2012 22:50:10
hola necesito crear un programa basico solo con el uso de if y sus respectivos calculos, nada de vectores ni matrices por favor es urgente ayundenme por favor, asi dice elejercicio:

Una compañia paga a sus vendedores un sueldo fijo, mas una comision por venta. La compañia fabrica 3 tipos de productos y cada vendedor vende de los tres. Para calcular la comision considere
lo siguiente:
a)Por el producto 1 recibe el 5% de comision,si el monto de la venta es menor a 100.000Bs. de lo contrario recibe el 6%.
b)por el producto 2 recibe el 7% de comision, si el monto de la venta es mayor a 150.000bs.
c) por el producto 3 recibe el 8% de comision, por cualquier monto de venta.

Diseñe un algoritmo que lea el sueldo fijo del vendedor, el monto de venta del producto 1,2 y3. Calcular e imprima: la comision por producto, el total comision del vendedor y el sueldo total a recibir.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con programa urgentisimo

Publicado por ramon (2072 intervenciones) el 03/04/2012 21:55:57
{Con lo poco que quieres a ver si esto sirve}

program vendedor;
uses
crt;
var
sueldo : real;
venta : real;
venta1, venta2, venta3 : real;
total : real;
comis1, comis2, comis3 : real;
cont : integer;
begin
venta1 := 0;
venta2 := 0;
venta3 := 0;
clrscr;
write('Entre Sueldo : ');
readln(sueldo);
venta := 100;
cont := 1;
while venta <> 0 do
begin
clrscr;
writeln('Entrada [0] Finaliza sesion');
write('Entre Venta Producto ',cont,' : ');
read(venta);
case cont of
1 : begin
venta1 := venta1 + venta;
end;
2 : begin
venta2 := venta2 + venta;
end;
3 : begin
venta3 := venta3 + venta;
end;
end;
cont := cont + 1;
if cont > 3 then
cont := 1;
end;

if venta1 > 100000 then
begin
comis1 := (venta1 * 6) / 100;
end
else
begin
comis1 := (venta1 * 5) / 100;
end;
if venta2 > 150000 then
begin
comis2 := (venta2 * 7) / 100;
end;
comis3 := (venta3 * 8) / 100;
total := sueldo + (comis1 + comis2 + comis3);
clrscr;
writeln('***** Resultados ****');
writeln('Sueldo Fijo = ',sueldo:10:2);
writeln('venta producto 1 = ',venta1:10:2);
writeln('venta producto 2 = ',venta2:10:2);
writeln('venta producto 3 = ',venta3:10:2);
writeln('Comision Producto 1 = ',comis1:10:2);
writeln('Comision Producto 2 = ',comis2:10:2);
writeln('Comision Producto 3 = ',comis3:10:2);
writeln('Total Comision = ',(comis1 + comis2 + comis3):10:2);
writeln('Sueldo Total = ',total:10:2);
readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con programa urgentisimo

Publicado por Luis luialex45@hotmail.com (33 intervenciones) el 05/04/2012 02:30:36
Ramon gracias por la respuesta pero ahi hay cosas que no he visto en clases mira una muestra de lo que hemos visto a ver si me puedes seguir ayudando:

program Calculopago;
uses crt;
var
vm,vp,vuelto,faltante:real;
begin
clrscr;
writeln('introduzca vm');
readln(vm);
writeln('introduzca vp');
readln (vp);
If vm = vp then
writeln ('pago completo');
if vm>vp then
begin
faltante:=vm-vp;
writeln('faltante:',faltante:2:2);
end;
if vm<vp then
begin
vuelto:=vm-vp;
writeln('vuelto:',vuelto:2:2);
end;
readkey
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con programa urgentisimo

Publicado por ramon (2072 intervenciones) el 05/04/2012 13:48:59
{Esto es lomas simple que puede ser}

program comision;
uses
crt;
const
venta1menor = 100000;
venta2mayor = 150000;
tantouno100 = 5;
tantomax100 = 6;
tantodos100 = 7;
tantotres100 = 8;
var
venta1, venta2, venta3 : real;
sueldo, ta1001, ta1002, ta1003 : real;
totasueldo, totacomi, entrada : real;
begin
clrscr;
entrada := 0;
write('Entre Sueldo : ');
read(entrada);
sueldo := entrada;
entrada := 0;
write('Entre Venta articulo 1 : ');
read(entrada);
venta1 := entrada;
entrada := 0;
write('Entre Venta articulo 2 : ');
read(entrada);
venta2 := entrada;
entrada := 0;
write('Entre Venta articulo 3 : ');
read(entrada);
venta3 := entrada;
if venta1 > venta1menor then
ta1001 := venta1 * tantomax100 / 100;
if venta1 < venta1menor then
ta1001 := venta1 * tantouno100 / 100;
if venta2 > venta2mayor then
ta1002 := venta2 * tantodos100 / 100;
if venta2 <= venta2mayor then
ta1002 := 0;
ta1003 := venta3 * tantotres100 / 100;
totacomi := ta1001 + ta1002 + ta1003;
totasueldo := sueldo + totacomi;
clrscr;
writeln('<<< Resultados >>>');
writeln;
writeln(' Sueldo : ',sueldo:8:2);
writeln(' Tanto por 100 de venta 1 : ',ta1001:8:2);
writeln(' Tanto por 100 de venta 2 : ',ta1002:8:2);
writeln(' Tanto por 100 de venta 3 : ',ta1003:8:2);
writeln(' Comision total : ',totacomi:8:2);
writeln(' Salario total : ',totasueldo:8:2);
writeln;
writeln('**** Pulse una tecla ****');
readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar