Viene de: Indice -> Programación

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.

Contenido.


Códigos Fuentes.

Pascal Coder Pascal Coder
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. 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.)

Mensajes de error en Turbo Pascal 7.0

Ir al listado de Mensajes de error...


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:

Tutorial instalación del IDE de Turbo Pascal 7.0.

Ir al tutorial...

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 - 29 de Octubre del 2006


Comentarios
Viernes, 5 de Septiembre del 2008 a las 13:39:13
Diego Romero 200.117.90.91
Miguel:
De nada :).
Jueves, 4 de Septiembre del 2008 a las 20:47:12
miguel 190.225.61.219
soy estudiante de analista en sistemas y te digo que simplemente todo esto es EXELENTE!
gracias de todo corazon.
Miércoles, 3 de Septiembre del 2008 a las 15:00:41
GIOVANNI 157.100.154.45
hola deseo el juego de la serpiente en turbo pascal tambien facilitenme en archivo graph.Tpu me pide cuando deseo ejecutar un programa con grafico responda a mi mail GRACIAS
Miércoles, 27 de Agosto del 2008 a las 02:03:27
Diego Romero 190.225.81.181
Kenny Gonzales:
He vuelto a probar el programa verbmp.pas y obtuve lo mismo que has comentado (peor aún, mi monitor se fue de sincronía oops!). Esto en Windows XP, sin embargo en Windows 98 me sigue funcionando bien.
Mi conclusión es que el driver SVGA256.BGI es incompatible con los drivers de video de Windows XP.
De todas formas mi programa está obsoleto. No vale la pena gastarse con él habiendo mejores compiladores como Free Pascal que tienen bibliotecas especializadas mucho mejores que la que usa Turbo Pascal. El programa quedará solo como una curiosidad más.
Martes, 26 de Agosto del 2008 a las 21:06:08
Kenny Gonzales 201.240.41.102
Hola
Me parece muy noble dar tus programas de manera libre.
Solo una consulta; En tu programa para visualizar una imagen bmp, por que es que no puedo ver las imagenes, ni sikiera la imagen que das de muestra.
Luego de que aparecen los datos de la imagen la pantalla se queda en color negro, como si se apagara el monitor.

Si es cosa de la computadora, cuales son los parametros, para que corra bien.
Viernes, 15 de Agosto del 2008 a las 14:30:38
mabo 190.129.19.3
esto esta super gracias por la informacion que esta en este explorador, me ayudo de mucho se los recomendare a compañeros que estan interesados en estos lenguajes.
y espero que sigan introduciendo mas lenguajes de programcion con los de talles mas importante.
Lunes, 11 de Agosto del 2008 a las 15:07:32
Diego Romero 200.117.88.220
Alejandro:
De nada... ;)
Martes, 5 de Agosto del 2008 a las 18:43:11
Alejandro 190.47.174.45
Muchas gracias por subir toda esa informacion, me ha servido de mucho :D
Jueves, 17 de Julio del 2008 a las 14:21:23
Erk C. (yejc27@hotmail.com) 190.56.249.18
Hola, alguien podria ayudarme a corregir un error cuando compilo mi programam me da division by 0 error 200 o algo como esto, estoy usando la libreria de graph, alguien me ayuda a resolverlo ?? y me pueden dar orientacion sobre como dibujar una bandera es decir el rectangulo con las partes de adentro y rellenar cada parte ?
Jueves, 17 de Julio del 2008 a las 11:32:49
David 85.55.192.10
A vale gracias...es que no esta muy catolico el servidor donde tienes alojada la pagina(:S)...venga enhorabuena y a seguir.
Página 1 de 15 con
 resultados por página.

Agrega tu comentario.

Autor:
E-mail: Hacer visible mi e-mail
Comentario:
Puedes usar BBcodes
Caracteres restantes:
Validación: escribe estas letras escribe estas letrasaquí: luego haz clic aquí:
Mensajes que no se ajusten razonablemente al idioma castellano serán eliminados. No te cuesta nada escribir correctamente o usar signos de puntuación.
Importante: este no es un sitio para pedir que te hagan la tarea.

Regresar a programación e informática.