Ir al contenido principal

Ejecutar turbo pascal en windows 7 con dosbox

Si instalamos turbo pascal en windows 7 y procedemos a ejecutarlo nos saldra el siguiente error:


Para solventar este problema vamos a utilizar el emulador para la arquitectura x86 denominado dosbox que se lo pueden descargar de la siguente pagina:
 http://www.dosbox.com/news.php?show_news=1

La versión de dosbox que he utilizado es la 0.74.

Una vez que lo hayas instalado procederemos a configurarlo para que cuando lo ejecutemos nos ejecute directamente turbo pascal.

Nos dirigimos a la carpeta donde esta instalado el dosbox. En mi caso tengo la dirección "C:\Program Files (x86)\DOSBox-0.74".
Buscamos el archivo denominado "DOSBox 0.74 Options" y lo ejecutamos. Nos posicionamos al último del texto y agregamos las siguientes lineas:

mount d c:\tp
d:
cd bin
keyb sp


En esta parte presta mucha atención. En la primera linea "mount d c:\tp" se especifica la dirección en donde esta instalado el turbo pascal que en mi caso es "c:\tp". Lo que se hace es montar en "d". Luego se procede a abrir "d:". Abrimos el directorio "cd bin". La linea "keyb sp" sirve para que la configuración del teclado sea la misma con la que estamos trabajando en ese momento. Finalmente en la linea "tpx" se ejecuta el ejecutable de pascal. En esta última linea el ejecutable se llama "tpx", aunque es posible que tengas otro nombre del ejecutable de turbo pascal y tengas que poner en vez de "tpx" el nombre correspondiente.
Una vez agregadas las lineas que se especificaron anteriormente ejecutamos el acceso directo del dosbox y nos saldra de esta manera:



Y ya desde ahora podemos programar en el lenguaje de pascal.
Un codigo fuente de la criba para ejecutar en el dosbox:

program primos;
uses crt;
const
     max=254;
type
    vector=array[1..max] of byte;
var
   n:byte;
procedure criba(n1:byte);
var
   i,j,k:byte;
   lista:vector;
begin
     for i:=1 to n1 do
         lista[i]:=i;
     i:=2;
     while i<n1 do
     begin
          j:=i+1;
          while j<=n1 do
          begin
              if lista[j] mod lista[i]=0 then
                 begin
                      for k:=j+1 to n1 do
                      lista[k-1]:=lista[k];
                      n1:=n1-1;
                 end
              else
                  j:=j+1;
          end;
          i:=i+1;
     end;
     for i:=1 to n1 do
         write(' ',lista[i]);
end;
begin
     clrscr;
     writeln('Ingrese un numero natural');
     readln(n);
     criba(n);
repeat until keypressed;
end.

Comentarios

  1. Gracias amigo, esta buenisimo el aporte

    ResponderEliminar
  2. Amigo...
    ¿cómo sé dónde esta instalado el turbo pascal?

    ResponderEliminar
  3. En la dirección de la imagen aparece la dirección C:\...

    ResponderEliminar

Publicar un comentario

Entradas populares de este blog

Solución al problema de "No se estableció la conexión: los parámetros están incorrectos" en phpmyadmin con el paquete de XAMPP

Hola a todos de nuevo. En esta oportunidad les vengo a mostrar como solucionar el problema que aparece luego de crear una contraseña a un usuario por ejemplo root para acceder al phpmyadmin usando el paquete XAMPP. La versión de XAMPP que he utilizado en esta entrada es xampp-win32-1.7.7-VC9-installer.exe . Seguramente cuando quisiste asignarle una contraseña a tu user(por ejemplo root) se parecia a la siguiente pantalla: Luego de haber asignado la contraseña al usuario correspondiente te habrás dado cuenta que al ingresar al phpmyadmin que queda en la dirección http://localhost/phpmyadmin/   te apareció el siguiente error: Tal y como dice el mensaje hay que revisar el archivo config.inc.php   que se encuentra en la siguiente dirección C:\xampp\phpMyAdmin . Ten en cuenta que la unidad "C" en mi caso es la raiz del sistema operativo, asi tienes que adecuarla a tu unidad correspondiente. A continuación abrimos el archivo y nos centramos en la parte como se mue

ASP.NET 4 y IIS(Internet Information Server) 7 y Visual Studio 2010

   Muchos se habrán encontrado con esta situación de que al crear un nuevo sitio web con Visual Studio 2010 y haber elegido como servidor web el IIS 7 y HTTP como configuración, luego de haber aceptado ocurre exactamente este error que dice lo siguiente: ASP.NET 4.0 no se ha registrado en el servidor web. Es necesario configurar ma-  nualmente el servidor web para ASP.NET 4.0 para que el sitio funcione correcta- mente.Presione F1 para obtener más detalles.  Si aceptamos se crea nuestra pagina por defecto. Sin embargo cuando queremos probar dicha pagina sale el siguiente cuadro de dialogo:  Si aceptamos, ocurre nuevamente otro error.  Este tipo de errores es debido a que se instala el .NET Framework 4 antes de habilitar el IIS. Para solventar esto debemos utilizar la herramienta registro de IIS en ASP.NET (aspnet_regiis.exe). Este archivo se encuentra en la siguiente ruta: C:\windows\Microsoft.NET\Framework\v4.0.30319\  Dentro de este directorio encontramos al archivo aspne