Pascal/Turbo Pascal - Hago programas, doy clases

   
Vista:

Hago programas, doy clases

Publicado por Dani (159 intervenciones) el 23/02/2009 16:04:16
Si quieres que haga cualquier programa, necesitas ayuda o clases de programación, contacta conmigo.

Dime lo que quieres y para cuándo lo quieres, y te haré el presupuesto lo antes posible. Precios asequibles, trabajo rápido y eficaz

Email / messenger de contacto: danifg85@hotmail.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Permutaciones
- TTokenizer
- Ferreteria

RE:Hago programas, doy clases

Publicado por yuleidy (2 intervenciones) el 19/03/2009 02:56:30
hola como estas, sabes necesito un favor a ver si m puedes ayudar a terminar de hacer un programa xq s d opciones y sale solo l aopcion 1 q es el menu, pero como hago para que corra las otras opciones y para cambiarle l color al texto,,, se lo agradesco gracias d verdad gracias.. este es el programa..
Ejemplo: Administracion de Archivos de Usuario
PROGRAM AdministradorUsuarios (input, ArchUsuarios, output);

TYPE
RegistroUsuario = RECORD
NumIdentif : integer;
SistemaComp : char;
LimiteRecursos,
UsadosHastaHoy : integer
END;
ArchDeRegistroUsuarios = FILE OF RegistroUsuario;

VAR
Opcion : integer;
Usuario : RegistroUsuario;
ArchUsuarios : ArchDeRegistroUsuarios;

PROCEDURE MostrarMenu;
BEGIN
writeln('1- Mostrar Menu');
writeln('2- Crear un Archivo de Usuarios');
writeln('3- Agregar Usuarios a un Archivo');
writeln('4- Imprimir un Listado de Usuarios')
END; { MostrarMenu }

PROCEDURE ImprimirArchivoUsuarios(VAR ArchUsuarios : ArchDeRegistroUsuarios);
VAR
Usuario : RegistroUsuario;

BEGIN
reset(ArchUsuarios);
writeln('**********************************');
writeln('Num. identif. Sistema Lim. recurs. Recur. usados');
writeln;
writeln('============= ======= ============ =============');
WHILE NOT eof(ArchUsuarios) DO
BEGIN
read(ArchUsuarios, Usuario);
writeln(Usuario.NumIdentif:12, Usuario.SistemaComp:7,
Usuario.LimiteRecursos:10, Usuario.UsadosHastaHoy:12)
END;
END; { ImprimirArchivoUsuarios }

PROCEDURE CrearArchivoUsuarios(VAR ArchUsuarios : ArchDeRegistroUsuarios);
BEGIN
rewrite(ArchUsuarios)
END; { CrearArchivoUsuarios }

PROCEDURE CopiarArchivos(VAR DelArchivo, AlArchivo : ArchDeRegistroUsuarios);
VAR
Usuario : RegistroUsuario;

BEGIN
WHILE NOT eof(DelArchivo) DO
BEGIN
read(DelArchivo, Usuario);
write(AlArchivo, Usuario)
END;
END; { CopiarArchivos }

PROCEDURE AgregarUsuarios(VAR ArchUsuarios : ArchDeRegistroUsuarios);
VAR
Usuario : RegistroUsuario;
ArchTemp : ArchDeRegistroUsuarios;

BEGIN
reset(ArchUsuarios);
rewrite(ArchTemp);
CopiarArchivos(ArchUsuarios, ArchTemp);
writeln;
write('Numero de identificacion del usuario (0 para parar)? ');
readln(Usuario.NumIdentif);
WHILE Usuario.NumIdentif > 0 DO
BEGIN
write('Sistema (A,B,C,D), limite recursos y ');
write('los usados hasta la fecha? ');
readln(Usuario.SistemaComp, Usuario.LimiteRecursos,
Usuario.UsadosHastaHoy);
write(ArchTemp, Usuario);
writeln;
write('Numero de identificacion del usuario (0 para parar)? ');
readln(Usuario.NumIdentif)
END;
reset(ArchTemp);
rewrite(ArchUsuarios);
CopiarArchivos(ArchTemp, ArchUsuarios)
END; { AgregarUsuarios }

BEGIN
writeln;
MostrarMenu;
writeln;
write('Introduzca una opcion: ');
readln(Opcion);
WHILE Opcion <> 0 DO
BEGIN
IF Opcion = 1 THEN
MostrarMenu
ELSE IF Opcion = 2 THEN
CrearArchivoUsuarios(ArchUsuarios)
ELSE IF Opcion = 3 THEN
AgregarUsuarios(ArchUsuarios)
ELSE IF Opcion = 4 THEN
ImprimirArchivoUsuarios(ArchUsuarios)
ELSE
writeln('***Opcion incorrecta***');
writeln;
write('Introduzca una opcion: ');
readln(Opcion)
END;
END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar