Programación General > Pascal

 Problema con procedures

(1/1)

Cobo3:
Buenas!! Estoy empezando a usar Lazarus, programando en pascal, y me he encontrado con un pequeño problema que no se resolver. No es nada dificil, seguro que una tonteria... Os dejo el codigo.


--- Código: Pascal ---const max=5;  type tabla=array[1..max] of integer;  procedure LTabla(var mit:tabla);            var i:integer;            begin            for i:=1 to max do                begin                write('Introduce el valor de la resistencia ',i,' : ');                readln(mit[i])                end  end; var t:tabla;      maxim,i:integer; beginLTabla(t);maxim:=0;for i:=1 to maxim doif t[i]>maxim then       maxim:=t[i];writeln('La mayor de las resistencias es la de ',maxim,'.');readlnend.    
La cuestion es que, una vez acaba el procedure, los valores de mit no se guardan en t y el maximo siempre resulta 0. He probado poniendo "var" delante de mit pero tampoco funciona.
Alguna ayuda?

Xaos:
El problema, creo que está en el cuerpo principal del programa.
Al inicializar la variable maxim a 0 y posteriormente hacer el for de 1 a 0, no te hace ningun paso.
No será que querias poner FOR i:=1 TO max do?

Saludos!

Cobo3:
Sabia yo que tenia que ser algo absurdo.. jaja!
Vaya, gracias Xaos.

Navegación

[0] Índice de Mensajes