Pascal/Turbo Pascal - programa prestamista pascal

program casaprestamo;

 uses crt;

     const

     z=2;

     type

     cad10 = string[10];

     cad30 = string[30];

 Inventario = record

     Codigo      : cad10;

     Nombre      : cad10;

     Apellido    : cad10;

     Sexo        : cad10;

     Prestados   : cad10;

     Intereses   : cad10;

     Abonado     : cad10;

     Deudor      : cad10;

 End;

 Factura = record

     Fecha          : cad10;

     Factura        : cad10;

     Hora           : cad10;

     Codivend       : cad10;

     Nombre         : cad30;

     Apellidos      : cad30;

     Cedula         : cad30;

     Direcciones    : cad30;

     Telefono       : cad30;

     Codigoo        : cad10;

     Descripcion    : cad30;

     Precio         : cad10;

     Intereses       : cad10;

     Sub_Total      : real;

     IVA            : real;

     Total          : real;

     Forma_de_pago  : cad30;

     Dinero         : real;

     Cambio         : real;

 End;

     Datos  = file of Inventario;

     Cop    = file of Inventario;

     Ventas = file of Factura;

     Cop1   = file of Factura;

 Var

     Archivo  : Datos;

     Archivo1 : Ventas;

     Copia    : Cop;

     Copia1   : Cop1;

     Reg  :  Inventario;

     Reg1 :  Factura;

     Encontro  : Boolean;

     Encontro1 : Boolean;

     OP_M, OP   : Char;

     c,f   : Integer;

     c1,f1 : Integer;

     CodigoAux :  cad10;

     FacturaAux1: cad10;

	T1,T2,T3,T4:char;

(*****************)

(*  C U A D R O  *)

(*****************)

 Procedure Cuadro (X1,Y1,X2,Y2 : Byte);

 Var

 c,f : Byte;

 Begin

 Gotoxy(X1,Y1); Write (Chr(201));

 Gotoxy(X2,Y1); Write (Chr(187));

 Gotoxy(X1,Y2); Write (Chr(200));

 Gotoxy(X2,Y2); Write (Chr(188));

 For c:= Y1+1 to Y2-1 do

     Begin

     Gotoxy(X1,c); Write (Chr(186));

     Gotoxy(X2,c); Write (Chr(186));

     End;

 For f:= X1+1 to X2-1 do

     Begin

     Gotoxy(f,Y1); Write (Chr(205));

     Gotoxy(f,Y2); Write (Chr(205));

     End;

 End;

(************************************)

(*  F U N C I O N   S I   O   N O   *)

(************************************)

 Function siono: Char;

 Var

 Ne : Char;

 Begin

 Repeat

 Ne := UPCASE (Readkey);

 Until Ne in ['N' , 'S'];

 siono:= Ne;

 End;

(*************************************)

(*  A B R I R   E L   A R C H I V O  *)

(*************************************)

 PROCEDURE Abrir_Cedula;

 Begin

 Assign (Archivo, 'Datos.Dat');

 Assign (Copia,   'Respal.dat');

 {$I-}

 Reset (Archivo);

 If IORESULT <> 0 Then

 Begin

 Rewrite (Archivo);

 Close   (Archivo);

 Reset   (Archivo);

 End;

 {$I+}

 Rewrite(Copia);

 End;

(**********************************)

(*  F U N C I O N   B U S C A R   *)

(**********************************)

 Function Buscar (Var CodigoBus : Cad10; Mensaje : Cad30) : Boolean;

 Var

 Encontro : Boolean;

 Begin

TEXTCOLOR(15);

TEXTBACKGROUND(1);

 CLRSCR;

TEXTCOLOR(15);

TEXTBACKGROUND(1);

CUADRO (05,03,75,23);

 Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

 Abrir_Cedula;

  Gotoxy (11,10); Write ('BUSCAR CEDULA: ');

 Readln (CodigoBus);

 Encontro:= False;

 While (not eof (archivo) and (not encontro)) do

 Begin

 Read (Archivo,Reg);

 If (Reg.Codigo = CodigoBus) Then

 Encontro:= True

 Else

 Write(Copia,Reg);

 END;

 Buscar:= Encontro;

 END;

(******************************************************************)

(*  P R E S E N T A C I O N   D E   P A N T A L L A  C E D U L A  *)

(******************************************************************)

 Procedure Datos_Cedula1;

 Begin

 TEXTCOLOR(15);

TEXTBACKGROUND(1);

 CLRSCR;

TEXTCOLOR(15);

TEXTBACKGROUND(1);

CUADRO (05,03,75,23);

 Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

 Gotoxy(11,6);  Write('                        █████████████ ');

 Gotoxy(11,7);  Write('CEDULA:                 █           █ ');

 Gotoxy(11,8);  Write('                        █████████████ ');

 Gotoxy(11,10); Write('NOMBRE:                               ');

 Gotoxy(11,12); Write('APELLIDO:                             ');

 Gotoxy(11,14); Write('SEXO:                                 ');

 Gotoxy(11,16); Write('BS PRESTADOS:                         ');

 End;

