Pascal/Turbo Pascal - Trabajo en Pascal muy dificil...help me

 
Vista:

Trabajo en Pascal muy dificil...help me

Publicado por David Portillo (4 intervenciones) el 09/12/2008 17:01:57
Saludos amigos del foro me pusieron un trabajo de computacion en pascal y es muy complicado. Quien me puede ayudar. aca les dejo el enunciado.

Represente el conjunto de regiones, empleando la estructura de
datos tipo grafo. La matriz de Adyacencia para 13 nodos debe
crearse automáticamente. Los detalles relativos a su
construcción se describen a continuación

Emplee generación de números aleatorios (números obtenidos al
azar), para determinar si existe comunicación y para hallar las distancias entre regiones cercanas, como se explica a continuación:

Comunicación entre regiones:

Para determinar si entre cada par de nodos (i, j) existe o no un arco:
􀂙 Se genera un NA
􀂙 De acuerdo al valor del NA, si la función f es igual a 0, las
dos regiones (i,j) no se comunican directamente. Si f es igual
a 1, las dos regiones se pueden comunicar. En este último
caso se debe calcular la distancia.
Distancia entre dos regiones
􀂙 Se genera un NA.
􀂙 Se obtiene el valor g de la distancia haciendo:
g(NA) = NA * 1.000.
El valor de g será la distancia, entre regiones de posible
comunicación. Por simplicidad se tomarán los valores de g
redondeados a enteros.
􀂙 Debe tomar en cuenta que la matriz es simétrica, las vías
serán en ambos sentidos.
􀂙 Existe la posibilidad de que alguna región quede
incomunicada, en este caso esta región no se tomará en
cuenta.
• Imprima la matriz de Adyacencia una vez creada la estructura de
grafos.
-------------------------------------------------------------------------------------------------------------

----------------------------------------------*********************-------------------------------------
Desarrolle un programa en PASCAL, que construya un
“diccionario” al extraer las palabras de un texto que se muestra en
el anexo (archivo de texto). Este contenido ha sido extraído de la
obra “Don Quijote de la Mancha” y está libre de errores. A efecto
de hacer más sencillas las operaciones, hemos eliminado los
acentos. El programa se hará bajo las siguientes consideraciones:

• Accederá al archivo de texto, extraerá cada palabra del
mismo y la ubicará en el “diccionario” de manera ordenada.
Se ignorarán las diferencias entre mayúsculas y minúsculas.

Imprimirá todas las palabras a medidas que las extrae.
• Imprimirá el conjunto de palabras ordenadas.

Elabore un procedimiento en Pascal de búsqueda, tal que a partir
del conjunto de datos ordenados en la sección (2), permita hacer la
búsqueda de palabras en el diccionario creado. El mismo detectará
si una palabra está o no en el diccionario y emitirá el mensaje
apropiado.

---------------*************
anexo de archivo:

E n u n lu g a r d e la M a n c h a , d e c u y o n o m b re
n o q u ie ro a c o rd a rm e , n o h a m u c h o t ie m p o
q u e v iv ia u n h id a lg o d e lo s d e la n z a
e n a s t i l l e r o , a d a r g a a n t ig u a , r o c in f la c o y
g a lg o c o r re d o r . U n a o lla d e a lg o m a s v a c a
q u e c a rn e r o , s a lp ic o n la s m a s n o c h e s ,
d u e lo s y q u e b ra n to s lo s s a b a d o s , la n te ja s lo s
v ie rn e s , a lg u n p a lo m in o d e a ñ a d id u ra lo s
d o m in g o s , c o n s u m ia n la s tre s p a r te s
d e s u h a c ie n d a . E l re s to d e lla c o n c lu ia n s a y o
d e v e la r te , c a lz a s d e v e llu d o p a ra la s f ie s ta s ,
c o n s u s p a n tu f lo s d e lo m e sm o ,
y lo s d ia s d e e n tre s e m a n a s e h o n ra b a c o n s u
v e llo r i d e lo m a s f in o . T e n ia e n s u c a s a u n a
a m a q u e p a s a b a d e lo s c u a re n ta , y
u n a s o b r in a q u e n o lle g a b a a lo s v e in te , y u n
m o z o d e c a m p o y p la z a , q u e a s i e n s i l l a b a e l
ro c in c o m o to m a b a la p o d a d e ra .
F r is a b a la e d a d d e n u e s tro h id a lg o c o n lo s
c in c u e n ta a ñ o s ; e ra d e c o m p le x io n re c ia ,
s e c o d e c a rn e s , e n ju to d e ro s tro , g r a n
m a d ru g a d o r y a m ig o d e la c a z a . Q u ie re n
d e c ir q u e te n ia e l s o b re n o m b r e d e Q u ija d a , o
Q u e s a d a , q u e e n e s to h a y a lg u n a d ife re n c ia
e n lo s a u to re s q u e d e s te c a s o e s c r ib e n ;
a u n q u e p o r c o n je tu ra s v e ro s im ile s s e d e ja
e n te n d e r q u e s e lla m a b a Q u ija n a . P e ro e s to
im p o r ta p o c o a n u e s tr o c u e n to b a s ta q u e e n
la n a r ra c io n d e l n o s e s a lg a u n p u n to d e la
v e rd a d .
E s , p u e s , d e s a b e r q u e e s te s o b r e d ic h o
h id a lg o , lo s ra to s q u e e s ta b a o c io s o , q u e
e ra n lo s m a s d e l a ñ o , s e d a b a a le e r lib ro s
d e c a b a lle r ia s , c o n ta n ta a fic io n y g u s to , q u e
o lv id o c a s i d e to d o p u n to e l e je rc ic io d e la
c a z a , y a u n la a d m in is tra c io n d e
s u h a c ie n d a ; y lle g o a ta n to s u c u r io s id a d y
d e s a t in o e n e s to , q u e v e n d io m u c h a s
h a n e g a s d e t ie r ra d e s e m b ra d u ra p a ra
c o m p ra r
lib ro s d e c a b a lle r ia s e n q u e le e r, y a s i, lle v o a
s u c a s a to d o s c u a n to s p u d o h a b e r d e llo s ; y
d e to d o s , n in g u n o s le p a re c ia n
ta n b ie n c o m o lo s q u e c o m p u s o e l fa m o s o
F e lic ia n o d e S ilv a ; p o rq u e la c la r id a d d e s u
p ro s a y a q u e lla s e n tr ic a d a s ra z o n e s s u y a s
le p a re c ia n d e p e r la s , y m a s c u a n d o lle g a b a a
le e r a q u e llo s re q u ie b ro s y c a r ta s d e d e s a fio s ,
d o n d e e n m u c h a s p a r te s h a lla b a
e s c r ito L a ra z o n d e la s in ra z o n q u e a m i
ra z o n s e h a c e , d e ta l m a n e ra m i ra z o n
e n f la q u e c e , q u e c o n ra z o n m e q u e jo d e la
v u e s tra fe rm o s u r a . Y ta m b ie n c u a n d o le ia lo s
a lto s c ie lo s q u e d e v u e s tr a d iv in id a d
d iv in a m e n te c o n la s e s tr e lla s o s
fo r t if ic a n , y o s h a c e n m e re c e d o ra d e l
m e re c im ie n to q u e m e re c e la v u e s tr a
g ra n d e z a .
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