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

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

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

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

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.

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.

El programa sirve para indicar al usuario un elemento cualquiera de la tabla periódica.

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

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”.

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

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

Programa que lee N numeros enteros y/o reales y los ordena por el método de ordenación Burbuja en forma ascendente.....compilado en Borland Pascal para Windows Version 7.0

Programa que calcula la fecha del domingo de pascua de N año en particular. La Fecha de Pascua corresponde al primer domingo después de la primera Luna Llena que sigue el equinoccio de primavera y se calcula con las siguientes expresiones:
A = AÑO MODULO 19
B = AÑO MODULO 4
C = AÑO MODULO 7
D = ( 19 * A + 24 ) MODULO 30
E = ( 2 * B + 4 * C + 6 * D + 5 ) MODULO 7
N = ( 22 + D + E )

Código que permite ver el signo zodiacal con sus respectivas características según el mes y el día introducido por el usuario. Creado en Turbo Pascal 7.

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

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

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

Implementación de números aleatorios a modo de ejemplo mediante la realización de un campeonato de fútbol.

Programa para graficar funciones trigonométricas. Realizado en Turbo Pascal 7.0

El siguiente programa permite ingresar :
-numero de folio del alumno
-nombre del alumno
-materias
-calificaciones
-dar el promedio final
-decir si el alumno esta APROBADO O REPROBADO

Este programa es para resolver ecuaciones de segundo grado en pascal

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.

Simulación de juego del bingo donde se muestra, en modo gráfico, el tablero de números. Se controla la partida con cualquier posible resultado.

Coge el texo a codificar y le 'suma' una clave, con lo que tenemos el texto codificado. Si queremos el texto original tendremos que 'restarle' la clave que antes le habiamos sumado.

Código que convierte un numero romano a decimal.
Creado con Turbo Pascal 7.0.

Convierte de una base 10 a una base de 2 a 16

Puede ser Complilador en Free Pascal o Turbo Pascal

Código que realiza la ordenación de un array constante por el método de ordenación Quicksort, devolviéndolo ordenado.

Código que simula el funcionamiento de un piano con el teclado.

Código que simula un radar.
Desarrollado en Turbo Pascal 7.0

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