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

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 código de Turbo Pascal sirve para poder sumar,restar,multiplicar y dividir fracciones.

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

Código para la gestión de contactos que utiliza arreglos dinámicos.
Permite altas, consultas, modificaciones, bajas y listados ordenados.
Probado por Free 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 resolver ecuaciones de segundo grado en pascal

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

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

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

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

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

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

program practica(input, output,f1,fmovi,f2);
type
cadena30 = packed array[1..30] of char;
opcion=(a,m);
tfalant = record
an_nma:1..999;
an_nom:cadena30;
an_dir:cadena30;
an_rva:boolean;
an_nfal:0..365;
an_nsus:0..25;
end;

tmovi = record
mv_nma:1..999;
mv_nom:cadena30;
mv_dir:cadena30;
mv_tip:opcion;
end;

tfalum = record
al_nma:1..999;
al_nom:cadena30;
al_dir:cadena30;
end;

ffalant = file of tfalant;
fmove = file of tmovi;
ffalum = file of tfalum;

var
i:integer;
c:char;
f1:ffalant;
f2:ffalum;
fmovi:fmove;
rfalant:tfalant;
rmovi:tmovi;
rfalum:tfalum;
seguir:boolean;

function continuar(raux:tfalant):boolean;
begin
continuar:= true;
if raux.an_rva=false then
begin
writeln('El alumno,',raux.an_nom,'no tiene reserva.');
continuar:= false;
end;
if raux.an_nfal>50 then
begin
writeln('El alumno, ',raux.an_nom,' tiene mas de 50 faltas.');
continuar:=false;
end;
if raux.an_nsus>3 then
begin
writeln('El alumno, ',raux.an_nom,' tiene mas de 3 asignaturas suspensas');
continuar:= false;
end;
end;

procedure copy_falum(raux:tfalant;var rfalum:tfalum);
begin
rfalum.al_nma:=raux.an_nma;
rfalum.al_nom:=raux.an_nom;
rfalum.al_dir:=raux.an_dir;
end;

procedure copy_falum2(raux2:tfalant;raux:tmovi;var rfalum:tfalum);
begin
rfalum.al_nma:=raux.mv_nma;
if raux.mv_tip=m then
rfalum.al_nom:=raux2.an_nom
else
rfalum.al_nom:=raux.mv_nom;
rfalum.al_dir:=raux.mv_dir;
end;

procedure busqueda(raux:tmovi; var raux2:tfalant;var encontrado:boolean);
var
f1:ffalant;
begin
encontrado:=false;
assign(f1,'falant.dat');
reset(f1);
while (not eof(f1)) and (encontrado=false) do
begin
read(f1,raux2);
if raux2.an_nma=raux.mv_nma then
encontrado:= true;
end;
end;

begin
assign(fmovi,'movi.dat');
rewrite(fmovi);
while not eof do
begin
for i:=1 to 24 do writeln;
write('Escriba el n£mero de matr¡cula del alumno: ');
readln(rmovi.mv_nma);
write('Escriba el nombre y los apellidos del alumno: ');
i:=1;
while not eoln do
begin
read(rmovi.mv_nom[i]);
i:=i+1;
end;
for i:=1 to 30 do rmovi.mv_nom[i]:=' ';
write('Escriba la direcci¢n del alumno: ');
readln;
i:=1;
while not eoln do
begin
read(rmovi.mv_dir[i]);
i:=i+1;
end;
for i:=i to 30 do rmovi.mv_dir[i]:=' ';
write('Tipo de operacion que desea realizar (a/m) :');
c:='w';
while (c<>'a') and (c<>'m') do
read(c);
case c of
'a': rmovi.mv_tip:=a;
'm': rmovi.mv_tip:=m;
end;
write('N£mero de faltas en el curso anterior: ');
readln(rfalant.an_nfal);
write('N£mero de asignaturas suspensas: ');
readln(rfalant.an_nsus);
write('Si no desea introducir otro registro pulse CTRL-Z ');
write(fmovi,rmovi);
readln;

end;
assign(f1,'falant.dat');
reset(f1);
assign(f2,'falum.dat');
rewrite(f2);
reset(fmovi);
read(f1,rfalant);
read(fmovi,rmovi);
writeln;


for i:=1 to 24 do writeln;
while (not eof(fmovi)) and (not eof(f1)) do
begin
if rfalant.an_nma<rmovi.mv_nma then
begin
seguir:=continuar(rfalant);
if seguir=true then
begin
copy_falum(rfalant,rfalum);
write(f2,rfalum);
end;
read(f1,rfalant)
end
else
begin
if rmovi.mv_nma=rfalant.an_nma then
begin
if rmovi.mv_tip=a then
begin
writeln('Error, no se puede dar de alta a',rmovi.mv_nma);
end
else
begin
seguir:=continuar(rfalant);

if seguir=true then
begin
copy_falum2(rfalant,rmovi,rfalum);
write(f2,rfalum);
end;
read(f1,rfalant);
read(fmovi,rmovi);
end;
end
else
begin
if rmovi.mv_tip=a then
begin
copy_falum2(rfalant,rmovi,rfalum);
write(f2,rfalum);
end
else
writeln('Error, no se puede modificar al alumno ',rmovi.mv_nma,'anulado.');
read(fmovi,rmovi);
end;
end;
end;
while not eof(f1) do
begin
seguir:=continuar(rfalant);
if seguir=true then
begin
copy_falum(rfalant,rfalum);
write(f2,rfalum);
end;
read(f1,rfalant);
end;
seguir:=continuar(rfalant);
if seguir=true then
begin
copy_falum(rfalant,rfalum);
write(f2,rfalum);
end;
while not eof(fmovi) do
begin
if rmovi.mv_tip=m then
begin
busqueda(rmovi,rfalant,seguir);
if seguir=false then
writeln('Error, no puede modificarse al alumno ',rmovi.mv_nom, 'ya que no est  matriculado.')
else
end
else
begin
copy_falum2(rfalant,rmovi,rfalum);
write(f2,rfalum);
end;
read(fmovi,rmovi);
end;
if rmovi.mv_tip= m then
begin
busqueda(rmovi,rfalant,seguir);
if seguir=false then
begin
writeln('Error, no puede modificarse al alumno',rmovi.mv_nom);
end
else
begin
copy_falum2(rfalant,rmovi,rfalum);
write(f2,rfalum);
end;
end
else
begin
copy_falum2(rfalant,rmovi,rfalum);
write(f2,rfalum);
end;
close(f1);
close(f2);
close(fmovi);
readln;
end.

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.

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

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.

Buscaminas realizado con listas dinámicas. 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 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

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

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.

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

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

Código que simula el juego del Bingo utilizando el modo gráfico.
Desarrollado en Turbo Pascal 7.0

Este programa esta diseñado para que edite una linea en un archivo y técnicamente no pueda ser recuperado su contenido para fines de privacidad.
Por ejemplo que solamente edite a partir de la carpeta CONTENT.IE5 todas sus ramas y posteriormente los elimine.
Desarrollado con Turbo Pascal 5.5.

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

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.