Pascal/Turbo Pascal - Ayuda para desarrollar ejercicios

   
Vista:
Imágen de perfil de Alejandra

Ayuda para desarrollar ejercicios

Publicado por Alejandra (17 intervenciones) el 22/08/2015 02:44:05
buenas noches!!! tengo que hacer estos 3 ejercicios en pascal.-

las consignas son:

ejercicio nº 1

Un índice temático es aquel en el cual se presentan listas de libros, revistas, etc., ordenados según un tema específico. Puede tomar diferentes formatos de presentación. En el problema que se presenta a continuación, se desea generar un índice temático para libros, ordenado según palabra(s) clave(s) contenida(s) en el título del libro..

La exposición del problema es la siguiente. Se tiene un conjunto de libros (no más de 200), de los cuales se posee la siguiente información:
Código, string de largo 10
Título, string de largo 50
Autor, string de largo 30
Número de páginas, numérico de largo 4

Para hacer el índice temático, interesa el campo Título. Dentro de cada título, se ha encerrado entre caracteres # (gato), la(s) palabra(s) clave(s) de ese título, o sea, la(s) palabra(s) que más identifican al libro. Una palabra clave tiene, a lo más, 10 caracteres de longitud.

Ejemplo: Los #Reyes# Católicos
Las #Cruzadas#
Vida y Obra del #Rey# Federico el Grande
Historia de la #España# Medieval
#Reyes# de la #Epoca# Contemporánea

Se desea emitir por pantalla el índice temático de los títulos ordenados alfabéticamente por palabra(s) clave(s) de tal manera que:

a) A extrema izquierda se ubique la palabra clave. Debe ocupar 10 posiciones más una posición en blanco.
b) A continuación de la palabra clave, se prosigue colocando el resto del título (sí lo tuviera). Al final del título se coloca un slash(/). A continuación del slash, se coloca un blanco y el principio del título.
Ej. : Vida y Obra del #Rey# Federico el Grande debe quedar como
Rey••••••••Federico el Grande/.Vida y Obra del (suponga que el punto está simbolizando el carácter blanco)

La apariencia (layout) del listado a emitir es la siguiente (utilizando los datos del ejemplo):

TÍTULO (ordenado por palabra clave) CÓDIGO AUTOR PÁGS.

Cruzadas / Las ........ ........ ........
Epoca Contemporánea/ Reyes de la ........ ........ ........
España Medieval/ Historia de la ........ ........ ........
Rey Federico el Grande/ Vida y Obra del ........ ........ ........
Reyes Católicos/ Los ........ ........ ........
Reyes de la Epoca Contemporánea ........ ........ ........

PROMEDIO DE PAGINAS: .........
Observaciones
- Los datos de entrada no debe validarlos.
- Cada palabra, dentro del título, está separada de la siguiente por un solo blanco.
- Debe utilizar programación modular y programación estructurada en el diseño y confección de su solución. Esto implica el uso de funciones y procedimientos, con traspaso de parámetros, esto último tanto para efectos de reusabilidad como de documentación.
- El programa principal y cada procedimiento/función deben estar contenidos dentro de una página.



ejercicio nº2

Desarrollar un programa en el lenguaje a examinar que cumpla con las siguientes especificaciones:
a) El programa deberá leer un archivo secuencial llamado TEXTO.TXT, el que puede ser creado con cualquier editor (Turbo Pascal, Edit, NotePad, etc.). Entonces, el archivo se crea en forma externa a los programas solicitados.
b) El programa debe detectar y separar las palabras y números existentes en el texto. Las palabras pueden estar delimitadas por espacios en blanco y otros símbolos (coma, punto y coma, punto, dos puntos, paréntesis, comienzo de línea y fin de línea). Los números pueden estar separados de la misma manera que las palabras, y solo consideramos números enteros (no hay decimales).

Ejemplo: Suponer que el archivo TEXTO.TXT viene con el siguiente contenido (tiene cinco líneas):

De acuerdo a lo publicado en el diario El Mercurio de Santiago el día 08 de septiembre de 2002, en su cuerpo Principal, primera página: Los Cibercafé en los barrios se han convertido en la alternativa ideal para quienes no cuentan con un computador en su hogar, o tienen uno, pero sin conexión a Internet, o cuentan con una conexión muy lenta.

