SoloCodigo

Program MENU;//solo es el nombre del programa
uses wincrt;//que se va usar en pantalla
var // variables que se van a usar
OPCIONP,OPCIONS:char; // tipos cadena se
NE,A,I,B,E,IT:integer;// si variables enteros tipo int
NUMT,NUM,POT,D:longint; ///tipo de enteor int long
P:real; // entero int o float
begin //seria como int main()
repeat//siclo do while inicio
clrscr;//limipiar pantalla se usa en borlan o en caso puede usar system("cls")
writeln(' Menu Principal');//es como escribir cout << "menu principal";
writeln('1. Calcular Factorial');//
writeln('2. Calcular Potencia');
writeln('3. Conversiones');
writeln('4. Salir del Programa');
write('Seleccione su opcion:');
readln(OPCIONP);//aqui enpieza la condicion switch
case OPCIONP of
'1':Begin
A:=1;//se declara la variable que enpieza en uno
writeln('Factorial de un numero');
write('Introduzca el numero que va a evaluar: ');
readln(NE);
for I:=1 to NE do //contaodr for
begin
A:=A*NE;
NE:=NE-1;
end;
writeln('El factorial es:',A);
writeln('presione una tecla para continuar');
readkey;
end;
'2':Begin
writeln('introduzca Base');
readln(b);
writeln('introduzca Exponente');
readln(e);
if (e>=0) then
begin
P:=1;
For IT:=1 to e do
begin
p:=p*b;
end;
end;
writeln('la potencia positiva es ',p:0:0);
readkey;
end;

'3':Begin
repeat
clrscr;
writeln(' Menu Conversiones');
writeln('1. binario-decimal');
writeln('2. binario-octal');
writeln('3. decimal-octal');
writeln('4. volver al menu principal');
write('Seleccione su opcion:');
readln(OPCIONS);
case OPCIONS of
'1':Begin
write('ingrese el numero binario:');
readln(NUM);
NUMT:=0;
POT:=1;
repeat
D:=NUM mod 10;
NUMT:=NUMT + D*POT;
NUM:=NUM div 10;
POT:=POT*2;
until NUM=0;
writeln('el equivalente decimal es:',NUMT);
writeln('presione una tecla para continuar');
readkey;
end;
'2':Begin
write('ingrese el numero binario:');
readln(NUM);
NUMT:=0;
POT:=1;
repeat
D:=NUM mod 8;
NUMT:=NUMT + D*POT;
NUM:=NUM div 8;
POT:=POT*2;
until NUM=0;
writeln('el equivalente octal es:',NUMT);
writeln('presione una tecla para continuar');
readkey;
end;
'3':Begin
Writeln('Estoy en la opcion 3');
writeln('presione una tecla para continuar');
readkey;
write('ingrese el numero decimal:');
readln(NUM);
NUMT:=0;
POT:=1;
repeat
D:=NUM mod 8;
NUMT:=NUMT + D*POT;
NUM:=NUM div 8;
POT:=POT*8
until NUM=0;
writeln('el equivalente octal es:',NUMT);
end;
'4':Begin
Writeln('Volviendo al menu principal');
writeln('presione una tecla para continuar');
readkey;
end;
else
Begin
Writeln('Error en la seleccion');
writeln('presione una tecla para continuar');
readkey;
end;
end;
until OPCIONS='4';
end;
'4':Begin
Writeln('Saliendo del programa');
writeln('presione una tecla para continuar');
readkey;
end;
else
Begin
Writeln('Error en la seleccion');
writeln('presione una tecla para continuar');
readkey;
end;
end;
until OPCIONP='4';
donewincrt;
end.

disculpa pero es mucho y aqui en mi pais ya es tarde.
bueno espero que te sirva lo que escribi.

bueno deseo usar libreiras graficas para la programacion en c++ pero que no sea visual basic, borlarn, otros pero a nivel de consola.