(******************************************************************)

(*  P R E S E N T A C I O N   D E   P A N T A L L A  C E D U L A  *)

(******************************************************************)

 Procedure Datos_Cedula;

 Begin

 TEXTCOLOR(15);

TEXTBACKGROUND(1);

 CLRSCR;

TEXTCOLOR(15);

TEXTBACKGROUND(1);

CUADRO (05,03,75,23);

 Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

 Gotoxy(11,6);  Write('                        █████████████ ');

 Gotoxy(11,7);  Write('CEDULA:                 █           █ ');

 Gotoxy(11,8);  Write('                        █████████████ ');

 Gotoxy(11,10); Write('NOMBRE:                               ');

 Gotoxy(11,12); Write('APELLIDO:                             ');

 Gotoxy(11,14); Write('SEXO:                                 ');

 Gotoxy(11,16); Write('BS PRESTADOS:                         ');

 Gotoxy(11,18); Write('ABONADO:                              ');

 Gotoxy(11,20); Write('INTERESES:                            ');

 Gotoxy(11,22); Write('SALDO DEUDOR:                         ');

 End;

(*******************************************************)

(*  R E P O R T E   G E N E R A L  D E  U S U A R I O  *)

(*******************************************************)

 Procedure  MuestraTodo;

 Begin

Abrir_Cedula;

While (NOT EOF (Archivo)) do

 Begin

 Read (Archivo,Reg);

 With Reg do

 Begin

Datos_Cedula;

 TextColor(15);

 Gotoxy (38,7);  Write (Reg.Codigo);

 Gotoxy (40,10); Write (Reg.Nombre);

 Gotoxy (40,12); Write (Reg.Apellido);

 Gotoxy (40,14); Write (Reg.Sexo);

 Gotoxy (40,16); Write (Reg.Prestados);

 Gotoxy (40,20); Write (Reg.Intereses);

 Gotoxy (40,18); Write (Reg.Abonado);

 Gotoxy (40,22); Write (Reg.Deudor);

 End; (*Fin Del With*)

 TextColor(15);

 Gotoxy (26,24); Write (' Presione una Tecla para Ver Siguiente ');

 op := ReadKey;

 End;

 Close (Archivo);

 Close (Copia);

 erase (Copia);

 End;

 (******************************)

(*  A B O N A R  D I N E R O  *)

(******************************)

 Procedure Abonar_Dinero;

 Var

 I:Integer;

 Begin

 Repeat

 If Not (Buscar (CodigoAux, 'Abonar_Dinero')) Then

 Begin

 TEXTCOLOR(15);

 Gotoxy (30,14); Write ('╔════════════════════╗');

 Gotoxy (30,15); Write ('║  CEDULA NO EXISTE  ║');

 Gotoxy (30,16); Write ('╚════════════════════╝');

 For I:=1 to  100 do

 Begin

 Sound (I*550);

 Delay (20);

 End;

 Nosound;

 Close (Archivo);

 Close (Copia);

 Erase (Copia);

 End

 Else

 Begin

 With Reg do

 Begin

 Repeat

 Datos_Cedula;

 Codigo := CodigoAux;

 TEXTCOLOR(15);

 Gotoxy (38,7);  Write (Reg.Codigo);

 Gotoxy (40,10); Write (Reg.Nombre);

 Gotoxy (40,12); Write (Reg.Apellido);

 Gotoxy (40,14); Write (Reg.Sexo);

 Gotoxy (40,16); Write (Reg.Prestados);

 Gotoxy (40,20); Write (Reg.Intereses);

 Gotoxy (40,18); Write (Reg.Abonado);

 Gotoxy (40,22); Write (Reg.Deudor);

 Gotoxy (55,20); Write ('╔══════════════╗');

 Gotoxy (55,21); Write ('║   <══ VOLVER ║');

 Gotoxy (55,22); Write ('╚══════════════╝');

 Textcolor(44);

 Gotoxy (8,7);   Write ('A');

 Gotoxy (8,10);  Write ('B');

 Gotoxy (8,12);  Write ('C');

 Gotoxy (8,14);  Write ('D');

 Gotoxy (8,16);  Write ('E');

 Gotoxy (8,18);  Write ('F');

 Gotoxy (8,20);  Write ('G');

 Gotoxy (57,21); Write ('H');

 Repeat

 TEXTCOLOR(15);

 Gotoxy (30,24); Write ('Introduzca La Letra ');

 OP:= Upcase (ReadKey);

 Until OP In ['A'..'H'];

 TEXTCOLOR(15);

 Case OP of

 'A' : Repeat

 Gotoxy (38,7); Readln (Reg.Codigo);

 until (Reg.Codigo <> '');

 'B' : Repeat

 Gotoxy (40,9); Readln (Reg.Nombre);

 Until (Reg.Nombre <> '');

 'C' :  Repeat

 Gotoxy (40,11) ; Readln (Reg.Apellido);

 Until (Reg.Apellido <> '');

 'D' :  Repeat

 Gotoxy (40,13) ; Readln (Reg.Sexo);

 Until (Reg.Sexo <> '');

 'E' :  Repeat

 Gotoxy (40,15) ; Readln (Reg.Prestados);

 Until (Reg.Prestados <> '');

 'F' :  Repeat

 Gotoxy (40,17) ; Readln (Reg.Abonado);

 Until (Reg.Abonado > '');

 'G' :  Repeat

 Gotoxy (40,19) ; Readln (Reg.Intereses);

 Until (Reg.Intereses <> '' );

 End;                          (*Fin de Case*)

 Until OP = 'H';

 End; (*Fin del With*)

 TEXTCOLOR(15);

 Gotoxy (26,24); Write ('Guardar Los Cambios Efectuados (S/N):');

 OP := siono;

 If OP = 'S' Then

 Begin

 Write (Copia,Reg);

 While Not Eof (Archivo) do

 Begin

 Read(Archivo,Reg);

 Write(Copia,Reg);

 End;

 Close(Archivo);

 Close(Copia);

 Erase(Archivo);

 Rename(Copia,'Datos.Dat');

 End

 Else

 Begin

 Close(Archivo);

 Close(Copia);

 Erase(Copia);

 End;

 End;

 Gotoxy (24,24); Write('        Desea Buscar Otra Cédula? (S/N):');

 OP := siono;

 Until (OP = 'N');

 End;

