Programacion

Proceso GasolineSoft
//varibles
menu<-0;
PresGas <-203;
Gls<-0;
Menupcon<-Verdadero;//repetidor del menu principal
menuv<-0;
supertotal<-0;


//Menu Pricipal
Escribir "Elija Una Opcion";
Escribir "Opcion 1 ventas";
Escribir "Opcion 2 Administracon";

Leer menu;
Segun menu Hacer
1:r <- Verdadero;

Mientras r = Verdadero Hacer
Escribir "Gasolineria";
Escribir "1.-Vender en Por Galones (Gls)";
Escribir "2.-Vender Por Efectivo ($)";
PresGas <-203;

Leer menuv
Segun menuv Hacer
1:
Escribir "Digite Cantidad en Galones (Gls)";
Leer Gls
Total <- Gls * PresGas;
supertotal <-supertotal + Total;

Escribir "| Glones | Precio | Total |";
Escribir "| ",Gls," | ",PresGas," | ", Total," |";
Escribir "Toal de ventas ", supertotal;
2:
PresGas <-203;
Escribir "Digite Cantidad en Pesos"
Leer Total
Gls<- (Total / PresGas);
supertotal <-supertotal + Total;
Escribir "| Glones | Precio | Total |";
Escribir "| ",Gls," | ",PresGas," | ", Total," |";
Escribir "Total de ventas ", supertotal;

De Otro Modo:
Escribir "Error":
FinSegun

Escribir "Continuar (s) o Salir(n)"
leer c;
si c = "n" o c = "N" Entonces
r <- Falso
FinSi
FinMientras


Escribir "Esta parte esta en desarrollo";
Escribir "Opcion Invalida";

FinSegun


FinProceso