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]