Main logo La Página de DriverOp

Turbo Pascal

Estos son algunos programas en código fuente de mi autoría hechos en Turbo Pascal 7.0. La solución para el bug "Error 200: Division by Zero" está aquí también.

Aviso importante

Te recomiendo que NO uses Turbo Pascal para programar en Pascal y en su lugar uses Free Pascal.

La razón de esto es que Turbo Pascal es un compilador obsoleto. Fue quizá el mejor compilador de Pascal de su época pero eso fue hace 20 años atrás.

Mientras que Free Pascal está al día y puedes programar cosas modernas en un entorno moderno. Si quieres hacer programas para Windows, entonces usar Lazarus que es un IDE para Free Pascal con el que puedes hacer programas visuales y conducidos por eventos.

Diego Romero -

Contenido.

Códigos Fuentes.

Descripción Descarga
Turbo Pascal Icon Barra de Menues. Este programa es un ejemplo de cómo hacer una barra de menues desde donde se puedan lanzar más opciones, el mismo es configurable desde un archivo de texto, permite hasta 12 opciones por menú pero como incluyo el código fuente no será problema adaptarlo a cualquier necesidad. menupas.zip (13 Kb)
Turbo Pascal Icon Impresión de Gráficos. Un ejemplo de cómo imprimir gráficos sencillos desde un programa Pascal a una impresora Epson, la impresión se hace a solo 8 bits en blanco y negro, ni siquiera en tono de grises, sorry :), me he basado en lo que dice la documentación que está en el manual de las impresoras Epson. impgrph.zip (2 Kb)
Turbo Pascal Icon Un visor simple de archivos BMP. El archivo para descargar incluye un BMP de muestra, la resolución maxima es 800x600 a 256 colores, espero que le sea útil. No he encontrado ejemplos de cómo hacer esto por ningún lado es por eso que he decidido donar este código. verbmp.zip (10 Kb)
Turbo Pascal Icon Protector de pantalla, muestra una cinta que llena la pantalla cada 10 segundos y cambia de color, desde el código fuente se puede cambiar la resolución de la pantalla, es necesario tener el archivo SVGA256.BGI (que está en verbmp.zip) en el mismo directorio de ejecución del programa. nada.zip (7 Kb)
Turbo Pascal Icon Extrae datos de la BIOS, tal como el número de serie, la fecha de fabricación, el fabricante y el tipo, muy útil para implementar una protección contra copias. Para BIOS Award únicamente.
He perdido este archivo, si alguien lo tiene por favor me avisa!
Lo encontré! ()
bios.zip (601 Bytes)
Turbo Pascal Icon Tres programas para: pasar de notación decimal a hexadecimal, de hexadecimal a decimal y de decimal a binario. convert.zip (1,1 Kb)
Turbo Pascal Icon Programa que pasa un número de notación arabiga (vamos, el que usamos todos los dias :)) a notación romana, desafortunadamente solo funciona en el período 0 a 3999. romanos.zip (0,4 Kb)
Turbo Pascal Icon ¿Has visto qué bien quedan esas barras de avance que muestran el estado de una copia de un archivo?, te has preguntado cómo hacer un programa que copie cualquier archivo de un lugar a otro? Aquí está el código..., no muy elegante pero funciona. cp.zip (2,8 Kb)
Turbo Pascal Icon El Riden, un juego matamarcianos en modo texto hecho con programación orientada a objetos, noten qué corto que es, solo 445 lineas de codigo ... y podrian ser menos. riden.zip (2,4 Kb)
Turbo Pascal Icon Esto suele ser muy solicitado. Métodos de Ordenación, en este programa están ejemplos de los métodos de ordenación mas comunmente estudiados (Burbuja, Quick Sort, Shell, Hashing, etc...), puestos en un solo programa y de forma que se puedan apreciar las diferencias de rendimiento entre ellos. ordena.zip(2,2 Kb)
Turbo Pascal Icon Esto también suele ser muy pedido. Programa que extrae (y con alguna modificación escribe) el número de serie del disco, la etiqueta y el sistema de archivo usado en el mismo. serial.zip (864 bytes)
Turbo Pascal Icon Juego del solitario español, con baraja francesa, este programa me fué pedido por alguien y me pareció un interesante desafío.
Turbo Pascal Icon Evaluador de Expresiones. Debido a la gran cantidad de demandas por este tipo de programas he decidido publicar mi versión. Lamentablemente este programa lo he hecho hace ya muchos años y he perdido el archivo de ayuda que le acompaña pero sigue siendo totalemente funcional. Lee el archivo "leeme.txt" para más detalles de cómo se usa. exp.zip(3,6 Kb)
Turbo Pascal Icon Muestra la hora siempre visible en la esquina superior derecha de la pantalla. Útil por ejemplo para el programa de menues. poner_h.zip (497 bytes)
Turbo Pascal Icon Implementación del método de ordenación Quick Sort sobre un archivo de datos. idxarch.zip (994 bytes)
Turbo Pascal Icon Implementación de lista dinámica simplemente enlazada insertando en orden cada nuevo elemento de la lista. Link.
listasim.zip (735 bytes)
Turbo Pascal Icon Implementación de lista dinámica doblemente enlazada insertando en orden cada nuevo elemento de la lista. Link.
listadob.zip (1,1 KB.)
Turbo Pascal Icon Implementación de una sencilla base de datos con indexación externa. La idea es tener un archivo de datos ordenado mediante un archivo de índice externo usando el método QuickSort visto más arriba. index.zip (1,5 Kb)
Turbo Pascal Icon Programa que calcula la diferencia entre dos fechas, es decir dadas dos fechas devuelve la cantidad de días entre ellas. Tiene en cuenta el cambio entre el calendario juliano y el gregoriano. diffecha.zip (557 bytes)

