Pascal/Turbo Pascal - Ayuda para encontrar unos errores

   
Vista:

Ayuda para encontrar unos errores

Publicado por Tania (5 intervenciones) el 02/05/2013 05:50:30
nECESITO AYUDA CON ESTE PROGRAMA ME SALEN 3 ERRORES PERO NO LOS ENCUENTRO :s AYUDA POR FAVOR !"""


program diciona;

uses

crt;

const

ingles : array[1..500] of string[30] = (
'accept','add','admire','admit','advise','allow',
'amuse','analyse','announced','annoy',
'answer','applaud','aprove','argue',
'arrange','arrest','arrive','ask','attack',
'attend','attract','avoid','back','ban','bathe',
'behave','belong','boil','book','borrow','brake',
'breathe','burn','clap','clean','close','collect',
'comb','compete','complain','call','calculate',
'care','change','charge','cheat','check','concentrate',
'connect','consider','continue','cook','copy','correct',
'cough','count','cover','crash','crawl','cross','crush',
'cry','cure','damage','dance','deceive','decide',
'decorate','delete','deliver','destroy','disappear',
'discover','divide','double','doubt','dream','dress',
'dry','dust','excercise','exist','expect','explain','explode',
'earn','educate','employ','empty','encourage','end',
'enjoy','enter','entertain','escape','float','flood','flow',
'flower','flod','follow','fool','force','form','fry','fail','fear',
'fetch','fill','film','finish','fire','fit','fix','flash','gather','greet',
'graduate','guess','guide','harm','hate','heat','help','hunt',
'hug','interrupt','invent','invte','identify','ignore','imagine',
'improve','increase','inform','jail','join','judge','jump','kill','kiss',
'knock','listen','live','load','look','love','last','laugh','launch',
'lighten','manage','marry','miss','move','multiply','murder',
'obey','open','pack','paint','park','pass','paste','part','pause',
'pick','plan','plant','play','please','plug','point','polish','practise',
'pray','prefer','prepare','present','press','pretend','prevent',
'print','produce','program','promise','protect','pull','pump',
'punish','push','reduce','reflect','refuse','relax','release',
'rely','remain','remember','race','raise','reach','receive',
'recognize','record','remind','remove','rent','repair','repeat',
'replace','reply','report','reproduce','request','rescue',
'retire','return','rinse','risk','rob','row','rub','ruin','smoke',
'sneeze','snore','soak','sound','spell','spill','spoil','start',
'sack','sail','satisfy','save','scream','seal','search','separate',
'serve','share','shelter','shop','sing','signal','sight','slip','slow',
'smell','smile','stay','stp','store','succeed','suffer','supply',
'support','surprise','surround','suspect','suspend','switch',
'trade','train','transport','travel','trust','try','turn','twist',
'type','talk','taste','terrifi','test','thank','tidy','tie','tip',
'touch','use','vanish','visit','welcome','wipe','wish',
'wonder','work','worry','wait','walk','want','warn','wash',
'waste','watch','weigh','zoom','abide','arise','awake','be',
'beat','become','befall','beget','begin','behold','bend',
'breave','beseech','bet','bore','bid','bind','bite','bleed',
'blow','break','breed','broadcast','bring','build','burn',
'burst','buy','can','cast','catch','chide','choose','cleave',
'cling','clothe','come','cost','creep','crow','cut','deal',
'dare','dig','do','draw','dream','drink','drive','dwell',
'eat','fall','feed','feel','fight','find','findout','flee','fling',
'fly','forbear','foresee','forbid','forget','forgive','forsake',
'freeze','get','gild','give','go','grind','grow','hang','hear',
'have','hide','hit','hold','hurt','keep','kneel','knit','know',
'lay','lead','lean','learn','leap','leave','lend','let','lie','light',
'lose','may','mow','must','ought','overcome','overdo',
'make','mean','meet','melt','mistake','misunderstand',
'pay','put','prove','quit','read','rebuild','rend','rid',
'ride','ring','rise','run','say','see','seek','sell','send','set',
'sew','shake','shave','shed','shallow','shine','shower',
'shoot','show','shrink','shut','sing','sink','sit','slay','sleep',
'slide','sling','slink','slit','smell','smite','sow','speak',
'speed','spend','spell','spill','spin','spit','split','spoil',
'spread','spring','stand','steal','stick','sting','stink','strew',
'stride','strike','string','strive','swear','sweep','swell',
'swim','swing','take','teach','tear','tell','think','thrive',
'throw','thrust','tread','undergo','understand','undertake',
'undo','wake','weave','wear','weep','wet','will','win',
'wind','withdraw','withhold','withstand','wring','write');

espayol : array[1..7] of string[80] = (
'aceptar 1.accept 2.accepted 3.accepted',
'agregar 1.add 2.added 3.added',
'admirar 1.admire 2.admired 3.admired',
'admitir 1.admit 2.admited 3.admited',
'aconsejar 1.advise 2.advised 3.advised',
'permitir 1.allow 2.allowed 2.allowed',
'entretener 1.amuse 2.amused 3.amused',
'analizar 1.analyse 2.analysed 3.analysed',
'anunciar 1.announce 2.announced 3.announced',
'molestar 1.annoy 2.annoyed 3.annoyed',
'contestar 1.answer 2.answered 3.answered',
'aplaudir 1.applaud 2.applauded 3.applauded',
'aprovar 1.approve 2.approved 3.approved',
'argumentar 1.argue 2. Argued 3.argued',
'arreglar ordenar 1.arrange 2.arranged 3.arranged',
'arrestar 1.arrest 2.arrested 3.arrested',
'llegar 1.arrive 2.arrived 3.arrived',
'preguntar 1.ask 2.askec 3.asked',
'atacar 1.attack 2.attacked 3.attacked',
'asistir 1.attend 2.attended 3.attended',
'atraer 1.attrac 2.attracted 3.attracted',
'evitar 1.avoid 2.avoided 3.avoided',
'apoyar 1.back 2.backed 3.backed',
'prohibir 1.ban 2.banned 3.banned',
'bañarse 1.bathe 2.bathed 3.bathed',
'comportarse 1.behave 2.behaved 3.behaved',
'pertenecer 1.belong 2.belonged 3.belonged',
'hervir 1.boil 2.boiled 3.boiled',
'reservar 1.book 2.booked 3.booked',
'pedir prestado 1.borrow 2.borrowed 3.borrowed',
'frenar 1.brake 2. Braked 3.braked',
'respirar 1.breathe 2.breathed 3.breathed',
'quemar 1.burn 2.burned 3.burned',
'aplaudir aclamar 1.clap 2.claped 3.claped',
'limpiar 1.clean 2.cleaned 3.cleaned',
'cerrar 1.close 2.closed 3.closed',
'colectar 1.collect 2.collected 3.collected',
'peinar 1.comb 2.comn 3.comb',
'competir 1.compete 2.competed 3.competed',
'quejarse 1.complain 2.complained 3.complained',
'llamar 1.call 2.called 3.called',
'calcular 1.calculate 2.calculated 3.calculated',
'cuidar 1.care 2.cared 3.cared',
'cambiar 1.change 2.changed 3.changed',
'cargar 1.charge 2.charged 3.charged',
'engañar 1.cheat 2.cheated 3.cheated',
'checar veirificar 1.check 2.checked 3.checked',
'concentarse 1.concentrate 2.concentrated 3.concentrated',
'conectar 1.connect 2.connected 3.connected',
'considerar 1.consider 2.considered 3.considered',
'continuar 1.continue 2.continued 3.continued',
'cocinar 1.cook 2.cooked 3.cooked',
'copiar 1.copy 2.copied 3.copied',
'corregir 1.correct 2.corrected 3.corrected',
'toser 1.cough 2.coughed 3.coughed',
'contar 1.count 2.counted 3.counted',
'cubir 1.cover 2.covered 3.covered',
'chocar 1.crash 2.crashed 3.crashed',
'arrastrarse 1.crawl 2.crawled 3.crawled',
'cruzar 1.cross 2.crossed 3.crossed',
'aplastar 1.crush 2.crushed 3.crushed',
'llorar 1.cry 2.cried 3.cried',
'curar 1.cure 2.cured 3.cured',
'dañar 1.damage 2.damaged 3.damaged',
'bailar 1.dance 2.danced 3.danced',
'engañar 1.deceive 2.deceived 3.deceived',
'decidir 1.decide 2.decided 3.decided',
'decorar 1.decorate 2.decorated 3.decorated',
'eliminar 1.delete 2.deleted 3.deleted',
'entregar 1.deliver 2.delivered 3.delivered',
'destruir 1.destroy 2.destroyed 3.destroyed',
'desaparecer 1.disappear 2.disappeared 3.disappeared',
'descubrir 1.discover 2.discovered 3.discovered',
'dividir 1.divide 2.divided 3.divided',
'duplicar 1.double 2.doubled 3.doubled',
'dudar 1.doubt 2.doubted 3,doubted',
'soñar 1.dream 2.dreamed 3.dreamed',
'vestir 1.dress 2.dressed 3.dressed',
'secar 1.dry 2.dried 3.dried',
'espolvorear 1.dust 2.dusted 3.dusted',
'ejercitar 1.exercise 2.exercised 3.excercised',
'existir 1.exist 2.existed 3.existed',
'esperar 1.expect 2.expected 3.expected',
'explicar 1.explain 2.explained 3.explained',
'explotar 1.explode 2.exploded 3.exploded',
'ganar 1.eanr 1.earned 3.earned',
'educar 1.educate 2.educated 3.educated',
'emplear 1.employ 2.employed 3.employed',
'vaciar 1.empty 2.emptied 3.emptied',
'alentar 1.encourage 2.encouraged 3,ancouraged',
'terminar 1.end 2.ended 3.ended',
'disfrutar 1.enjoy 2.enjoyed 3.enjoyed',
'entrar 1.enter 2.entered 3.entered',
'entretener 1.entertain 2.entertained 3.entertained',
'escaparse 1.escape 2.escaped 3.escaped',
'flotar 1.float 2.floated 3.floated',
'inundarse 1.flood 2.flooded 3.flooded',
'fluir 1.flow 2.flowed 3.flowed',
'florecer 1.flower 2.flowered 3.flowered',
'doblar 1.fold 2.folded 3.folded',
'seguir 1.follow 2.followed 3.followed',
'despreciar 1.fool 2.fooled 3.fooled',
'forzar 1.force 2.forced 3.forced',
'formar 1.form 2.formed 3.formed',
'freir 1.fry 2.fried 3.fried',
'fracasar 1.fail 2.failed 3.failed',
'temer 1.fear 2.feared 3.feared',
'ir a buscar 1.fetch 2.fetched 3.fetched',
'llenar 1. Fill 2.filled 3.filled',
'filmar 1.fim 2.fimed 3.filmed',
'disparar 1.fire 2.fired 3.fired',
'encajar 1.fit 2.fitted 3.fitted',
'reparar 1.fix 2.fixed 3.fixed',
'centellear 1.flash 2.flashed 3.flashed',
'reunir 1.gather 2.gathered 3.gathered',
'saludar 1.greet 2.greeted 3.greeted',
'graduarse 1.graduate 2.graduated 3.graduated',
'adivinar 1.guess 2.guessed 3.guessed',
'guiar 1.guide 2.guided 3.guided',
'dañar 1.harm 2.harmed3.harmed',
'odiar 1.hate 2.hated 3,hated',
'calentarse 1.heat 2.heated 3.heated',
'pedir ayuda 1.help 2.helped 3.helped',
'cazar 1.hunt 2.hunted 3.hunted',
'abrazar 1.hug 2.hugged 3.hugged',
'interrumpir 1.interrupt 2.interrupted 3.interrupted',
'inventar 1.invent 2.invented 3.invented',
'invitar 1.invite 2.invited 3.invited',
'identificar 1.identify 2.identified 3.identified',
'ignorar 1.ignore 2.ignored 3.ignored',
'imaginar 1.imagine 2.imagined 3.imagined',
'mejorar 1.improve 2.improved 3.improved',
'aumentar 1.increase 2.increased 3..increased',
'informar 1.inform 2.informed 3.informed',
'encarcelar 1.jail 2.jailed 3.jailed',
'unir 1.join 2.joined 3.joined',
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

Ayuda para encontrar unos errores

Publicado por ramon (2072 intervenciones) el 05/05/2013 14:46:44
Mira el array espayol : array[1..7] of string[80] = ( Contiene mas stringes que tamaño eso en pascal
es un error debes de poner los mismos que el tamaño.
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