En el caso mostrado, se deberían detectar las palabras: DE, ACUERDO, A, LO, PUBLICADO, EN, EL DIARIO, MERCURIO, SANTIAGO, DIA, SEPTIEMBRE, SU, CUERPO, PRINCIPAL, PRIMERA, PAGINA, LOS, CIBERCAFE, BARRIOS, SE, HAN, CONVERTIDO, LA, ALTERNATIVA, IDEAL, PARA, QUIENES, NO, CUENTAN, CON, UN, COMPUTADOR, SU, HOGAR, O, TIENEN, UNO, PERO, SIN, CONEXIÓN, INTERNET, UNA, MUY, LENTA. (todas las palabras se convierten a mayúsculas, sin acentos).

También se deberían detectar los números 08 y 2002.

El programa deberá generar 2 archivos tipo texto: PALABRAS.TXT, que contendrá frecuencia y palabras (es decir, cada registro grabado contendrá una palabra y las veces que se encontró en el texto) y NUMEROS.TXT, que contendrá frecuencia y números (es decir, cada registro grabado contendrá un número y las veces que aparece en el texto).

Algunas restricciones:
- Considerar que las palabras y los números tiene a lo más 20 caracteres.
- El número no puede contener otro símbolo que no sea un digito.

El programa solicitado primero debe revisar el texto, para validar que no contenga ningún símbolo no permitido. Los símbolos permitidos son letras (mayúsculas y minúsculas, acentuadas o no), dígitos (0 a 9) y los siguientes símbolos: punto, coma, punto y coma, dos puntos, paréntesis (el que abre y el que cierra) y espacio. Si el programa encuentra cualquier carácter distinto a éstos, debe emitir un mensaje y terminar el proceso.


CODIFICAR, COMPILAR Y EJECUTAR. Comprobar con el texto sugerido.


ejercicio nº 3

La vida en el planeta Nexus (de la constelación Orión) está en peligro de extinguirse debido a que su sol está muriendo. Los habitantes de tal planeta (los nexurianos) han decidido enviar mensajes a la Tierra para pedir que nuestro planeta los acoja. Ya se recibió un mensaje indicando su problema y que vienen en misión pacífica. Ahora, han enviado una serie de mensajes indicando en ellos la cantidad de habitantes de cada pueblo, ya que no desean ser separados en la Tierra y para cada pueblo se debe ubicar un lugar de acogida en nuestro planeta. Las cantidades corresponden a base octal ya que los nexurianos tienen 4 dedos en cada mano. Los mensajes vienen en código binario. El problema que Ud. debe resolver es construir un programa en lenguaje Pascal que interprete cada uno de estos mensajes (cada uno se supone que es un string compuesto por caracteres ‘0’ y ‘1’).

En cada mensaje (un string de no más de 200 caracteres) viene el nombre del pueblo, el nombre del líder del pueblo y la cantidad de habitantes. La cantidad de habitantes del pueblo es muy importante, por lo que en cada mensaje viene 3 veces tal cantidad, para tratar de eliminar la ocurrencia de errores. El formato de cada mensaje es cantidad de habitantes – nombre del pueblo – cantidad de habitantes – nombre del líder – cantidad de habitantes. La forma de eliminar errores es: en el caso que la cantidad difiera en uno de los 3 casos, se elige la que está repetida como cantidad verdadera.

Los bits de cada mensaje vienen divididos en grupos de 4. Cada grupo de 4 bits puede ser una cifra octal (0000 a 0111) o una componente de nombre (de pueblo o de líder) (se usan sólo 8 posibles letras: 1000=O, 1001=I, 1010=A, 1011=B, 1100=C, 1101=D, 1110=E, 1111=F). Los nombres al no contener cifras octales, permiten delimitar las 3 cantidades.

Ejemplo:
0001 0100 0111 0010 1111 1010 0001 0100 0111 0010 1011 1000 0001 0100 0111 0010

El mensaje indica: Cantidad de habitantes: 14728 ( = 82610 )
Nombre del pueblo: FA
Nombre del líder: BO

Especificaciones:
- El programa debe descifrar los mensajes, anotando para cada pueblo: Nombre del pueblo, Nombre del líder, Cantidad de habitantes en octal y Cantidad de habitantes en decimal.
- En cada mensaje se debe tomar la cantidad correcta si hay error en una de ellas (suponer que a lo más hay error en una sola de ellas).
- Al final se debe entregar la cantidad total de nexurianos a recibir (sólo en decimal).
- Suponer que el string (de hasta 200 caracteres binarios) se puede leer con un solo READLN.
- Suponer que las cantidades pueden tener de 1 a 12 cifras octales.
- Suponer que los nombres pueden tener de 2 a 6 letras.

