DriverOp La página de DriverOp.

Geolocalización por IP2Location.com

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.

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)

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:

  • 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 esto es absolutamente normal y se debe a que el IDE está en modo protegido del DOS y Windows XP debe hacer trabajo extra para maneter la compatibilidad.
  • 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.

Tutorial instalación del IDE de Turbo Pascal 7.0.

Ir al tutorial...

Diego Romero - 29 de Octubre del 2006


Comentarios.

Diego
(190.57.88.151)
#1: Domingo, 8 de Julio del 2007 a las 19:17:42 horas.
Miren no se usar el codigo grafico y necesito un programa con una historia que dure 5 minutos con codigo grafico por fa gracias

Diego Romero
(200.82.112.78)
#2: Miércoles, 4 de Julio del 2007 a las 04:01:05 horas.
Danny Diaz:
Presta más atención al contenido de esta página ;)

Danny Diaz
(216.72.29.4)
#3: Martes, 3 de Julio del 2007 a las 11:28:56 horas.
bueno para la persona que tiene error by 200 eso es porque no tenes la unidad fdelay en el uses declarala asi Uses fdelay,crt; y veras que te funcionara ahora si te sale Fdelay.tpu not found es porqe tenes que pasar de la carpeta de pascal que dice unidades copia todas las unidades a la carpeta que dice BIN donde esta el ejecutable de pascal y has lo mismo del uses fdelay,crt;
y eso sera todo......

epero te sirva de mucho .....espero tu respuesta a mi E-mail.....gracias


Diego Romero
(200.45.183.254)
#4: Sábado, 30 de Junio del 2007 a las 05:35:11 horas.
Jose, Walter:
Me es imposible reproducir el problema que comentan. ¿Será posible que me pasen más datos por correo?.

Jose
(85.136.175.228)
#5: Viernes, 29 de Junio del 2007 a las 08:37:30 horas.
Hola, yo tambien tengo el mismo problema que Walter, es decir, el progrma se ejecuta perfectamente, pero a la hora de visualizar el resultado del programa no sale nada. No se cómo solucionar esto

Dante Pacha
(190.40.33.48)
#6: Martes, 19 de Junio del 2007 a las 22:47:32 horas.
Nose si alguien me pueda ayudar es q mi profe dejo un trabajo de  ordenamiento por el metodo de la bubuja para ver el tiempò de ejecucion en cada progrma, en los programas: java, pascal, delphi, c++, visual vasic ps ahora me falta en delphi nose si alguien pueda ayudarme. dan_winner@hotmail.com

Willy De León
(190.56.79.198)
#7: Domingo, 17 de Junio del 2007 a las 14:46:39 horas.
Hola DriverOp !

A veces participo en el foro de Pascal de lawebdelprogramador.

Respondiste a mi solicitud de ayuda para copiar archivos en pascal.

No me cabe duda de que tienes mucho conocimiento porque te he observado en ese foro desde hace tiempo. Acabo de descargar todos tus codigos en Pascal, no me los perdería.

Te estoy agradecido por la información y te felicito por tu página.

Diego Romero
(200.117.224.165)
#8: Martes, 12 de Junio del 2007 a las 15:34:39 horas.
Joel:
Es verdad. Ambas versiones declaran ser la 7.0. Para distinguir una de la otra hay que mirar la fecha de creación de los archivos instalador del IDE, si dice las 7:00 horas es la versión 7.0, si dice las 7:01 horas es la versión 7.01.

delta
(190.37.16.15)
#9: Miércoles, 6 de Junio del 2007 a las 23:26:56 horas.

    until n>2.71;

end.


faltaron esas dos lineas...
se preguntaran q tiene q ver el 2.71; y es q la operacion q estoy haciendo al ejecutarla numerosas veces su valor tiende a ese numero

delta
(190.37.16.15)
#10: Miércoles, 6 de Junio del 2007 a las 23:25:32 horas.
Buenas, instale el programa para la correcion del error 200, el mismo se instalo a la perfeccion pero aun continua ejecutandose el error...:S me podrian ayudar es urgente:S

pd: anexo mi programa


program exp;
uses wincrt;

var

b,fact: real;
n,i: integer;

begin
b:=1;
    n:=1;
    repeat
      for i:=1 to n do
      begin
        fact:= fact*i;
        end;
        b:= b + (1/fact);
        write(b);
      n:=n+1;

Hay 54 mensajes | Mensajes más antigüos

Agrega tu comentario.

Autor:
E-mail: (no será publicado)
Comentario:
Caracteres restantes:
Validación: escribe estas letras escribe estas letrasaquí: luego haz clic aquí:

Regresar a programación e informática.


Counter Valid HTML 4.01 Transitional