tengo un problemita con este codigo en perl

[adamsst]

aca esta lo que debo hacer


#Desarrollar un programa para el control de ventas de una empresa de aceites.Tomando en cuenta los precios por litros:

#- Aceite Tipo1=25
#- Aceite Tipo2=20
#- Aceite Tipo3=15

#El programa debe solicitar el código del vendedor y el número de ventas hechas.Posteriormente debe seleccionar el tipo de aceite vendido (Tipo1, Tipo2 o
#Tipo3), indicando la cantidad de litros, que permitirá calcular la ganancia por cada aceite. EL programa debe imprimir lo siguiente:

#- La ganancia obtenida por la venta de cada aceite
#- La Ganancia total de ventas generadas por el vendedor

aca esta el codigo

Código:

system ("clear");
print "ingrese el codigo del vendedor:";
$codigovendedor=<STDIN>;
print "ingrese la cantidad a vender:";
$cantidaddeventas=<STDIN>;
print "aceite tipo uno";
$tipodeaceite1=<STDIN>;
print "aceite tipo dos";
$tipodeaceite2=<STDIN>;
print "aceite tipo tres";
$tipodeaceite3=<STDIN>;
print "ingrese la cantidad de litros:";
$cantidaddelitros=<STDIN>;

$AceiteTipo1=25;
$AceiteTipo2=20;
$AceiteTipo3=15;

pero no me gusta esa forma porq me sale el tipo uno y debo colocarle cero y si quisiera el tipo 3 debo colocarle 0 al uno y cero al 2

de paso leanse el problema planteado creo que esta mal planteado digo no se

y esta es una segunda forma que programe pero igualito no me cuadra

Código:

system ("clear");
print "ingrese el codigo del vendedor:";
$codigovendedor=<STDIN>;
print "ingrese la cantidad a vender:";
$cantidaddeventas=<STDIN>;
print "tipo de aceite vendido para tipo 1 (presione 1) para tipo 2 (presione 2) para tipo 3 (presione 3):";
$tipodeaceite=<STDIN>;
print "ingrese la cantidad de litros:";
$cantidaddelitros=<STDIN>;

$AceiteTipo1=25
$AceiteTipo2=20
$AceiteTipo3=15

if ($tipodeaceite ==1)
{
print"$AceiteTipo1\n";
}
elsif($tipodeaceite ==2){
print"$AceiteTipo2\n";
}
elsif($tipodeaceite ==3){
print"$AceiteTipo3\n";
}
else{
print"fin del programa\n";
}

vuelvo a pedir que lean el enunciado que piden creo que esta un poco de foco o quizas sea yo el que este fuera de foco


#Desarrollar un programa para el control de ventas de una empresa de aceites.Tomando en cuenta los precios por litros:

#- Aceite Tipo1=25
#- Aceite Tipo2=20
#- Aceite Tipo3=15

#El programa debe solicitar el código del vendedor y el número de ventas hechas.Posteriormente debe seleccionar el tipo de aceite vendido (Tipo1, Tipo2 o
#Tipo3), indicando la cantidad de litros, que permitirá calcular la ganancia por cada aceite. EL programa debe imprimir lo siguiente:

#- La ganancia obtenida por la venta de cada aceite
#- La Ganancia total de ventas generadas por el vendedor




no pido que me hagan el programa solo denme los tips para yo resolverlos y sobre todo si el enunciado esta malo y diganme en que parte

[adamsst]

aca esta lo que logre hacer en perl

Código:

system ("clear");
print "ingrese el codigo del vendedor:n";
$codigovendedor=<STDIN>;

print "tipo de aceite vendido para tipo 1 (presione 1) para tipo 2 (presione 2) para tipo 3 (presione 3):n";
$tipodeaceite=<STDIN>;

if($tipodeaceite <= 1){
print "ingrese la cantidad de aceites tipo uno que desea vendern";
$aceitetipo1=<STDIN>;
$ventasdeaceitestipo1= $aceitetipo1 * 25;
print "el total de las ganancia de las ventas del aceite tipo uno es:$ventasdeaceitestipo1n";
}

elsif($tipodeaceite <= 2){
print "ingrese la cantidad de aceites tipo dos que desea vendern";
$aceitetipo2=<STDIN>;
$ventasdeaceitestipo2= $aceitetipo2 * 20;
print "el total de las ganancia de las ventas del aceite tipo dos es:$ventasdeaceitestipo2n";


}
elsif($tipodeaceite <= 3){
print "ingrese la cantidad de aceites tipo tres que desea vendern";
$aceitetipo3=<STDIN>;
$ventasdeaceitestipo3= $aceitetipo3 * 15;
print "el total de las ganancia de las ventas del aceite tipo tres es:$ventasdeaceitestipo3nn";
}
$gananciatotal=$ventasdeaceitestipo1+$ventasdeaceitestipo2+$ventasdeaceitestipo3;
print "La ganacia total obtenida por el vendedor es: $gananciatotaln";

esta excelente pero desearía saber como hago para que las tres opciones me queden fijas y solo las rellene manualmente

osea debo quitar este codigo

Código:

print "tipo de aceite vendido para tipo 1 (presione 1) para tipo 2 (presione 2) para tipo 3 (presione 3):n";
$tipodeaceite=<STDIN>;

desearia que quedara algo asi


ingrese la cantidad de aceites tipo uno que desea vender

ingrese la cantidad de aceites tipo dos que desea vender

ingrese la cantidad de aceites tipo tres que desea vender


que quede eso en pantalla fijo e ingrese la cantidad que desee segun el tipo[/quote]