CODIFICAR – COMPILAR - EJECUTAR
ANEXAR A LA SOLUCION EL CONTENIDO DEL ARCHIVO MENSAJE.


DESDE YA GRACIAS POR LA AYUDA!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder

Ayuda para desarrollar ejercicios

Publicado por ALEJANDRO VEGA elaion27@hotmail.com (3 intervenciones) el 29/08/2015 00:28:37
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
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
program Ejercicio2;
 
Uses
crt;
 
type TPalabra = record
Palabra: string[20];
Cantidad: integer;
end;
 
 
var
fPal : file of TPalabra;
RegPal:TPalabra;
RegNum:TPalabra;
fNum : file of TPalabra;
 
cPalabra:string[20];
cNumero:string[20];
cadnum,cadesp,cadmin,cadmay : set of char;
Fichero1, Fichero2 : Text ;
v : char;
bEncontrePalabra:boolean;
nfila:integer;
bEsNumero:boolean;
cantreg : integer;
function ValidarTexto() : boolean ;
begin
 
cadmay := ['A'..'Z'];
cadmin := ['a'..'z'];
cadesp := [' ',':',',','.','(',')',chr(160),chr(161),chr(162),chr(163),chr(130),chr(237),chr(225),chr(233),chr(243)]   ;
cadnum := ['0'..'9'];
 
Assign (Fichero1, 'N:\UTN\DATOS\TEXTO.TXT');
Reset(Fichero1); {Intenta abrir el archivo PRODUCTO.DIR}
Read (Fichero1, v);
ValidarTexto:=true;
 
while not (eof(Fichero1)) do  // v <> '*'
begin
 
if ( not (v in cadmay) and not (V in cadmin) and not (V in cadesp) and not (V in cadnum)  ) then
begin
 
  write('El Caracter : ',V, ' no es valido ');
  readkey;
  ValidarTexto:=false;
  break;
 
end ;
 
Read (Fichero1, v);
 
end;
 
Close (Fichero1);
 
end;
 
 
 
 
begin
ClrScr;
 
// Valido el archivo para determinar si hay caracteres invalidos
if (ValidarTexto()=false) then
begin
   exit;
end;
 
 
Assign(fPal,'N:\UTN\DATOS\PALABRAS.DAT');
{$I-}
reset(fPal);
{$I+}
If(IoResult<>0) Then
Begin
   Rewrite(fPal);
End;
 
Assign(fNum,'N:\UTN\DATOS\NUMEROS.DAT');
{$I-}
reset(fNum);
{$I+}
If(IoResult<>0) Then
Begin
   Rewrite(fNum);
End;
 
 
//Read(fPal,RegPal);
 
bEsNumero:=false;
nfila:=0;
Assign(Fichero1, 'N:\UTN\DATOS\TEXTO.TXT');
Reset(Fichero1); {Intenta abrir el archivo PRODUCTO.DIR}
Read(Fichero1, v);
 