(************************************)

(*  C O N S U L T A    C E D U L A  *)

(************************************)

 Procedure Buscar_Cedula;

 Var

 I:Integer;

Prestado:Cad10;

 Begin

 Repeat;

 If Not (Buscar (CodigoAux, 'Buscar_Cedula')) Then

 Begin

 TEXTCOLOR(15);

 Gotoxy (30,14); Write ('╔════════════════════╗');

 Gotoxy (30,15); Write ('║  CEDULA NO EXISTE  ║');

 Gotoxy (30,16); Write ('╚════════════════════╝');

 For I:=1 to  100 do

 Begin

 Sound (I*550);

 Delay (20);

 End;

 Nosound;

 Close (Archivo);

 Close (Copia);

 Erase (Copia);

 End

 Else

 Begin

 With Reg do

 Begin

 Datos_Cedula;

TEXTCOLOR(15);

Prestado := Reg.Prestados;

 IF (1000 > 0) and (1000 < 500000) THEN

BEGIN

Gotoxy (40,20); Write('0.03%')

END

ELSE IF (1000 > 501000) and (1000 < 1000000) THEN

BEGIN

Gotoxy (40,20); Write ('0.05%')

END

ELSE

BEGIN

Gotoxy (40,20); Write ('0.07%')

END;

 Gotoxy (38,7);  Write (Reg.Codigo);

 Gotoxy (40,10); Write (Reg.Nombre);

 Gotoxy (40,12); Write (Reg.Apellido);

 Gotoxy (40,14); Write (Reg.Sexo);

 Gotoxy (40,16); Write (Reg.Prestados);

 Gotoxy (40,20); Write (Reg.Intereses);

 Gotoxy (40,18); Write (Reg.Abonado);

 Gotoxy (40,22); Write (Reg.Deudor);

 End;

 End;

 TEXTCOLOR(15);

 Gotoxy (26,24); Write('Desea Buscar Otra Cédula? (S/N):');

 OP := siono;

 Until (OP = 'N');

 End;

(******************************************)

(*  I N S E R T A R   L O S   D A T O S   *)

(******************************************)

 Procedure Ingresar_Cedula;

 Var

 I:integer;

 Porcentaje:cad10;

Begin

       Clrscr;

      Repeat

            If Buscar(CodigoAux, '') Then

            Begin

 TEXTCOLOR(15);

 Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

                    TEXTCOLOR(2);

                    Gotoxy (11,07); Write ('CEDULA YA REGISTRADA');

                    TEXTCOLOR(15);

                    Gotoxy (11,10); Write ('NOMBRE:                    ' ,Reg.Nombre     );

                    Gotoxy (11,12); Write ('APELLIDO:                  ' ,Reg.Apellido    );

                    Gotoxy (11,14); Write ('SEXO:                      ' ,Reg.Sexo     );

                    Gotoxy (11,16); Write ('BS PRESTADOS:              ' ,Reg.Prestados      );

                    Gotoxy (11,18); Write ('ABONADO:                   ' ,Reg.Abonado     );

                    Gotoxy (11,20); Write ('INTERESES:                 ' ,Reg.Intereses   );

                    Gotoxy (11,22); Write ('SALDO DEUDOR:              ' ,Reg.Deudor       );

                    For i:=1 to 100 do

                    Begin

                    Sound (I*550);

                    Delay (20)

                    End;

                    Nosound;

                    Close (archivo);

                    Close (Copia);

                    Erase (Copia);

                    End

                       Else

                       Begin

                       With Reg Do

                       Begin

                       (*Agregar Usuario*)

 Datos_Cedula1;

 Codigo:= CodigoAux;

 TEXTCOLOR(15);

 Gotoxy (38,7); Write (Codigo);

 TEXTCOLOR(15);

 Repeat

 Gotoxy (40,10) ; Readln (Reg.Nombre);

 Until (Reg.Nombre <> '');

 Repeat

 Gotoxy (40,12) ; Readln (Reg.Apellido);

 Until (Reg.Apellido <> '');

 Repeat

 Gotoxy (40,14) ; Readln (Reg.Sexo);

 Until (Reg.Sexo <> '');

 Repeat

 Gotoxy (40,16) ; Readln (Reg.Prestados);

 Until (Reg.Prestados <> '');

