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

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

Solicitamos un numero y determinamos si es par o impar

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

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.

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

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

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

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

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

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 usuario puede introducir un número arábigo entre 1 y 1000, luego el programa lo convertirá en un número romano.

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

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

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

Código que halla los números de la secuencia de Fibonacci hasta el termino 174 y los escribe en el fichero fibonum.txt.
En la secuencia de Fibonacci el término Fn es igual a la suma de los dos precedentes siendo F0=0 y F1=1.
Desarrollado en Turbo Pascal 7.0.

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

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

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

Juego del ajedrez en modo gráfico para 2 jugadores.

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

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 )

Introduccir dos numeros uno menor a 4 digitos y uno mayor, y que el programa pueda decirme si algun digito del primer numero se encuentra en el de mayor cantidad....

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

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

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.

Juego que consiste en ordenar una matriz de 4 filas * 4 columnas, que generan números aleatorios del 1 hasta 15.
Desarrollado en Turbo Pascal 7.0

Buscaminas realizado con arreglos. Permite poner las minas en el tablero, guardar y cargar el tablero con nuestras minas, incluso permite especificar el numero de filas y columnas del tablero.
Incluye manuales de funcionamiento y instalación tanto para Windows como para Linux.