while not (eof(Fichero1)) do  // v <> '*'
begin
    //Avanzo blancos
 
    while v = ' ' do
    begin
      Read (Fichero1, v);
    End;
 
    while (v <> ' ') and not (eof(Fichero1)) do
    begin
 
    if (V in cadnum) then
    begin
        bEsNumero:=true;
        cNumero:=cNumero+v;
    end
     else
      begin
         cPalabra:=cPalabra+v;
      end;
 
      Read (Fichero1, v);
    End;
    if (eof(Fichero1)=true) then
    begin
          if (bEsNumero=true) then
          begin
              cNumero:=cNumero+v;
          end
          else
          begin
            cPalabra:=cPalabra+v;
          end;
 
    end;
 
 
    bEncontrePalabra:=false;
    if (bEsNumero=false) then
       Begin    //para palabras
              seek(fPal,0);
             while not(EOF(fPal)) do   //Busco si ya existe la palabra en mi archivo
             begin
                READ(fPal,RegPal);
                if RegPal.Palabra = cPalabra then
                begin
                  bEncontrePalabra:=true;
                  break;
                end;
                nfila:=nfila+1;
            end;
       end
       else
       Begin     // para numeros
           seek(fNum,0);
           while not(EOF(fNum)) do   //Busco si ya existe la palabra en mi archivo
           begin
              READ(fNum,RegNum);
              if RegNum.Palabra = cNumero then
              begin
                bEncontrePalabra:=true;
                break;
              end;
              nfila:=nfila+1;
          end;
       end;
 
    if (bEsNumero=false) then
      begin
       if (bEncontrePalabra=false) then
           begin
            reset(fPal);
           cantreg := filesize(fPal);
           seek(fPal,cantreg);  //voy al final y agrego
           RegPal.Cantidad :=0;
           RegPal.Palabra :='                    ';
 
           RegPal.Cantidad :=1;
           RegPal.Palabra :=cPalabra;
 
           write(fPal,RegPal);
           end
       else
          begin
           seek(fPal,nfila);   //me posiciono en el archivo
           RegPal.Cantidad :=RegPal.Cantidad +1;
           write(fPal,RegPal); //realizo la actualizacion
          end;
      end
      else
      Begin
                 if (bEncontrePalabra=false) then
                     begin
 
                     seek(fNum,filesize(fNum));  //voy al final y agrego
 
                     RegNum.Cantidad :=1;
                     RegNum.Palabra :=cNumero;
                     write(fNum,RegNum);
                     end
                 else
                    begin
                     seek(fNum,nfila);   //me posiciono en el archivo
                     RegNum.Cantidad :=RegPal.Cantidad +1;
                     write(fNum,RegNum); //realizo la actualizacion
                    end;
       end;
 
 
    bEsNumero:=false;
    cNumero:='';
    cPalabra:='';
    nfila:=0;
 
end;
 
close (fNum);
close (fPal) ;
 
Close (Fichero1);
 
 
 
end.
 
 
 
 
 
 
 
 
 
 
 
 
program Ejercicio1;
USES crt,sysutils;
 
{
Código, string de largo 10
Título, string de largo 50
Autor, string de largo 30
Número de páginas, numérico de largo 4
 }
 
type TLibros = record
Codigo: string[10];
Titulo: string[50];
Autor: string[50];
NumPag: integer;
 
end;
type TIndTem = record
Clave: string[10];
Codigo: string[10];
Titulo: string[50];
Autor: string[50];
NumPag: integer;
 
end;
 
 
  var
  alias : file of TLibros;
  Indice : file of TIndTem;
 
  Registro:TLibros;
  RegSal:TIndTem;
 
  nOpc : integer;
 
  Procedure Menus;
  Begin
  clrscr;
  writeln('-------MENU DE OPCIONES--------');
  writeln('1 - ALTA ');
  writeln('2 - GENERAR INDICE TEMATICO ');
  writeln('3 - LISTAR INDICE TEMATICO ');
  writeln('4 - ORDENAR INDICE TEMATICO ');
  writeln('5 - SALIR ');
  end;
 
 
procedure  ListarIndice ;
 
Begin
 
 
clrscr;
writeln(' LISTAR INDICE TEMATICO');
Assign(Indice,'N:\UTN\DATOS\INDICE.DAT');
Reset(Indice); {Intenta abrir el archivo PRODUCTO.DIR}
Read(Indice,RegSal);
 
while (not eof(Indice)) do
begin
 
     writeln(regSal.Clave, '   ',regsal.Titulo,'  ',regsal.Codigo , '  ',regsal.Autor );
 
     Read(Indice,RegSal);
end;
writeln(regSal.Clave, '   ',regsal.Titulo,'  ',regsal.Codigo , '  ',regsal.Autor );
 
writeln('<<< Oprima cualquier tecla para continuar >>>');
Readkey;
close(Indice);
 
end;
 
