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

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

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

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

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

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

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

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

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

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.

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.

Se trata de un programa basico sobre la gestión de un aeropuerto, con reservas y consultas de las mismas. Para información de las condiciones de los vuelos y reservas ver los comentarios del codigo fuente de pascal.

Este es el código para calcular el determinante de una matriz cuadrada.

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 )

Este método se basa en el método de cardano para calcular una raíz cubica de acuerdo a lo publicado en Wikipedia

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.

El Programa esta diseñado para que se ejecute dentro de una carpeta que contenga MP3 y extraiga 06 segundos del contenido a partir del segundo 13, esta variable se puede modificar cambiando las variables señaladas.
Desarrollado con Turbo Pascal 5.5.

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

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.

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

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

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

Mediante un bucle que va recorriendo el array de enteros, guardara en una variable el valor máximo y mínimo.

Posee la operaciones básicas de agregar, editar y eliminar un contacto.
La misma genera un archivo llamado "agenda.dat" que contiene todos los registros.
Realizado con la versión de TMT 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.

Este pequeño programa es un "Machete", el cual te calcula la superficies de las siguientes figuras: Cuadrado, triángulo, rectángulo, paralelogramo, trapecio, rombo, romboide, círculo. También calcula el perímetro de: Triángulo, cuadrado, rectángulo, paralelogramo, trapecio isósceles, rombo, romboide, polígonos regulares, circunferencia, arco de circunferencia. Además, calcula pitágoras. Puede descifrar un cateto o la hipotenusa. También cuenta con una tabla de multiplicación, la cual multiplica un numero hasta otro numero que usted ingrese. Y para finalizar, cuenta con una pequeña calculadora, que contiene: suma, resta, multiplicación, división [Solo dos numeros], potenciación, y radicación.

Programa realizado en Turbo Pascal 7.0