Pascal/Turbo Pascal - programa prestamista pascal

   
Vista:

programa prestamista pascal

Publicado por deivys (3 intervenciones) el 17/09/2014 11:20:49
Bueno mi gente la cuestión es la siguiente: me mandaron a crear un programa en pascal con las siguientes especificaciones


La casa de préstamo “Los Girasoles C.A.” le contrata a Ud. Para llevar el control de los préstamos realizados a sus clientes, por cada cliente tiene la siguiente información: Apellido, cédula, sexo, cantidad de Bs. Prestados y total de bs. Que el cliente le ha pagado hasta el momento el prestamista.
Desarrolle un programa que:
1. Cargue en un arreglo la información anterior.
2. Si dado un número de cédula de un posible cliente, indique si la casa de préstamo le puede prestar o no dinero.
3. Abonar dinero a la deuda del cliente y actualizar su saldo.
4. Calcular el interés a pagar por el cliente según los siguientes criterios: prestamos desde 0 bs. A 500.000 Bs. 3% de interés, de Bs. 510.000 a 1.000.000 Bs. 5% de interés y montos superiores al millón de bs. 7% de interés.
5. Diseñar un soporte con todos aquellos clientes que le deban al prestamista. Este reporte debe aparecer con la siguiente información: Cédula, cantidad prestada, intereses pagados y saldo del cliente y ordenada alfabéticamente.
6. Indique cual es el cliente que debe más dinero a la Casa de Préstamos.

Nota: LA CASA DE PRESTAMOS SOLO PRESTA DINERO A AQUELLAS PERSONAS QUE NO APAREZCAN EN SU LISTADO (ningún tipo de información) O QUE NO LE DEBAN NADA (saldo igual a cero).



yo he buscado codigos en internet y he reciclado y tratado de crear el programa si me podrian ayudar con varias cositas que no las he podido lograr gracias

aqui pongo lo que llevo hasta el momento las contraseña : 1234

ah y Gracias de antemano por cualquier ayuda que me puedan prestar