Borland Turbo Pascal 7.0

Baja el compilador mas conocido de Pascal para DOS!. Borland ha liberado su compilador Turbo Pascal 7.0 como abandonware. La ayuda en castellano se descarga por separado, está más abajo en esta misma página. Los dos archivos se corresponden con las copias exactas de los dos disquettes de instalación originales de Turbo Pascal 7.0, por lo tanto no tienen el parche aplicado, el cual deberás descargar y aplicar.

Primer Archivo (1,3 Mb)Primer Archivo (1,3 Mb) Segundo Archivo (900 Kb)Segundo Archivo (900 Kb)

Parche para el bug "Error 200: Division by Zero".

Ocurre cuando se usa la unidad CRT en procesadores de mas de 166 MHZ, lee cuidadosamente las instrucciones y haz una copia de respaldo antes de aplicarlo, no vaya a ser peor el remedio que la enfermedad :).

Actualización!: aparentemente el problema volvió a aparecer en procesadores de mas de 1,2 GHZ de velocidad aún con este parche instalado pero personalmente no lo he corroborado. Si es tu caso envíame un correo

En un Pentium IV 2,2 Ghz con motherboard ASUS y 256 Mb de RAM DDR, tanto Turbo Pascal como los programas compilados con el parche que ofrezco en esta página, no me han dado ningún problema. Tampoco ejecutando bajo Windows XP.

Parche (30 Kb)Parche (30 Kb)

Instrucciones para aplicar el parche

Tutorial Turbo Pascal en Español (Castellano).

Hay muy buenos tutoriales en español (castellano) en la red, para acceder a ellos haz click en el link de mas abajo, es una busqueda en Google que, al momento de hacerla me trajo 2630 resultados asi que disfrutalo.

Buscar "Tutorial Pascal" en Google.

Tutorial sobre manejo de archivos con tipo en Turbo Pascal.

El amigo Roberto Garcia tiene un buen tutorial de todo lo referente a manipulación de archivos usando Turbo Pascal (o Pascal en general). Vale la pena leerlo.

http://mx.geocities.com/antrahxg/pascal/pmf/archivos.html

La ayuda de Turbo Pascal en Español (Castellano).

La ayuda (help) en castellano para Turbo Pascal 7.0 esta es una traducción no oficial. No soy responsable por ella y no puedo dar garantía de exactitud pero peor es nada :). Lee el archivo TXT que está en el ZIP para saber cómo instalar la ayuda. Descarga el siguiente archivo:

Ayuda Turbo Pascal (534 Kb.)Ayuda Turbo Pascal (534 Kb.)

Solución al error de instalación de Turbo Pascal en Windows 2000.

Un forista de La Web Del Programador ha propuesto esta solución: descargar archivo bwcc.dll (Borland Windows Custom Control Library ver. 1.03, 42 Kb) y copiarlo en C:\WINNT\SYSTEM

Turbo Pascal en Windows XP.

Antes que nada: no existe una versión de Turbo Pascal para Windows XP.