procedure ordenar;
  var
    hl, il, len : longint;
    reg1 : TIndTem;
    reg2 : TIndTem;
    regaux : TIndTem;
  begin
     Assign(Indice,'N:\UTN\DATOS\INDICE.DAT');
   {$I-} reset(Indice); {$I+}
     if ioresult <> 0 then
     begin
        writeln('Archivo <', 'N:\UTN\DATOS\INDICE.DAT', ' > no Encontrado');
        halt(1);
       end
     else
         begin
            len := filesize(Indice) - 1;
            for il := 0 to len do
            begin
              seek(Indice,il);
              read(Indice,reg1);
              for hl := len downto il do
              begin
                 seek(Indice,hl);
                 read(Indice,reg2);
                 if reg1.clave > reg2.clave then
                 begin
 
                     regaux.clave:=reg1.clave;
                     regaux.Titulo:= reg1.Titulo ;
                     regaux.Autor:=reg1.Autor;
                     regaux.Codigo:=reg1.Codigo;
                     regaux.NumPag:=reg1.NumPag;
 
 
                     reg1.clave:=reg2.clave;
                     reg1.Titulo:= reg2.Titulo ;
                     reg1.Autor:=reg2.Autor;
                     reg1.Codigo:=reg2.Codigo;
                     reg1.NumPag:=reg2.NumPag;
 
 
                     reg2.clave:=regaux.clave;
                     reg2.Titulo:= regaux.Titulo ;
                     reg2.Autor:=regaux.Autor;
                     reg2.Codigo:=regaux.Codigo;
                     reg2.NumPag:=regaux.NumPag;
 
                     seek(Indice,il);
                     write(Indice,reg1);
                     seek(Indice,hl);
                     write(Indice,reg2);
                 end;
              end;
            end;
            close(Indice);
       end;
  end;
 
Procedure GENERAR_INDICE_TEMATICO;
Var Codigo : string[10] ; { Variable local para el numero de producto}
ii,i : Integer;
cantreg : Longint;
tot:integer;
clave:string[10] ;
cadini:string;
cadfinal:string;
cadfinal2:string;
caract:char;
aparicion:integer;
bBand2,bBand:Boolean;
 
Begin
 
   clrscr;
   writeln('GENERAR ARCHIVO DE INDICE TEMATICO');
 
   Assign(Indice,'N:\UTN\DATOS\INDICE.DAT');
   Rewrite(Indice);
 
   Assign(alias,'N:\UTN\DATOS\LIBROS.DAT'); { Asignacion del nombre del archivo al
   alias}
   {$I-} { <--- Directivas para deshabilitar mensajes de error del Sist.
   Operativo }
   Reset(alias); {Intenta abrir el archivo PRODUCTO.DIR
   en modo de lectura/escritura}
   {$I+}
 
If(IoResult<>0) Then
begin
 
   writeln('ERROR AL INTENTAR ABRIR EL ARCHIVO');
   writeln('<<< Oprima cualquier tecla para continuar >>>');
   Readkey;
   exit;
end;
   i:=0;
   bBand:=false;
   bBand2:=false;
   ii:=0;
   clave:='';
   cadini:='';
   cadfinal:='';
   cadfinal2:='';
   aparicion:=0;
 
 
 
   while (not eof(alias)) do
begin
 
     Read(alias,Registro);
 
     tot:=Length(Registro.Titulo);
 
     i:=1;
     caract:=Registro.Titulo[i]  ;
 
     bBand:=true;
     while (bBand) do
     begin
 
 
         while (caract<>'#') do
           begin
              cadini:=cadini+caract;
              i:=i+1;
              caract:=Registro.Titulo[i]  ;
           end;
         i:=i+1;
         caract:=Registro.Titulo[i]  ;
         while (caract<>'#') do
           Begin
               clave:=clave+caract;
               i:=i+1;
               caract:=Registro.Titulo[i]  ;
            end;
 
         i:=i+1;
         caract:=Registro.Titulo[i]  ;
         while (i<=tot) do
           Begin
 
               if (caract='#') then
               begin
                  cadfinal2:=cadfinal2+caract;
                  i:=i+1;
                  caract:=Registro.Titulo[i]  ;
                  continue;
               end;
               cadfinal:=cadfinal+caract;
               cadfinal2:=cadfinal2+caract;
 
               i:=i+1;
               caract:=Registro.Titulo[i]  ;
 
            end;
 
          Registro.Titulo := cadini+ clave+ cadfinal2 ;
 
          RegSal.clave:=clave;
          RegSal.Titulo:= cadfinal + '/' +cadini;
          RegSal.Autor:=Registro.Autor;
          RegSal.Codigo:=Registro.Codigo;
          RegSal.NumPag:=REgistro.NumPag;
          write(Indice,RegSal);
 
          tot:=Length(Registro.Titulo);
 
 
          i:=1;
          caract:=Registro.Titulo[i]  ;
          bBand:=false  ;
          while(i<tot) do
            begin
               if caract = '#' then
                 begin
                  bBand:=true;
                  break;
                 end;
               i:=i+1;
               caract:=Registro.Titulo[i]  ;
            end;
            cadini:='';
            cadfinal:='';
            cadfinal2:='';
            clave:='';
            i:=1;
            caract:=Registro.Titulo[i]  ;
     end;
 
 
