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

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

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

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

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

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

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

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

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

El objetivo del Programa es recortar el principio o final de una melodía, cuando el inicio de una melodía MP3 tarda en iniciar porque esta vacía o su inicio muy largo.
Utiliza: Procedimiento BarradeProgreso, GotoXY, WriteLn, Procedimientos, For, To, DownTo, While, Repeat, Until, If, Then, Else, Assign, Reset, Append, Rewrite,Erase, GetDir, Exec, GetEnv, Readln, Halt, Case, Inc, Dec, entre otros básicos.
El Programa CUTMP3 esta diseñado para que se ejecute dentro de una carpeta que contenga MP3.
Programado en Turbo Pascal 5.5

Código que muestra el calendario de un mes y año dado por el usuario.

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.

Convierte de una base de 2 a 16 a base 10

Práctica de programación que consistente en una estructura de Árbol (estructura jerárquica compuesta por elementos denominados nodos).
Permite definir el árbol y buscar un elemento en su interior, devolviendo los valores inferior y superiores al elemento buscado.

En este código se guardan los datos de los clientes para una Agencia Toursven. Este programa se maneja con ficheros, se puede ver el código rutinas para guardar datos, modificar, eliminar y consultar datos. Además, tiene una rutina sencilla para validar fecha con trystrtodate. Quizás no sea el mejor código pero espero que ha alguien le sea de ayuda y lo comparto. Gracias a este sitio web pude realizarlo.

Código fuente del juego de los reyes.
Realizado con Dev-Pascal 1.9.2.

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

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

Modulo (unit) que implementa los metodos de ordenador de:
la burbuja, selección, inserción, shell, sacudida (Shaker sort) y ordenamiento por montículos (Heap sort)
Desarrollado en Free Pascal.

Este es un programa que simula al WINDOWS 95 desde que inicia hasta que se apaga, está en modo DOS y 320x200; además se puede arrastrar las ventanas desde la barra de titulo... hasta tiene un papel tapiz q se puede editar, un calendario y otras cosas.

Contiene funciones de Ingenería Economica.

Al insertar en la computadora una USB o PenDrive Ejecutar el programa...elimina los archivos incrustados por programas SPYWARE en la raíz de las USB (PENDRIVE) así como en la carpeta RECYCLER.
Desarrollado en Turbo Pascal 5.5

Muestra las veces que se repite una palabra dentro de un listado previamente ordenado (el limite es dado por la capacidad de caracteres introducidos en un archivo datos.txt).
Desarrollado en Turbo Pascal 5.5

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.

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.

Utilidad para mostrar la tabla de verdad de una función lógica.

Utilidad para partir archivos grandes en archivos mas pequeños, permitiendo elegir el tamaño al usuario. A su vez, crea un archivo .bat que al ejecutarlo vuelve a formar el archivo original.
Compilado en Turbo Pascal 7

Agenda que permite guardar en un archivo de texto y consultar en los datos guardados por nombre, fecha o hacer una consulta general.

Código que permite saber el resto de dividir un número de hasta 250 (1*10^250) cifras por uno menor que 2*10^10.
Ejemplo: 1234787868564578989687568565765 al ser dividido por 4567 deja resto 1733.
Creado con Turbo Pascal 7.0