//Reg.Abonado := 0;

Porcentaje:= Reg.Prestados;

Reg.Deudor := Reg.Prestados

 End;

 Gotoxy (40,24); Write('DATOS CORRECTOS (S/N):');

 OP:= siono;

 If OP = 'S' Then

 Begin

 Write (Copia,Reg);

 Close (Archivo);

 Close (Copia);

 Erase (Archivo);

 Rename(Copia,'Datos.Dat');

 End

 Else

 Begin

 Close(Archivo);

 Close(Copia);

 Erase(Copia);

 End;

 End;

 Gotoxy(36,24); Write('DESEA INSERTAR OTRO REGISTRO (S/N):' );

 OP:= siono;

 Until (OP = 'N');

 End;

(**************************************)

(*  C O N S U L T A R  R E P O R T E  *)

(**************************************)

Procedure Consultar_Reporte;

 Begin

 Repeat

  TEXTCOLOR(15);

TEXTBACKGROUND(1);

CLRSCR;

TEXTCOLOR(15);

TEXTBACKGROUND(1);

CUADRO (05,03,75,23);

 Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

 Gotoxy (28,08); Write ('╔═══════════════════════╗');

 Gotoxy (28,09); Write ('║ 1.-  REPORTE GENERAL  ║');

 Gotoxy (28,10); Write ('╚═══════════════════════╝');

 Gotoxy (26,11); Write ('╔═══════════════════════════╗');

 Gotoxy (26,12); Write ('║ 2.- REPORTE MAYOR DEUDA   ║');

 Gotoxy (26,13); Write ('╚═══════════════════════════╝');

 Gotoxy (10,20); Write ('╔══════════════╗');

 Gotoxy (10,21); Write ('║ 3.<══ VOLVER ║');

 Gotoxy (10,22); Write ('╚══════════════╝');

 Gotoxy(25,16); Write ('╔═════════════════════════════╗');

 Gotoxy(25,17); Write ('║  SELECCIONE UNA OPCION [ ]  ║');

 Gotoxy(25,18); Write ('╚═════════════════════════════╝');

 Gotoxy(30,09); Write  ('1.');

 Gotoxy(28,12); Write  ('2.');

 TEXTCOLOR(2);

 Gotoxy(12,21); Write  ('3.');

 Repeat

 TextColor(15);

 Gotoxy(51,17); op:=readkey;

 Until (op in ['1'..'3']);

 Case op of

      '1'  : MuestraTodo;

      '2'  : ;

 End;

 Until (op = '3');

 End;

 (***************)

(*  S A L I R  *)

(***************)

procedure Salir;

          Begin

           Clrscr;

          delay(800);

 textbackground(1);

 TEXTCOLOR(15);

CUADRO (05,03,75,23);

Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 	Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 	Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

 Gotoxy(19,06); Write ('███████████████████████████████████████████');

 Gotoxy(19,07); Write ('█                                         █');

 Gotoxy(19,08); Write ('█                                         █');

 Gotoxy(19,09); Write ('█                                         █');

 Gotoxy(19,10); Write ('█                                         █');

 Gotoxy(19,11); Write ('█                                         █');

 Gotoxy(19,12); Write ('█                                         █');

 Gotoxy(19,13); Write ('█                                         █');

 Gotoxy(19,14); Write ('█                                         █');

 Gotoxy(19,15); Write ('███████████████████████████████████████████');

 Gotoxy(22,08);writeln('CERRANDO Y GUARDANDO DATOS');

 Gotoxy(42,11); Write ('╔═══════════════╗');

 Gotoxy(42,12); Write ('║               ║');

 Gotoxy(42,13); Write ('╚═══════════════╝');

 Delay(600);gotoxy(45,12); write('█');

 Delay(600);gotoxy(46,12); write('█');

 Delay(600);gotoxy(47,12); write('█');

 Delay(600);gotoxy(48,12); write('█');

 Delay(600);gotoxy(49,12); write('█');

 Delay(700);gotoxy(50,12); write('█');

 Delay(700);gotoxy(51,12); write('█');

 Delay(700);gotoxy(52,12); write('█');

 Delay(700);gotoxy(53,12); write('█');

 Delay(600);gotoxy(54,12); write('█');

 Delay(600);gotoxy(55,12); write('█');

 Delay(600);gotoxy(56,12); write('█');

 Gotoxy(18,17); Write ('╔═══════════════════════════════════════════╗');

 Gotoxy(18,18); Write ('║  GRACIAS POR UTILIZAR NUESTRO SISTEMA...  ║');

 Gotoxy(18,19); Write ('╚═══════════════════════════════════════════╝');

  DELAY(2000);

  end;