Pero leyendo me he dado cuenta que es en un arreglo y yo lo he estado haciendo en un fichero :(

help me please

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
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;


NOTA: Codigo continua en el siguiente comentario
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

programa prestamista pascal

Publicado por deivys (3 intervenciones) el 17/09/2014 11:36:45
Continuación código

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
(******************************************)
(*  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.
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

programa prestamista pascal

Publicado por ramon (2072 intervenciones) el 18/09/2014 23:44:52
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
{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;
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

programa prestamista pascal

Publicado por ramon (2072 intervenciones) el 18/09/2014 23:46:12
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
{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('+----------------------------------+');
              TEXTCOLOR(2);
              Gotoxy(11,07);Write('CEDULA YA REGISTRADA');
              TEXTCOLOR(15);
              Gotoxy(11,10);Write ('NOMBRE :       ',prestamos[pos1].Nombre);
              Gotoxy(11,12);Write ('APELLIDO :     ',prestamos[pos1].Apellido);
              Gotoxy(11,14);Write ('SEXO :         ',prestamos[pos1].Sexo);
              Gotoxy(11,16);Write ('BS PRESTADOS : ',prestamos[pos1].Prestados);
              Gotoxy(11,18);Write ('ABONADO :      ',prestamos[pos1].Abonado);
              Gotoxy(11,20);Write ('INTERESES :    ',prestamos[pos1].Intereses);
              Gotoxy(11,22);Write ('SALDO DEUDOR : ',prestamos[pos1].resto);
                    For i:=1 to 100 do
                    Begin
                    Sound (I*550);
                    Delay (20)
                    End;
              Nosound;
            End
        Else
           Begin
              Datos_Cedula1;
              prestamos[cont].Cedula := CodigoAux;
              TEXTCOLOR(15);
              Gotoxy(38,7);Write(prestamos[cont].Cedula);
              TEXTCOLOR(15);
       Repeat
          Gotoxy(40,10);Readln(prestamos[cont].Nombre);
       Until (prestamos[cont].Nombre <> '');
       Repeat
         Gotoxy(40,12);Readln(prestamos[cont].Apellido);
        Until (prestamos[cont].Apellido <> '');
       Repeat
         Gotoxy(40,14);Readln(prestamos[cont].Sexo);
        Until (prestamos[cont].Sexo <> '');
        Repeat
           Gotoxy(40,16);Readln(prestamos[cont].Prestados);
        Until (prestamos[cont].Prestados <> 0);
        if prestamos[cont].Prestados < 500000 then
        Porcentaje := (prestamos[cont].Prestados * 3) / 100;
        if (prestamos[cont].Prestados > 500000) and
           (prestamos[cont].Prestados < 1000000) then
        Porcentaje := (prestamos[cont].Prestados * 5) / 100;
        if prestamos[cont].Prestados > 1000000 then
        Porcentaje := (prestamos[cont].Prestados * 7) / 100;
        prestamos[cont].Intereses := Porcentaje;
    End;
     Gotoxy(40,24);Write('DATOS CORRECTOS (S/N) : ');
     OP := siono;
     If OP = 'S' Then
     Begin
       cont := cont + 1;
       if cont > prest then
       cont := cont - 1;
     End;
      Gotoxy(36,24); Write('DESEA INSERTAR OTRO REGISTRO (S/N):' );
      OP := siono;
    Until (OP = 'N');
 End;
 
  procedure deudores;
  var
    t, d : integer;
    deu : real;
    begin
       t := 1;
       for d := 1 to cont - 1 do
       if prestamos[d].Prestados > prestamos[d].Abonado then
       begin
           estado[t].Cedula := prestamos[d].Cedula;
           estado[t].prestados := prestamos[d].prestados;
           estado[t].intereses := prestamos[d].intereses;
           estado[t].resto := prestamos[d].resto;
           estado[t].pagado := prestamos[d].Abonado;
           t := t + 1;
       end;
        deu := 0;
        for d := 1 to t - 1 do
        if deu < (estado[d].prestados - estado[d].pagado) then
        begin
           deu := (estado[d].prestados - estado[d].pagado);
           t := d;
        end;
        mayor := estado[t];
    end;
 
    Procedure Consultar_Reporte;
    var
      op : char;
    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;
 
 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;
 
    Procedure Menu_Principal;
    var
       OP_M : char;
    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;
 
 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;
 
  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;
 
 
   begin
      clrscr;
      cont := 1;
      {Menu_Principal;}
      Logo;
      Clave;
   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

programa prestamista pascal

Publicado por deivys (3 intervenciones) el 19/09/2014 00:48:33
buenas ramon gracias por la ayuda prestada pero no me quiere correr no se porque sera :(

aqui te dejo una captura

181fe99f832173ff5bdab25a7da60f75o
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

programa prestamista pascal

Publicado por ramon (2072 intervenciones) el 20/09/2014 23:45:00
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
{primer bloque}
 
{Funciona sin error en pascal 7 y freepascal 6.2 [este programa cuidado al copiar]}
 
  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
     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 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
    tt := 1;
    While tt < cont 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 100 do
        Begin
          Sound (I*550);
          Delay (20);
       End;
       Nosound;
    End
 Else
     Begin
    Datos_Cedula;
    TEXTCOLOR(15);
    i := pos1;
    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:0:2);
      Gotoxy (40,20); Write (prestamos[i].Intereses:0:2);
      Gotoxy (40,18); Write (prestamos[i].Abonado:0:2);
      Gotoxy (40,22); Write (prestamos[i].resto:0:2);
 End;
 TEXTCOLOR(15);
 Gotoxy (26,24); Write('Desea Buscar Otra Cedula? (S/N):');
 OP := siono;
 Until (OP = 'N');
 End;
 
 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('+----------------------------------+');
              TEXTCOLOR(2);
              Gotoxy(11,07);Write('CEDULA YA REGISTRADA');
              TEXTCOLOR(15);
              Gotoxy(11,10);Write ('NOMBRE :       ',prestamos[cont].Nombre);
              Gotoxy(11,12);Write ('APELLIDO :     ',prestamos[cont].Apellido);
              Gotoxy(11,14);Write ('SEXO :         ',prestamos[cont].Sexo);
              Gotoxy(11,16);Write ('BS PRESTADOS : ',prestamos[cont].Prestados:0:2);
              Gotoxy(11,18);Write ('ABONADO :      ',prestamos[cont].Abonado:0:2);
              Gotoxy(11,20);Write ('INTERESES :    ',prestamos[cont].Intereses:0:2);
              Gotoxy(11,22);Write ('SALDO DEUDOR : ',prestamos[cont].resto:0:2);
                    For i:=1 to 100 do
                    Begin
                    Sound (I*550);
                    Delay (20)
                    End;
              Nosound;
            End
        Else
           Begin
              Datos_Cedula1;
              prestamos[cont].Cedula := CodigoAux;
              TEXTCOLOR(15);
              Gotoxy(38,7);Write(prestamos[cont].Cedula);
              TEXTCOLOR(15);
       Repeat
          Gotoxy(40,10);Readln(prestamos[cont].Nombre);
       Until (prestamos[cont].Nombre <> '');
       Repeat
         Gotoxy(40,12);Readln(prestamos[cont].Apellido);
        Until (prestamos[cont].Apellido <> '');
       Repeat
         Gotoxy(40,14);Readln(prestamos[cont].Sexo);
        Until (prestamos[cont].Sexo <> '');
        Repeat
           Gotoxy(40,16);Readln(prestamos[cont].Prestados);
        Until (prestamos[cont].Prestados <> 0);
        if prestamos[cont].Prestados < 500000 then
        Porcentaje := (prestamos[cont].Prestados * 3) / 100;
        if (prestamos[cont].Prestados > 500000) and
           (prestamos[cont].Prestados < 1000000) then
        Porcentaje := (prestamos[cont].Prestados * 5) / 100;
        if prestamos[cont].Prestados > 1000000 then
        Porcentaje := (prestamos[cont].Prestados * 7) / 100;
        prestamos[cont].Intereses := Porcentaje;
    End;
     Gotoxy(40,24);Write('DATOS CORRECTOS (S/N) : ');
     OP := siono;
     If OP = 'S' Then
     Begin
       cont := cont + 1;
       if cont > prest then
       cont := cont - 1;
     End;
      Gotoxy(36,24); Write('DESEA INSERTAR OTRO REGISTRO (S/N):' );
      OP := siono;
    Until (OP = 'N');
 End;
 
  procedure deudores;
  var
    t, d : integer;
    deu : real;
    begin
       t := 1;
       for d := 1 to cont - 1 do
       if prestamos[d].Prestados > prestamos[d].Abonado then
       begin
           estado[t].Cedula := prestamos[d].Cedula;
           estado[t].prestados := prestamos[d].prestados;
           estado[t].intereses := prestamos[d].intereses;
           estado[t].resto := prestamos[d].resto;
           estado[t].pagado := prestamos[d].Abonado;
           t := t + 1;
       end;
        deu := 0;
        for d := 1 to t - 1 do
        if deu < (estado[d].prestados - estado[d].pagado) then
        begin
           deu := (estado[d].prestados - estado[d].pagado);
           t := d;
        end;
        mayor := estado[t];
    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

programa prestamista pascal

Publicado por ramon (2072 intervenciones) el 20/09/2014 23:47:32
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
{segundo bloque}
 
 Procedure Consultar_Reporte;
    var
      op : char;
    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;
 
 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;
 
    Procedure Menu_Principal;
    var
       OP_M : char;
    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;
 
 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;
 
  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;
 
 
   begin
      clrscr;
      cont := 1;
      {Menu_Principal;}
      Logo;
      Clave;
   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