REGISTROS
0 recomendaciones164 vistas
Este programa permite el registro y visualización de usuarios y pagos. Presenta un menú principal con 5 opciones: 1) ingresar usuarios, 2) mostrar usuarios, 3) ingresar pagos, 4) mostrar pagos, 5) salir. Usa registros para almacenar la información de usuarios y pagos en arreglos.
![__________________________________________________________
__________________________________________________________
program Registros;
uses crt;
type
tregusuario=record
idusuario:string [10];
nomusuario:string [30];
edadusuario:integer;
end;
type
tregpagos=record
idusuariopago:string[10];
valorusuario:real;
fechausuario:string[10];
end;
var
usuarios:array[1..50] of tregusuario;
pagos:array[1..100] of tregpagos;
res,resp,resmenu:char;
i,j,k:integer;
n,m:integer;
opc:integer;
procedure menu;
begin
textcolor(2);
gotoxy(3,2);
write('MENU...');
gotoxy(3,4);
write('1. Ingresar usuarios.');
gotoxy(3,5);
write('2. Mostrar usuarios.');
gotoxy(3,6);](https://image.slidesharecdn.com/programregistros-130607163735-phpapp01/85/REGISTROS-1-320.jpg)
![write('3. Ingresar pagos.');
gotoxy(3,7);
write('4. Mostrar pagos.');
gotoxy(3,8);
write('5. Salir.');
gotoxy(3,10);
write('Por favor digite la opcion que desee: ');
readln(opc);
clrscr;
end;
procedure capturausuarios;
begin
textcolor(2);
i:=0;
res:='s';
while (res='s') or (res='S') do
begin
clrscr;
i:=i+1;
gotoxy (3,2);
write('Usuario ',i,':');
gotoxy (3,4);
write('Digite identificacion del usuario: ');
readln(usuarios[i].idusuario);
gotoxy (3,5);
write('Digite nombre del usuario : ');
readln(usuarios[i].nomusuario);
gotoxy (3,6);
write('Digite edad del usuario : ');
readln(usuarios[i].edadusuario);
clrscr;
gotoxy (3,2);
write('Desea ingresar mas usuarios???');
gotoxy (3,3);](https://image.slidesharecdn.com/programregistros-130607163735-phpapp01/85/REGISTROS-2-320.jpg)
![write('s/n: ');
readln(res);
end;
end;
procedure mostrarusuarios;
begin
for n:=1 to i do
begin
gotoxy (3,2);
write('Identificacion');
gotoxy (3,3+n);
write(usuarios[n].idusuario);
gotoxy (25,2);
write('Nombre');
gotoxy (25,3+n);
write(usuarios[n].nomusuario);
gotoxy (45,2);
write('Edad');
gotoxy (45,3+n);
write(usuarios[n].edadusuario);
end;
end;
procedure capturapagos;
begin
j:=0;
resp:='s';
while (resp='s') or (resp='S') do
begin
clrscr;
j:=j+1;
gotoxy (3,2);
write('Usuario ',j,':');
gotoxy (3,4);
write('Digite identificacion del usuario: ');
readln(pagos[j].idusuariopago);](https://image.slidesharecdn.com/programregistros-130607163735-phpapp01/85/REGISTROS-3-320.jpg)
![gotoxy (3,5);
write('Digite el pago del usuario : ');
readln(pagos[j].valorusuario);
gotoxy (3,6);
write('Digite la fecha del pago : ');
readln(pagos[j].fechausuario);
clrscr;
gotoxy (3,2);
write('Desea ingresar mas pagos???');
gotoxy (3,3);
write('s/n: ');
readln(resp);
end;
end;
procedure mostrarpagos;
begin
begin
for m:=1 to j do
begin
gotoxy (3,2);
write('Identificacion');
gotoxy (3,3+m);
write(pagos[m].idusuariopago);
gotoxy (25,2);
write('Valor del pago');
gotoxy (25,3+m);
write('$ ',pagos[m].valorusuario:0:3);
gotoxy (45,2);
write('Fecha');
gotoxy (45,3+m);
write(pagos[m].fechausuario);
end;
end;
end;](https://image.slidesharecdn.com/programregistros-130607163735-phpapp01/85/REGISTROS-4-320.jpg)
REGISTROS
- 1. __________________________________________________________ __________________________________________________________ program Registros; uses crt; type tregusuario=record idusuario:string [10]; nomusuario:string [30]; edadusuario:integer; end; type tregpagos=record idusuariopago:string[10]; valorusuario:real; fechausuario:string[10]; end; var usuarios:array[1..50] of tregusuario; pagos:array[1..100] of tregpagos; res,resp,resmenu:char; i,j,k:integer; n,m:integer; opc:integer; procedure menu; begin textcolor(2); gotoxy(3,2); write('MENU...'); gotoxy(3,4); write('1. Ingresar usuarios.'); gotoxy(3,5); write('2. Mostrar usuarios.'); gotoxy(3,6);
- 2. write('3. Ingresar pagos.'); gotoxy(3,7); write('4. Mostrar pagos.'); gotoxy(3,8); write('5. Salir.'); gotoxy(3,10); write('Por favor digite la opcion que desee: '); readln(opc); clrscr; end; procedure capturausuarios; begin textcolor(2); i:=0; res:='s'; while (res='s') or (res='S') do begin clrscr; i:=i+1; gotoxy (3,2); write('Usuario ',i,':'); gotoxy (3,4); write('Digite identificacion del usuario: '); readln(usuarios[i].idusuario); gotoxy (3,5); write('Digite nombre del usuario : '); readln(usuarios[i].nomusuario); gotoxy (3,6); write('Digite edad del usuario : '); readln(usuarios[i].edadusuario); clrscr; gotoxy (3,2); write('Desea ingresar mas usuarios???'); gotoxy (3,3);
- 3. write('s/n: '); readln(res); end; end; procedure mostrarusuarios; begin for n:=1 to i do begin gotoxy (3,2); write('Identificacion'); gotoxy (3,3+n); write(usuarios[n].idusuario); gotoxy (25,2); write('Nombre'); gotoxy (25,3+n); write(usuarios[n].nomusuario); gotoxy (45,2); write('Edad'); gotoxy (45,3+n); write(usuarios[n].edadusuario); end; end; procedure capturapagos; begin j:=0; resp:='s'; while (resp='s') or (resp='S') do begin clrscr; j:=j+1; gotoxy (3,2); write('Usuario ',j,':'); gotoxy (3,4); write('Digite identificacion del usuario: '); readln(pagos[j].idusuariopago);
- 4. gotoxy (3,5); write('Digite el pago del usuario : '); readln(pagos[j].valorusuario); gotoxy (3,6); write('Digite la fecha del pago : '); readln(pagos[j].fechausuario); clrscr; gotoxy (3,2); write('Desea ingresar mas pagos???'); gotoxy (3,3); write('s/n: '); readln(resp); end; end; procedure mostrarpagos; begin begin for m:=1 to j do begin gotoxy (3,2); write('Identificacion'); gotoxy (3,3+m); write(pagos[m].idusuariopago); gotoxy (25,2); write('Valor del pago'); gotoxy (25,3+m); write('$ ',pagos[m].valorusuario:0:3); gotoxy (45,2); write('Fecha'); gotoxy (45,3+m); write(pagos[m].fechausuario); end; end; end;
- 5. begin resmenu:='s'; while (resmenu='s') or (resmenu='S') do begin clrscr; k:=k+1; begin menu; clrscr; case opc of 1: begin capturausuarios; end; 2: begin mostrarusuarios; end; 3: begin capturapagos; end; 4: begin mostrarpagos; end; 5: begin gotoxy(3,2); write('Que tenga un buen dia.'); readkey; exit; end; end; readkey; clrscr; gotoxy(3,2);
- 6. write('Desea volver al menu???'); gotoxy(3,3); write('s/n: '); readln(resmenu); end; end; end. __________________________________________________________ __________________________________________________________