(*********************************)

(*  M E N U   P R I N C I P A L  *)

(*********************************)

 Procedure Menu_Principal;

 Begin

 Repeat

TEXTBACKGROUND(1);

 TEXTCOLOR(1);

 CLRSCR;

TEXTCOLOR(15);

TEXTBACKGROUND(1);

CUADRO (05,03,75,23);

 Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

 Gotoxy (10,08); Write ('╔════════════════╗');

 Gotoxy (10,09); Write ('║ 1.-   BUSCAR   ║');

 Gotoxy (10,10); Write ('╚════════════════╝');

 Gotoxy (31,08); Write ('╔═════════════════╗');

 Gotoxy (31,09); Write ('║ 2.-   INGRESAR  ║');

 Gotoxy (31,10); Write ('╚═════════════════╝');

 Gotoxy (53,08); Write ('╔════════════════╗');

 Gotoxy (53,09); Write ('║ 3.-   ABONAR   ║');

 Gotoxy (53,10); Write ('╚════════════════╝');

 Gotoxy (31,12); Write ('╔═════════════════╗');

 Gotoxy (31,13); Write ('║ 4.-   REPORTE   ║');

 Gotoxy (31,14); Write ('╚═════════════════╝');

 Gotoxy (10,20); Write ('╔══════════════╗');

 Gotoxy (10,21); Write ('║ 5.-  SALIR   ║');

 Gotoxy (10,22); Write ('╚══════════════╝');

 Gotoxy(25,16); Write ('╔═════════════════════════════╗');

 Gotoxy(25,17); Write ('║  SELECCIONE UNA OPCION [ ]  ║');

 Gotoxy(25,18); Write ('╚═════════════════════════════╝');

 Gotoxy(12,09);Write  ('1.');

 Gotoxy(33,09);Write  ('2.');

 Gotoxy(55,09);Write  ('3.');

 Gotoxy(33,13);Write  ('4.');

 TEXTCOLOR(2);

 Gotoxy(12,21);Write  ('5.');

 Repeat

 TEXTCOLOR(15);

 Gotoxy(51,17); OP_M:= Readkey;

 Until (OP_M in ['1'..'5']);

 Case OP_M  of

      '1'  : Buscar_Cedula;

      '2'  : Ingresar_Cedula;

      '3'  : Abonar_Dinero;

      '4'  : Consultar_Reporte;

      '5'  : Salir;

 End;

 Until (OP_M = '5');

 End;