Ya que he visto que preguntan mucho acerca de cómo hacer funcionar el IDE de Turbo Pascal en Windows XP quiero informarles que éste no necesita de nada en particular bajo este sistema operativo. Para dejarlo más claro, Turbo Pascal no presenta ningún problema o incompatibilidad o inconveniente o error ejecutando en una máquina con Windows XP, en ninguna de sus versiones. La gran mayoría de problemas que puedes encontrar se deben a:

  • No estás ejecutándolo con los permisos adecuados. Debes ser el administrador.
  • La resolución de pantalla no es la adecuada. En vez de ejecutarlo a pantalla completa, ejecútalo en ventana; yo lo uso con fuente 10 x 18 en ventana maximizada con resolución de pantalla 800 x 600.
  • Si notas que el IDE responde lento a las pulsaciones de teclado borra el archivo "turbo.pif" que está en el directorio "bin" de Turbo Pascal.
  • En caso de problemas, sospecha primero de Windows XP antes que de Turbo Pascal.
  • Si aún tienes problemas, escríbeme un correo explicándomelo detalladamente y trataré de ayudarte.

Sobre el "famoso" WINCRT.TPU y dónde encontrarlo.

La unidad WINCRT.TPU no pertence a Turbo Pascal 7.0 sino a Turbo Pascal for Windows 1.5. pero NO es un archivo separado, está incluido en el TPW.TPL que es una biblioteca de bibliotecas, ese archivo contiene "wincrt", "wintypes", "winproc" y "windos".

Sin embargo, en la instalación de TPW 1.5 en el directorio DOC está el código fuente de la biblioteca "wincrt" que puedes compilar por separado.

Diego Romero -

Comentarios

Agregar comentario

190.16.142.129

Lunes, 09 de Mayo de 2011 a las 10:47:29

Por: Diego Romero

Kahory Kuchiki:

 Tu pregunta está constestada en el artículo mismo, por favor no seas haragán y lee.

190.184.34.103

Lunes, 09 de Mayo de 2011 a las 02:33:48

Por: Kahory Kuchiki (nabeshiko2004@yahoo.com)

pues tengo un problema parecido; sólo que tengo un sistema de 32 Win 7 Ultimate con lic y una version de pascal instalada para el, mi problema es q tambien me da el "error:200 division by zero" y no veo manera de q me copile programas. Segun algunos comentarios q pude leer dicen q podría ser el procesador Intel, tengo una q es Intel Core 2 Duo de 3.4 Ghz a doble nucleo... ayudenme....!!

187.131.25.67

Viernes, 08 de Abril de 2011 a las 12:57:01

Por: Natalia Isabel

hola , necesito descargar el parche para turbo pascal , me urge porfavor :) gracias..

190.36.178.52

Sábado, 05 de Febrero de 2011 a las 12:04:43

Por: Angel

Muchísimas gracias por esta página. Es una mina de conocimientos y detalles que ayudan a quien de verdad quiera dominar Pascal y sus productos relacionados.

Saludos desde Venezuela

190.42.120.159

Viernes, 07 de Enero de 2011 a las 17:09:54

Por: Cristian

Hola, agradezco mucho tu apoyo, soy estudiante y de veras que me ha servido mucho el uso de tu pagina, Podria darte un consejo, incluye en tu pagina un tutorial completo sobre el Turbo Pascal 7.0... Estoy muy agradecido!!!!

190.152.60.33

Martes, 21 de Diciembre de 2010 a las 18:13:17

Por: Martin

Hola gracias por esto, pero tengo una duda, cundo instalo pascal y aplico el parche me aparece un mensaje diciendo la cpu a en contrdado un error y aparece una fila de letras o caracteres y me da opcion a cerrar y a omitir, que puedo hacer, necesito ayuda.

190.17.161.121

Miércoles, 20 de Octubre de 2010 a las 00:56:08

Por: Cristhian

Hola amigo Diego, muchas gracias andaba buscando un evaluador de expresiones para Pascal, ya que me olvide de la sintaxis, y mas que nada de como armar un buen evaluador que vi en Algorítmica :D, un abrazo man (ahora me piden para Cálculo Numérico que haga programas sobre lo que vemos, en Pascal o Delphi, siendo que ya vimos Java el año pasado y tiene evaluador incorporado de Javascript ). GRACIAS de nuevo!!!

190.228.214.11

Jueves, 07 de Octubre de 2010 a las 08:30:16

Por: Diego Romero

Oscar
Ayudar en qué?

190.149.126.95

Jueves, 07 de Octubre de 2010 a las 01:17:57

Por: Oscar

Necesito hacer un programa con menu para una empresa de automoviles, la cual debe manejar un minimo de 5 marcas de vehiculos , asi como 5 lineas por marca, ademas color del vehiculo que el cliente desea y el precio que iria de arcuerdo a la calidad del vehiculo si es estandard o bien full equipo, ademas debera preguntar los datos personales del posible cliente, para que al final me muestre una cotizacion con los datos del cliente asi como del vehiculo que le interesaria comprar, si alguien me puede ayudar, les agradeceria me URGE para el Viernes 08/10/2010

190.231.40.164

Miércoles, 22 de Septiembre de 2010 a las 08:01:18

Por: Diego Romero

Nelson:
Ah, en ese caso, be my guest ;)

190.76.29.39

Miércoles, 22 de Septiembre de 2010 a las 01:03:35

Por: Nelson

hola de nuevo diego. yo use delphi cuando montaba circuitos digitales y software en controles automaticos 1 y 2. como ves es muy basico mi nivel de programacion solo era seguir logica y control de puertos. pero ese no es el punto. desde hace seis a;os tengo mi negocio en vzla y las operaciones administrativas uso software comercial administrativo. ahora bien lo que quiero hacer por interes intelectual es usar esas bases de datos y aplicarle pronosticos de negocios estadisticos. por que quiero usar turbo. creo que el poco uso de el manejo de los registros y archivos en turbo pascal es una limitante y quiero comprender el concepto antes de aventurarme a usar otros conceptos y comparto totalmente tu opinion que turbo es el mejor programa para adquirir logica y despues es escalable a delphi. comparto tu vision en la intro de tu web sobre los escritores de codigo y los dise;adores. sorry por la ; uso una compac v6444 americana y no tiene la enhe. si quieres pasame tu correo y podremos hablar de otros intereses comunes como el ateismo hasta luego

190.231.40.164

Miércoles, 22 de Septiembre de 2010 a las 00:16:11

Por: Diego Romero

nelson:
Si tu intensión es manejar bases de datos no pierdas el tiempo con Turbo Pascal, pásate directamente a Delphi. Escribí un tutorial de Delphi para principiantes, está en esta misma página (menú de la izquierda).
PD: presionando ALT+F5 en el IDE de Turbo Pascal ves la salida de tu programa luego de ejecutarse.

190.76.29.39

Martes, 21 de Septiembre de 2010 a las 23:33:11

Por: Nelson

hola amigo. tengo unas dudas. estoy retomando esto de la programacion e hice el famoso programa suma. dos numeros introducidos por teclado y al ejecutar me pide los numeros le doy enter y desaparece la pantalla si estoy en pascal lo tengo que volver a correr para que me de la respuesta y si hago el ejecutable solo hace la mtad y desaparece. que hice mal. felictiaciones por tu pagina y se nota que te gusta mucho pascal. la idea que quiero es trabajar con archivos para el manejo de base de datos y despues pasar a delphi pero como nunca en la uni hice eso sino solamente programas secuenciales y manejo de pueto (me gradue de ingeniero electricista y no en computacion)nunca le tome importancia a esto. quiero aprender esto para ciertas aplicaciones que quiero hacer en mi negocio. gracias de nuevo

200.126.144.27

Martes, 17 de Agosto de 2010 a las 21:19:11

Por: E_Max (258963nolo@gmail.com)

hola mira ya baje mas de 30 instaladores del turbo pascal (vercion 1,vercion3.02 y veercion 5.5) y ninguno anda queria saber si es porque tengo windows 7 premium o que porque lo nesesito para amñana a la mañana
si me pueden desir lo mas pronto posible les agradesco mucho
salu2 e_max

190.49.162.195

Domingo, 06 de Junio de 2010 a las 21:58:51

Por: Nahue

disculpa, no tendrás un link de manejos de archivos que funcione¿? Gracias

190.228.209.26

Lunes, 17 de Mayo de 2010 a las 22:47:26

Por: Diego Romero

carlos holguin:
Gracias y que le aproveche :).

200.118.198.69

Lunes, 17 de Mayo de 2010 a las 16:42:32

Por: Carlos Holguin

Felicitaciones por esta página, estos códigos ... etc, etc... felicitaciones, nada personal, Lo utilizaré para estudiantes del grado once

186.124.233.206

Jueves, 08 de Abril de 2010 a las 13:19:29

Por: Diego Romero

José:
Hasta donde sé la biblioteca MATH.TPU pertenece a Borland Pascal 7.0 y no a Turbo Pascal 7.0. Lo que yo ofrezco en esta página es Turbo Pascal y no Borland Pascal. Te sugiero que busques esa biblioteca en Google.

190.246.95.216

Jueves, 08 de Abril de 2010 a las 09:49:46