end;
     Close(alias);
     Close(Indice);
End;
 
  Procedure ALTA_DIRECTA;
  Var Codigo : string[10] ; { Variable local para el numero de producto}
  i : Integer;
  cantreg : Longint;
  bEncontre:boolean;
  pos:integer;
 
  Begin
 
  clrscr;
  writeln('ALTAS DE LIBROS NUEVOS');
 
  Assign(alias,'N:\UTN\DATOS\LIBROS.DAT'); { Asignacion del nombre del archivo al
  alias}
  {$I-} { <--- Directivas para deshabilitar mensajes de error del Sist.
  Operativo }
  Reset(alias); {Intenta abrir el archivo PRODUCTO.DIR
  en modo de lectura/escritura}
  {$I+}
  If(IoResult<>0) Then
       Rewrite(alias); { Crea el archivo en caso de no existir }
     write(' Codigo de Libro : '); readln(Codigo);
     Registro.Codigo:=Codigo;
     cantreg := FileSize(alias) ; // div sizeof(Registro));
     bEncontre:=false;
 
     IF  NOT EOF(alias)  THEN
       begin
 
          while (not eof(alias)) and (bEncontre=false) do
          begin
 
               Read(alias,Registro);
 
               If(Registro.Codigo=Codigo) Then
               begin
                    pos:=filepos(alias);
                    bEncontre:=true;
               end
               else
                   bEncontre:=false;
               end;
        end;
 
 
           If(bEncontre=true) Then
           Begin
              writeln('Registro duplicado !!!');
              writeln('<<< Oprima cualquier tecla para continuar >>>');
              Close(alias);
              Readkey;
              Exit;
           end;
 
     Registro.Codigo:=Codigo;
     write('Titulo    : '); readln(Registro.Titulo);
     write('Autor     : '); readln(Registro.Autor);
     write('Cant. Pag : '); readln(Registro.NumPag);
     Write(alias,Registro); { Grabar el Registro completo }
     Close(alias); { Cierra el archivo }
 
     writeln('Libro registrado !!!');
     writeln('<<< Oprima cualquier tecla para continuar >>>');
 
     readkey;
 
 
  end;
 
 
  begin
 
  Menus();
 
  nOpc:=0;
 
  while nOpc<>5 do
  begin
  READLN(nOpc);
 
  case nOpc OF
          1:
            begin
              writeln('Comando ALTA ');
              ALTA_DIRECTA();
            end;
          2:
            begin
              writeln('Comando Generar Indice Tematico  ');
              GENERAR_INDICE_TEMATICO();
            end;
          3:
           begin
              writeln('Comando Listar Indice Tematico  ');
              ListarIndice();
 
            end;
          4:
           begin
              writeln('Comando Ordenar Indice Tematico  ');
              Ordenar();
 
            end;
        5:
         writeln('Gracias por usar el programa...');
 
  end ;
 
  Menus();
 
  end;
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Alejandra

Ayuda para desarrollar ejercicios

Publicado por Alejandra (17 intervenciones) el 30/08/2015 01:31:21
MUCHAS GRACIAS ALEJANDRO VEGA (elaion27@hotmail.com) POR RESPONDER!!!
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

Ayuda para desarrollar ejercicios

Publicado por ALEJANDRO VEGA elaion27@hotmail.com (3 intervenciones) el 30/08/2015 06:02:45
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
program Ejercicio3_oav;
 
Uses crt,sysutils,strutils;
 
 
type TLibros = record
msg: string[200];
end;
 
var
Fichero1 : file of TLibros;
v : TLibros;
canttotal,cantfinal,cant1,cant2,cant3,n:integer;
cad1,cad2,cad3,cad4,cad5:string;
 
 
 
function OctToDec_oav(OctStr: string): integer;
var
  sal,c:string;
  i:integer;
 Begin
i:=1;
 while  i<Length(OctStr)  do
 begin
 
      c:= MidStr(OctStr,i,4);
 
      case c of
       '0001': sal:=sal+'1';
       '0010': sal:=sal+'2';
       '0011': sal:=sal+'3';
       '0100': sal:=sal+'4';
       '0101': sal:=sal+'5';
       '0110': sal:=sal+'6';
       '0111' : sal:=sal+'7';
       end;
  //    writeln(c)  ;
   //    writeln(sal)  ;
      i:=i+4;
 
 end;
      Result:=strtoint(sal);
 