(*##########*)

(* l O G O  *)

(*##########*)

      PROCEDURE LOGO;

      BEGIN

     TEXTBACKGROUND(1);

      TEXTCOLOR(15);

 Clrscr;

TEXTCOLOR(15);

TEXTBACKGROUND(1);

CUADRO (05,03,75,23);

Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 	Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 	Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

 Gotoxy(19,06); Write ('██████████████████████████████████████████████');

 Gotoxy(19,07); Write ('█                                            █');

 Gotoxy(19,08); Write ('█ ╔════════════════════════════════════════╗ █');

 Gotoxy(19,09); Write ('█ ║BIENVENIDO AL SISTEMA LOS GIRASOLES C.A.║ █');

 Gotoxy(19,10); Write ('█ ╚════════════════════════════════════════╝ █');

 Gotoxy(19,11); Write ('█                                            █');

 Gotoxy(19,12); Write ('█                          ╔═══════════════╗ █');

 Gotoxy(19,13); Write ('█                          ║   ENTRANDO... ║ █');

 Gotoxy(19,14); Write ('█                          ╚═══════════════╝ █');

 Gotoxy(19,15); Write ('██████████████████████████████████████████████');

DELAY (2000);

      END;

{*************}

{* C L A V E *}

{*************}

 Procedure Clave_Mala;

 Begin

TEXTCOLOR(15);

TEXTBACKGROUND(1);

 CLRSCR;

TEXTCOLOR(15);

TEXTBACKGROUND(1);

CUADRO (05,03,75,23);

Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 	Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 	Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

  TEXTCOLOR(44);

 Gotoxy(6,06);writeln('   ████████   ██             ████      ██        ██   █████████      ');

 Gotoxy(6,07);writeln('   ██         ██            ██  ██      ██      ██    ██             ');

 Gotoxy(6,08);writeln('   ██         ██           ██    ██      ██    ██     █████████      ');

 Gotoxy(6,09);writeln('   ██         ██          ██████████      ██  ██      ██             ');

 Gotoxy(6,10);writeln('   ████████   █████████  ██        ██      ████       ███████████    ');

 Gotoxy(6,12);writeln('█████  ██   █  █████  ████  █████  █████  ████  ████  █████     █    ');

 Gotoxy(6,13);writeln('  █    █  █ █  █      █  █  █   █  █   █  █     █       █      █ █   ');

 Gotoxy(6,14);writeln('  █    █   ██  █      █  █  █████  █████  ███   █       █     █   █  ');

 Gotoxy(6,15);writeln('  █    █    █  █      █  █  █ █    █ █    █     █       █    ███████ ');

 Gotoxy(6,16);writeln('█████  █    █  █████  ████  █  █   █  █   ████  █████   █   █       █');

 TEXTCOLOR(15);

 Gotoxy(17,18);Writeln(' POR FAVOR ASEGURESE DE COLOCAR LA CLAVE CORRECTA ');

 textcolor(2);

 Gotoxy(31,20);Writeln(' SALIENDO DEL SISTEMA ');

 Delay (4500)

End;

 Procedure Clave;

 Begin

 TEXTCOLOR(15);

TEXTBACKGROUND(1);

 Clrscr;

TEXTCOLOR(15);

TEXTBACKGROUND(1);

CUADRO (05,03,75,23);

Gotoxy (24,02); Write ('╔══════════════════════════════════╗');

 	Gotoxy (24,03); Write ('║ CASA PRESTAMO LOS GIRASOLES C.A  ║');

 	Gotoxy (24,04); Write ('╚══════════════════════════════════╝');

                Gotoxy(27,8);  writeln ('████████████████████████████');

                Gotoxy(27,9);  writeln ('█ ╔══════════════════════╗ █');

                Gotoxy(27,10); writeln ('█ ║   INGRESE LA CLAVE   ║ █');

                Gotoxy(27,11); writeln ('█ ╚══════════════════════╝ █');

                Gotoxy(27,12);  writeln('████████████████████████████');

                TEXTCOLOR(15);

                  Gotoxy(36,14);Write('██████████');

                  Gotoxy(36,15);Write('█        █');

                  Gotoxy(36,16);Write('██████████');

 Gotoxy(39,15);T1:=readkey;write('*');

 Gotoxy(40,15);T2:=readkey;write('*');

 Gotoxy(41,15);T3:=readkey;write('*');

 Gotoxy(42,15);T4:=readkey;write('*');

 TextBackground(15);

  If (T1='1') and (T2='2') and (T3='3') and (T4='4') then

 Begin

 Menu_principal;

 End

 Else

 Clave_Mala;

 End;

{*************************************}

{*  C U E R P O   P R I N C I P A L  *}

{*************************************}

 Begin

  Clrscr;

{ Menu_Principal; }

 Logo;

 Clave;

 End.

{Mira A ver si esto te ayuda primera parte}

program casaprestamo;

  uses

     crt;

      const

         prest = 50;

     type

        cad10 = string[10];

        Cad30 = string[30];

     datosprestamo = record

        Cedula      : cad10;

        Nombre      : cad10;

        Apellido    : cad10;

        Sexo        : cad10;

        Prestados   : real;

        Intereses   : real;

        Abonado     : real;

        resto       : real;

    End;

    prestaestado = record

        Cedula     : cad10;

        prestados  : real;

        intereses  : real;

        pagado     : real;

        resto      : real;

       end;

   var

     prestamos : array[1..prest] of datosprestamo;

     pos1, cont : integer;

     CodigoAux :  cad10;

     estado : array[1..prest] of prestaestado;

     mayor : prestaestado;

     T1,T2,T3,T4:char;

   Procedure Cuadro (X1,Y1,X2,Y2 : Byte);

   Var

    c,f : Byte;

   Begin

     Gotoxy(X1,Y1); Write (Chr(201));

     Gotoxy(X2,Y1); Write (Chr(187));

     Gotoxy(X1,Y2); Write (Chr(200));

     Gotoxy(X2,Y2); Write (Chr(188));

      For c:= Y1+1 to Y2-1 do

      Begin

        Gotoxy(X1,c); Write (Chr(186));

        Gotoxy(X2,c); Write (Chr(186));

      End;

        For f:= X1+1 to X2-1 do

        Begin

          Gotoxy(f,Y1); Write (Chr(205));

          Gotoxy(f,Y2); Write (Chr(205));

        End;

     End;

   Function siono: Char;

   Var

     Ne : Char;

     Begin

     Repeat

         Ne := UPCASE(Readkey);

     Until Ne in ['N' , 'S'];

     siono:= Ne;

  End;

  Function Buscar(Var CodigoBus : Cad10;Mensaje : Cad30) : Boolean;

  Var

    Encontro : Boolean;

    nn : integer;

   Begin

     pos1 := 0;

     TEXTCOLOR(15);

     TEXTBACKGROUND(1);

     CLRSCR;

     TEXTCOLOR(15);

     TEXTBACKGROUND(1);

     CUADRO(5,3,75,23);

     Gotoxy (24,02); Write ('+----------------------------------+');

     Gotoxy (24,03); Write ('¦ CASA PRESTAMO LOS GIRASOLES C.A  ¦');

     Gotoxy (24,04); Write ('+----------------------------------+');

     Gotoxy(11,10); Write ('BUSCAR CEDULA : ');

     gotoxy(27,10);Readln(CodigoBus);

     Encontro := False;

     nn := 1;

     While nn < cont - 1 do

     Begin

        if prestamos[nn].cedula = codigobus then

        begin

           encontro := true;

           pos1 := nn;

           break;

        end;

        nn := nn + 1;

     END;

      Buscar := Encontro;

   END;

 Procedure Datos_Cedula1;

 Begin

   TEXTCOLOR(15);

   TEXTBACKGROUND(1);

   CLRSCR;

   TEXTCOLOR(15);

   TEXTBACKGROUND(1);

   CUADRO (05,03,75,23);

    Gotoxy (24,02); Write ('+----------------------------------+');

    Gotoxy (24,03); Write ('¦ CASA PRESTAMO LOS GIRASOLES C.A  ¦');

    Gotoxy (24,04); Write ('+----------------------------------+');

    Gotoxy(11,6);  Write('                        ¦¦¦¦¦¦¦¦¦¦¦¦¦ ');

    Gotoxy(11,7);  Write('CEDULA :                ¦           ¦ ');

    Gotoxy(11,8);  Write('                        ¦¦¦¦¦¦¦¦¦¦¦¦¦ ');

    Gotoxy(11,10); Write('NOMBRE:                               ');

    Gotoxy(11,12); Write('APELLIDO:                             ');

    Gotoxy(11,14); Write('SEXO:                                 ');

    Gotoxy(11,16); Write('BS PRESTADOS:                         ');

 End;

 Procedure Datos_Cedula;

 Begin

   TEXTCOLOR(15);

   TEXTBACKGROUND(1);

   CLRSCR;

   TEXTCOLOR(15);

   TEXTBACKGROUND(1);

   CUADRO (05,03,75,23);

   Gotoxy (24,02); Write ('+----------------------------------+');

   Gotoxy (24,03); Write ('¦ CASA PRESTAMO LOS GIRASOLES C.A  ¦');

   Gotoxy (24,04); Write ('+----------------------------------+');

 Gotoxy(11,6);  Write('                        ¦¦¦¦¦¦¦¦¦¦¦¦¦ ');

 Gotoxy(11,7);  Write('CEDULA :                ¦           ¦ ');

 Gotoxy(11,8);  Write('                        ¦¦¦¦¦¦¦¦¦¦¦¦¦ ');

 Gotoxy(11,10); Write('NOMBRE:                               ');

 Gotoxy(11,12); Write('APELLIDO:                             ');

 Gotoxy(11,14); Write('SEXO:                                 ');

 Gotoxy(11,16); Write('BS PRESTADOS:                         ');

 Gotoxy(11,18); Write('ABONADO:                              ');

 Gotoxy(11,20); Write('INTERESES:                            ');

 Gotoxy(11,22); Write('SALDO DEUDOR:                         ');

 End;

 Procedure  MuestraTodo;

 var

   tt : integer;

   op : char;

 Begin

    While tt < cont - 1 do

    Begin

       TextColor(15);

       Gotoxy (38,7);  Write (prestamos[tt].Cedula);

       Gotoxy (40,10); Write (prestamos[tt].Nombre);

       Gotoxy (40,12); Write (prestamos[tt].Apellido);

       Gotoxy (40,14); Write (prestamos[tt].Sexo);

       Gotoxy (40,16); Write (prestamos[tt].Prestados);

       Gotoxy (40,20); Write (prestamos[tt].Intereses);

       Gotoxy (40,18); Write (prestamos[tt].Abonado);

       Gotoxy (40,22); Write (prestamos[tt].resto);

       TextColor(15);

        Gotoxy (26,24); Write (' Presione una Tecla para Ver Siguiente ');

      repeat

       op := ReadKey;

      until op <> ' ';

      tt := tt + 1;

    End;

 End;

 Procedure Abonar_Dinero;

 Var

   tt, I : Integer;

   op : char;

   Begin

      Repeat

       If Not (Buscar(CodigoAux, 'Abonar_Dinero')) Then

       Begin

         TEXTCOLOR(15);

         Gotoxy (30,14); Write ('+--------------------+');

         Gotoxy (30,15); Write ('¦  CEDULA NO EXISTE  ¦');

         Gotoxy (30,16); Write ('+--------------------+');

         For I := 1 to  100 do

         Begin

            Sound(I * 550);

            Delay(20);

         End;

          Nosound;

        End

   Else

      Begin

        tt := 1;

        Repeat

          Datos_Cedula;

          prestamos[tt].Cedula  := CodigoAux;

          TEXTCOLOR(15);

          Gotoxy(38,7);  Write(prestamos[tt].Cedula );

          Gotoxy(40,10); Write(prestamos[tt].Nombre);

          Gotoxy(40,12); Write(prestamos[tt].Apellido);

          Gotoxy(40,14); Write(prestamos[tt].Sexo);

          Gotoxy(40,16); Write(prestamos[tt].Prestados);

          Gotoxy(40,20); Write(prestamos[tt].Intereses);

          Gotoxy(40,18); Write(prestamos[tt].Abonado);

          Gotoxy(40,22); Write(prestamos[tt].resto);

          Gotoxy(55,20); Write('+--------------+');

          Gotoxy(55,21); Write('¦   <-- VOLVER ¦');

          Gotoxy(55,22); Write('+--------------+');

          Textcolor(44);

          Gotoxy(8,7);   Write('A');

          Gotoxy(8,10);  Write('B');

          Gotoxy(8,12);  Write('C');

          Gotoxy(8,14);  Write('D');

          Gotoxy(8,16);  Write('E');

          Gotoxy(8,18);  Write('F');

          Gotoxy(8,20);  Write('G');

          Gotoxy(57,21); Write('H');

     Repeat

        TEXTCOLOR(15);

        Gotoxy(30,24); Write('Introduzca La Letra ');

        OP := Upcase (ReadKey);

    Until OP In ['A'..'H'];

    TEXTCOLOR(15);

    Case OP of

 'A' : Repeat

         Gotoxy(38,7); Readln(prestamos[tt].Cedula);

       until (prestamos[tt].Cedula <> '');

 'B' : Repeat

         Gotoxy(40,9); Readln (prestamos[tt].Nombre);

       Until (prestamos[tt].Nombre <> '');

 'C' :  Repeat

          Gotoxy(40,11) ; Readln(prestamos[tt].Apellido);

        Until (prestamos[tt].Apellido <> '');

 'D' :  Repeat

           Gotoxy(40,13) ; Readln(prestamos[tt].Sexo);

        Until (prestamos[tt].Sexo <> '');

 'E' :  Repeat

          Gotoxy(40,15) ; Readln(prestamos[tt].Prestados);

        Until (prestamos[tt].Prestados <> 0);

 'F' :  Repeat

          Gotoxy (40,17) ; Readln (prestamos[tt].Abonado);

        Until (prestamos[tt].Abonado > 0);

 'G' :  Repeat

          Gotoxy(40,19) ; Readln(prestamos[tt].Intereses);

        Until (prestamos[tt].Intereses <> 0);

   End;         (*Fin de Case*)

     Until OP = 'H';

 End;

 Gotoxy (24,24); Write('        Desea Buscar Otra Cédula? (S/N):');

 OP := siono;

 tt := tt + 1;

 if tt > cont - 1 then

 op := 'N';

 Until (OP = 'N');

 End;

 Procedure Buscar_Cedula;

 Var

    I : Integer;

    Prestado : real;

    op : char;

 Begin

   Repeat;

     If Not (Buscar (CodigoAux, 'Buscar_Cedula')) Then

     Begin

        TEXTCOLOR(15);

        Gotoxy(30,14);Write('+--------------------+');

        Gotoxy(30,15);Write('¦  CEDULA NO EXISTE  ¦');

        Gotoxy(30,16);Write('+--------------------+');

        For I := 1 to prest do

        Begin

          Sound (I*550);

          Delay (20);

       End;

       Nosound;

    End

 Else

     Begin

    Datos_Cedula;

    TEXTCOLOR(15);

    Prestado := prestamos[i].Prestados;

    IF (Prestado > 0) and (Prestado < 500000) THEN

    BEGIN

       Gotoxy(40,20); Write('0.03%')

    END

   ELSE

     IF (Prestado > 501000) and (Prestado < 1000000) THEN

     BEGIN

        Gotoxy (40,20); Write ('0.05%')

     END

  ELSE

    BEGIN

       Gotoxy (40,20); Write ('0.07%')

   END;

      Gotoxy (38,7);  Write (prestamos[i].Cedula);

      Gotoxy (40,10); Write (prestamos[i].Nombre);

      Gotoxy (40,12); Write (prestamos[i].Apellido);

      Gotoxy (40,14); Write (prestamos[i].Sexo);

      Gotoxy (40,16); Write (prestamos[i].Prestados);

      Gotoxy (40,20); Write (prestamos[i].Intereses);

      Gotoxy (40,18); Write (prestamos[i].Abonado);

      Gotoxy (40,22); Write (prestamos[i].resto);

 End;

 TEXTCOLOR(15);

 Gotoxy (26,24); Write('Desea Buscar Otra Cedula? (S/N):');

 OP := siono;

 Until (OP = 'N');

 End;

{esta parte dos}

 Procedure Ingresar_Cedula;

 Var

    I : integer;

    Porcentaje : real;

    op : char;

   Begin

       Clrscr;

      Repeat

            If Buscar(CodigoAux,'') Then

            Begin

              TEXTCOLOR(15);

              Gotoxy(24,02);Write('+----------------------------------+');

              Gotoxy(24,03);Write('¦ CASA PRESTAMO LOS GIRASOLES C.A  ¦');

              Gotoxy(24,04);Write('+----------------------------------+');