Programación General > Pascal

 no me corre!!

<< < (2/2)

gabrielaaA:
graxias muchas graxias por ayudarme!! me sirvio de mucho...

gabrielaaA:
hola necesito convertir este programa a c++  graxias!!


Program MENU;
uses wincrt;
var
 OPCIONP,OPCIONS:char;
  NE,A,I,B,E,IT:integer;
  NUMT,NUM,POT,D:longint;
  P:real;
begin
 repeat
  clrscr;
  writeln('   Menu Principal');
  writeln('1. Calcular Factorial');
  writeln('2. Calcular Potencia');
  writeln('3. Conversiones');
  writeln('4. Salir del Programa');
  write('Seleccione su opcion:');
  readln(OPCIONP);
  case OPCIONP of
   '1':Begin
             A:=1;
             writeln('Factorial de un numero');
             write('Introduzca el numero que va a evaluar:  ');
              readln(NE);
               for I:=1 to NE do
               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.

Navegación

[0] Índice de Mensajes

[*] Página Anterior