end;
 
function ExtraerTextoOAV(OctStr: string): string;
var
  sal,c:string;
  i:integer;
 Begin
i:=1;
 while  i<Length(OctStr)  do
 begin
 
      c:= MidStr(OctStr,i,4);
 
      case c of
       '1000': sal:=sal+'O';
       '1001': sal:=sal+'I';
       '1010': sal:=sal+'A';
       '1011': sal:=sal+'B';
       '1100': sal:=sal+'C';
       '1101': sal:=sal+'D';
       '1110' : sal:=sal+'E';
       '1111' : sal:=sal+'F';
       end;
//      writeln(c)  ;
//       writeln(sal)  ;
      i:=i+4;
 
 end;
      Result:=sal;
 
end;
 
 
begin
  Assign (Fichero1, 'N:\UTN\DATOS\MENSAJE.TXT');
  Reset(Fichero1);
  {
  rewrite(Fichero1);
  v.msg:='000101000111001011111010000101000111001010111000000101000111001000010100011100101111101000010100011100101011100000010100011100100001010001110010111110100001010001110010101110000001010001110010';
  write(Fichero1,v);
  v.msg:='110101000111001011111010000101000111001010111000000101000111001000010100011100101111101000010100011100101011100000010100011100100001010001110010111110100001010001110010101110000001010001110010';
  write(Fichero1,v);
  close(Fichero1);
  }
 
 
 
  Repeat
       Read(Fichero1, v);
 
      // writeln(v.msg);
      // readkey;
 
       cad1:= leftstr(v.msg,16);
       cant1:=OctToDec_oav(cad1);
       cad2:=ExtraerTextoOAV(midstr(v.msg,17,8));
       cad3:= midstr(v.msg,25,16);
       cant2:=OctToDec_oav(cad3);
       cad4:=ExtraerTextoOAV(midstr(v.msg,41,8));
       cad5:= midstr(v.msg,49,16);
       cant3:=OctToDec_oav(cad5);
 
       if (cant1=cant2)  then
         begin
              cantfinal:=cant1;
         end
         else
         begin
              if (cant1=cant3) then
              begin
                  cantfinal:=cant1;
              end
              else
              begin
                  if cant2=cant3 then
                  begin
                    cantfinal:=cant2;
                  end
                  else
                  begin
                     writeln('Mensaje erroneo esta muy dañado');
                  end;
              end;
         end;
         canttotal:=canttotal+ cantfinal;
         writeln('Cantidad de Habitantes : ',cantfinal, '  Nombre del Pueblo : ' , cad2 , ' Nombre  del Lider : ',cad4);
 
  until (eof(Fichero1))  ;
 
  writeln('Cantidad total de nexurianos ',canttotal);
  readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Alejandra

Ayuda para desarrollar ejercicios

Publicado por Alejandra (17 intervenciones) el 30/08/2015 14:42:38
GRACIAS ALEJANDRO VEGA (elaion27@hotmail.com) !!!!
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

Error STRUTILS

Publicado por Joaquín (2 intervenciones) el 30/08/2015 17:15:47
Cuando compilo me tira este error:

3 / 28 ejerci~2.pas Fatal: Can't find unit STRUTILS

No sabes por qué puede ser eso?
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

Error STRUTILS

Publicado por ramon (2072 intervenciones) el 30/08/2015 18:02:18
revisa estas unidades pascal no las tiene

sysutils,strutils
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

Error STRUTILS

Publicado por Joaquín (2 intervenciones) el 30/08/2015 19:59:58
Y no sabes por cuáles podría reemplazarlas?
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

Error STRUTILS

Publicado por ALEJANDRO VEGA elaion27@hotmail.com (3 intervenciones) el 30/08/2015 20:25:49
trata de usar el lazarus http://www.lazarus-ide.org/
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

Error STRUTILS

Publicado por loco (1 intervención) el 30/08/2015 22:55:00
tengo problema con el dos lo compilo y luego se abre y se cierra.. no se que puede ser :(
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

Error STRUTILS

Publicado por ramon (2072 intervenciones) el 31/08/2015 00:45:55
Si el tema es de pascal tendrás que pensar en las unidades de pascal no de otro lenguaje por muy parecido que sea aunque como
ayuda esta muy bien.
Puesto que te informa de lo que debes hacer.
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