Por: José (josealmiron@gmail.com)

Diego,
He instalado Turbo Pascal 7.0 y quedo todo ok, solo en no tengo el archivo math.tpu entonces al querer compilar algun programa que utilice esa libreria no me funciona, queria saber si, no trae esa libreria turbo pascal 7.0 o cual puede ser mi problema.
Desde ya gracias.

Saludos

190.228.223.161

Jueves, 18 de Marzo de 2010 a las 16:13:56

Por: Diego Romero

David:
¿Cualquier versión del TASM (Turbo Assembler)?, porque en algún CD perdido por acá tengo el TASM pero no sé qué versión es... :S

201.201.17.254

Lunes, 15 de Marzo de 2010 a las 23:10:07

Por: David

Jaja! A todos nos pasa eso de vez en cuando! :D
Bueno es con FreePascal, yo use la versión 2.4.0. Se agrega el compilador a las variables de entorno para usarlo desde el DOS, despu és de esto se busca el TASM (un ensamblador con sintaxis Intel) y se pone en la misma carpeta donde se encuentra el archivo .pas que se va a compilar. Luego de esto se debe poner la instrucción:
fpc -Atasm nombreArchivo.pas
Obviamente cambiando el nombreArchivo.pas por el nombre del archivo a compilar y listo! Se te hacer un .s con el código ensamblador en sintaxis Intel! :D

Pura vida como decimos en mi país Costa Rica! :D

190.30.63.252

Lunes, 15 de Marzo de 2010 a las 20:52:58

Por: Diego Romero

¡Pero qué tonto he sido!. ¡Por años ha estado aquí ese programa con ese error tan tonto!. Mil disculpas José, no tengo excusas...

Ya he reparado la metida de pata y prometo escribir "debo revisar los códigos fuentes que publico antes de publicarlos" mil veces (y sin usar copy & paste) :P.

190.18.119.31

Domingo, 14 de Marzo de 2010 a las 23:55:48

Por: Jose

Ya encontre el error!! :D

En vez de longint esta puesto longLnt :D lo corregi y anda joya!

Soy feliz! jaja. Gracias.

190.18.119.31

Domingo, 14 de Marzo de 2010 a las 15:57:52

Por: Jose

Hola, disculpa que vuelva a molestarte... volvi a reinstalar todo de acuerdo a la pagina, y esta vez sin aplicar el parche y probe con tu programa "Romanos" y mira lo que aparece:

(imagen)

(Es lo mismo que te dije antes)..

Que puedo hacer??

Gracias!!

190.30.63.252

Sábado, 13 de Marzo de 2010 a las 22:57:02

Por: Diego Romero

David:
¡Por supuesto!, venga ese truco :)

201.201.17.254

Sábado, 13 de Marzo de 2010 a las 13:43:42

Por: David

Hola! Ya lo logre pero tuve que usar Free Pascal 2.4.0. Si estas interesado te paso como se hace, sino gracias por la ayuda! :D

201.201.17.254

Sábado, 13 de Marzo de 2010 a las 12:58:54

Por: David

Jeje! Tengo un trabajo de la Universidad de un curso de Automatas y Compiladores en el que nos estan pidiendo que hagamos el mismo programa en Pascal y en C++ para obtener el codigo ensamblador y compararlo entre ambos... Bueno de todos modos gracias! Seguire buscando!

190.30.63.252

Sábado, 13 de Marzo de 2010 a las 06:09:09

Por: Diego Romero

Jose:
En ese caso ignoro qué puede estar pasándote...

David:
No, no es posible obtener eso. No con Turbo Pascal, pero en su momento existían programas desensambladores. No sé si se pueden conseguir ahora (hablamos de hace 15 años atrás).

Pregunta de curioso: ¿por qué quieres obtener eso?.

201.201.17.254

Viernes, 12 de Marzo de 2010 a las 22:56:03

Por: David

Buenas! Esta muy buena la ayuda pero me queda una pregunta. Hay alguna forma para que al compilar desde el DOS con turbo Pascal se me genere el archivo con el codigo ensamblador? Les agradeceria me aclararan la duda. Gracias!

200.5.119.60

Viernes, 12 de Marzo de 2010 a las 18:58:31

Por: Jose

La hice tal cual las instrucciones tuyas, y le aplique el parche. Voy a probar esta noche borrar todo y hacerla de nuevo a ver que pasa.
Adelante Arriba
1 2 3 4 5 6 7 8 9
cerrar
Espera un momento...
Cargando...
Ups!, algo anda mal.