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

Listado de los códigos más visitados durante los últimos 30 días
Imágen de perfil
Val: 4
Ha aumentado su posición en 6 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Calculadora básica


105 visualizaciones el último mes

Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 4 de Octubre del 2015 por Guajardo (21 códigos)
25.641 visualizaciones desde el 4 de Octubre del 2015
calculadora básica (+, - , *, / , %) en Pascal, esto es de ayuda ya que muchos necesitan códigos básico de apoyo por eso lo comparto . saludos
Imágen de perfil
Val: 12
Ha disminuido su posición en 3 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Suma del 1 al 10


61 visualizaciones el último mes

Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 18 de Febrero del 2021 por Henry
4.753 visualizaciones desde el 18 de Febrero del 2021
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.
sin imagen de perfil
Val: 36
Ha aumentado su posición en 4 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Adivina un numero de 1 al 63 que pensaste


58 visualizaciones el último mes

Pascal/Turbo Pascal

Actualizado el 28 de Junio del 2021 por Armando José (9 códigos) (Publicado el 26 de Junio del 2021)
28.045 visualizaciones desde el 26 de Junio del 2021
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
sin imagen de perfil
Val: 8
Ha disminuido su posición en 4 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Codigo QR, Codigo de Barras,Contraseña.


53 visualizaciones el último mes

Pascal/Turbo Pascal

Publicado el 6 de Agosto del 2019 por Adrian
3.090 visualizaciones desde el 6 de Agosto del 2019
BASADO EN EL ENUNCIADO (ARCHIVO PDF ADJUNTO).

Aclaro que el unico ejercicio que hice yo fue el de Codigo QR, faltan algunas cosas, pero basicamente la idea es esa.
sin imagen de perfil

Practica


45 visualizaciones el último mes

Pascal/Turbo Pascal

Publicado el 1 de Agosto del 2021 por Jose Miguel (9 códigos)
874 visualizaciones desde el 1 de Agosto del 2021
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.
sin imagen de perfil

Juego del bingo


28 visualizaciones el último mes

Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 27 de Marzo del 2003 por Max Bermudez Leon
16.757 visualizaciones desde el 27 de Marzo del 2003
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.
sin imagen de perfil

Cálculo de la fecha del domingo de pascua del N año en Pasca


26 visualizaciones el último mes

Pascal/Turbo Pascal

Publicado el 11 de Julio del 2002 por Victor Manuel Evaristo Salinas (8 códigos)
15.746 visualizaciones desde el 11 de Julio del 2002
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 )
Imágen de perfil

Agenda


25 visualizaciones el último mes

Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 1 de Abril del 2003 por Wilmer Fariñas (7 códigos)
16.997 visualizaciones desde el 1 de Abril del 2003
Agenda que permite guardar en un archivo de texto y consultar en los datos guardados por nombre, fecha o hacer una consulta general.
Imágen de perfil
Val: 29
Ha disminuido 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Tabla Periódica


23 visualizaciones el último mes

Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(1)
Actualizado el 16 de Septiembre del 2018 por Maurico (3 códigos) (Publicado el 10 de Septiembre del 2018)
2.954 visualizaciones desde el 10 de Septiembre del 2018
El programa sirve para indicar al usuario un elemento cualquiera de la tabla periódica.
sin imagen de perfil

Agenda de contactos telefonicos


21 visualizaciones el último mes

Pascal/Turbo Pascal

Publicado el 2 de Julio del 2010 por Jonathan Ferreyra (2 códigos)
6.724 visualizaciones desde el 2 de Julio del 2010
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.
sin imagen de perfil

Music Maker


21 visualizaciones el último mes

Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(3)
Publicado el 24 de Febrero del 2008 por Jesús Arroyo Torrens
6.027 visualizaciones desde el 24 de Febrero del 2008
Código en TurboPascal, que permite componer, almacenar y reproducir tus propias melodías.
sin imagen de perfil

Juego de la serpiente


20 visualizaciones el último mes

Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(4)
Publicado el 27 de Octubre del 2003 por Santiago Alvarez (3 códigos)
23.781 visualizaciones desde el 27 de Octubre del 2003
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.
sin imagen de perfil

Matrix


19 visualizaciones el último mes

Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(19)
Publicado el 30 de Octubre del 2003 por Santiago Alvarez (3 códigos)
21.922 visualizaciones desde el 30 de Octubre del 2003
Código que simula la pantalla de la película Matrix, con caracteres aleatorios cayendo por la pantalla.