Los códigos más visitados de Pascal/Turbo Pascal

el programa consiste en:

Piensa en un número entre 1 y 63.
Se mostrará 6 tarjetas, en cada
una de ellas debes teclear la letra
[S] y luego Enter si está el
número que pensaste o
[N] si no está el número.
Teclear Enter para continuar

Solicitamos un numero y determinamos si es par o impar

calculadora básica (+, - , *, / , %) en Pascal, esto es de ayuda ya que muchos necesitan códigos básico de apoyo por eso lo comparto . saludos

Programa que determina si un número N es primo. (Un número primo sólo puede ser divisible por el mismo y la unidad...compilado en Borland Pascal para Windows Versión 7.0

Este programa es para resolver ecuaciones de segundo grado en pascal

Juego del "tetris" usando solo la unidad crt de Pascal.
Compilado con "Free Pascal" Version 1.0.8.

Programa que determina si un año es Bisiesto. Un año es bisiesto si es múltiplo de 4 (1988), excepto los múltiplos de 100 que no son bisiestos salvo que a su vez también sean múltiplos de 400
(1800 no es bisiesto, 2000 si es bisiesto)...compilado en Borland Pascal para Windows Version 7.0

Este código de Turbo Pascal sirve para poder sumar,restar,multiplicar y dividir fracciones.

Este programa es para hacer una factura de una tienda en incluye subtotal, total e iva

Modulo (unit) que sirve para la creación de menús de forma automatizada.
Desarrollado en Free Pascal.

Código del popular juego de la serpiente en el que podemos personalizar el nivel de dificultad y la cantidad de números a perseguir. Programado en el modo gráfico del lenguaje.

El procedimiento muestra el avance de un proceso con la ayuda de una Variable Fija que es el 100% de un proceso y otra variable cambiante.
Uso del GotoXY, Write, WriteLn, Multiplicacion, División, Procedimientos , Clrscr, For, To, DownTo, Do, If, Then, Else, entre otras.
Programado en Turbo Pascal 5.5

Clásico juego del ahorcado, donde un usuario ingresa una palabra y el otro usuario tiene que adivinar.
Compilado en Turbo Pascal 7

Este código fue utilizado de manera didáctica a nivel bachillerato para comprender el funcionamiento de CASE-OF, durante los procedimientos pueden alterar el código con la forma correspondiente para sacar el area y perimetro de cualquiera de las figuras.

Código de un programa que desarrolle, en el que se ingresa un numero de 4 cifras y este lo pasa a texto, (ejemplo 551 = quinientos cincuenta y uno), tiene un solo problema que cuando se pone un numero de decena mayor a cero y unidad igual a 0 queda una Y de mas en el texto, (ejemplo: 530= quinientos treinta y), pero el cual es fácil de solucionar.

Saludos Herni.

Desarrolle un algoritmo que realice la sumatoria de los números enteros comprendidos entre el 1 y el 10, es decir, 1 + 2 + 3 + …. + 10.

Juego de la serpiente con varios niveles de juego.
Probado con Free Pascal 1.0.10

El usuario puede introducir un número arábigo entre 1 y 1000, luego el programa lo convertirá en un número romano.

Una unit(primo.pas) con tres funciones para determinar si un número es primo. También otras dos units, allprime.pas con todos los números primos desde 2 hasta 46337 y time.pas para saber el tiempo de ejecución de un programa. Y dos programas auxiliares.
OBJETIVO: Optimizar lo mejor posible la función que determina si un número es primo.
Creado con TP 7.0

Es el clasico juego del gato ("O" o "X") utilizando sentencias basicas del Turbo Pascal 7.0.

Programa que permite crear un árbol y ordenarlo en pos-orden, in-orden o pre-orden.

Implementación del juego del ahorcado en Pascal. Incluye menús e interficie de juego.

Gestión de una lista de canciones y sus autores.

codigo fuente de una calculadora con menu programada en pascal.

Este programa esta creado para administradores de Whatsapp…

Objetivo
Mostrar por horarios, correspondientes al día especificado, la cantidad de veces que los usuarios de Whatsapp han participado (enviado mensajes), datos representados en una tabla con formato “.htm”.

Funcionamiento
El Programa lee un archivo de texto creado por la aplicación "Whatsapp", cuando el usuario usa la acción "Enviar chat por correo". Ese archivo resultante al día de hoy (2017) está en formato de texto, es asignado un nombre de archivo que inicia con "Chat de Whatsapp con....txt" y se guarda en la carpeta ".Shared" del dispositivo, o bien en el correo electrónico seleccionado.

Nota
Gracias a los emuladores de MS-DOS, funciona en un dispositivo con Sistema Android, de tal manera que la forma correcta de ejecutarlo; es alojando el programa y “montar la unidad C:\” en la carpeta “.Shared” de “Whatsapp”.

Programa que calcula el mcd de dos números enteros mediante el algoritmo de Euclides.
Creado con TP 7.0

Juego del sudoku en modo gráfico. Realizado en Turbo Pascal 7.0. Es necesario disponer de la librería "graph".

Juego de las torres de hanoi en modo gráfico con varios niveles. Almacena los records de los jugadores.
Hecho en TP 7.0

Típico juego hundir la flota realizado en Turbo Pascal.