Coleccion De Programas En Pascal

program Proyectofinal;
{var}
uses crt,dos;
var opc:integer;
h, m, s, hund : Word;
h2,m2,s2,hund2 :word;
delta_h, delta_m, delta_s, delta_hund: integer;
{varperfecto1}
var i1,x1:integer;
n11:boolean;
a1:array[1..3]of integer;
{varprimo2}
var n2,i2,error12:integer; b2:boolean; can12:string;
{var opera fracciones3}
type
fraccion=record
numerador:integer;denominador:integer;
end;
var f13,f23,sum3,rest3,mult3,divi3:fraccion;
var can13,can23,cad13,cad23:string; n13,n23,d13,d23,error13,error23,error33,error43:integer;

{Factorial iterativo4}
var ca4:string;error14:integer;n14,f4:integer;

{Factorial Recursivo 5}
var ca5:string;error15:integer;n15,f5:integer;

{Fibonacci Iterativo6}
varnum6:string;n16,f6,error6:integer;

{fibonacci recursivo 7}
var num7:string;n17,f7,error7:integer;

{fibonacci recurrencia 8}
var num8:string;error8:integer; f8,n18:longint; t8,T18:extended;

{hanoi 9}
VAR N9,error19:integer; ca19:string;

{burbuja 10 a}
const
Limitea=5000;
type
telema=integer;
rangoa=0..limitea;
listaa=array [rangoa] of telema;

var
ListaItema:listaa;
numitemsa:telema;
varca1a:string; error1a:integer;

{quicksort 11 b}
type
enterosb=array[1..50000] of integer;
var
listab:enterosb;
kb,ib,jb,centralb:integer;
ca1b:string; error1b,lb:integer;

{mergesort 12 c}
const
Limitec=5000;
type
rangoc=0..limitec;
listac=array [rangoc] of integer;

var
ListaItemc:listac;
lista2c:listac;
Numitemsc:integer;
var
ca1c:string; error1c:integer;{interesiterativo 13 d}
var
nd,id:integer;
ca1d:string;error1d:integer;
rd:real;

{interesrecurrencia 14 e}
var
ne:integer;
ca1e:string;error1e:integer;
re,rese:real;
{movimientos hanoi 15 f}
VAR Nf,error1f,tf:integer; ca1f:string;
{monedas voraces 16 g}
Type
monedasg=record
valorg:integer;
cantidadg:integer;
end;

varag:array[1..10] of monedasg;
can1g,can2g:string;
n1g,n2g,ig,cg,pg:integer;
error1g,error2g:integer;

{permutaciones divide y venceras 17 i}
var
xi:array [0..9] of integer;
ni,errori,fai:integer;
cai:string;

{fibonacci programaciondinamica}
type
tDominiok = 1..46;
tTablak = array [tDominiok] of record
definidok: boolean;
resultadok: integer
end; {record}var
tablaFibk: tTablak;
var numk:string;n1k,fk,errork,ik:integer;
{Menu}
Function Menu ():integer;

var op:integer;
begin
repeat
writeln ('Escoge el programa que deseas ejecutar');
writeln;
writeln ('1.-Numero Perfecto(Genera los 3 primeros)');
writeln ('2.-Numoro Primo(Dice si un numero es primo o no)');
writeln('3.-Operaciones basicas con Fracciones');
writeln ('4.-Calcular el Factorial(iterativo)');
writeln ('5.-Calcular el Factorial(recursivo)');
writeln ('6.-Termino n de la Serie de Fibonacci(iterativo)');
writeln ('7.-Termino n de la Serie de Fibonacci(recursivo)');
writeln ('8.-Termino n de la Serie de Fibonacci(uso de recurrencia)');writeln ('9.-Movimientos en las Torres de Hanoi');
writeln ('10.-Ordenamiento Burbuja');
writeln ('11.-Ordenamiento Quicksort');
writeln ('12.-Ordenamiento Mezclas');
writeln ('13.-Interes Compuesto(iterativo)');
writeln ('14.-Interes Compuesto(uso de recurrencia)');
writeln ('15.-Total de movimientos en las Torres deHanoi(recurrencia)');
writeln ('16.-Problema del Cambio(Algoritmos Voraces)');
writeln ('17.-Generar Permutaciones(Divide y Venceras)');
writeln ('18.-Termino n de la Serie de Fibonacci(Programacion Dinamica)');
writeln ('19.-Problema de Asignacion (Vuelta Atras)');
writeln ('20.-Problema de Asignacion (Ramifica y Poda)');
writeln...