• Jueves 19 de Septiembre de 2019, 19:27

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Cobo3

Páginas: [1]
1
Pascal / Re: Problema con procedures
« en: Martes 18 de Enero de 2011, 18:51 »
Sabia yo que tenia que ser algo absurdo.. jaja!
Vaya, gracias Xaos.

2
Pascal / Problema con procedures
« en: Martes 18 de Enero de 2011, 13:04 »
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
  1. const max=5;
  2.   type tabla=array[1..max] of integer;
  3.   procedure LTabla(var mit:tabla);
  4.             var i:integer;
  5.             begin
  6.             for i:=1 to max do
  7.                 begin
  8.                 write('Introduce el valor de la resistencia ',i,' : ');
  9.                 readln(mit[i])
  10.                 end
  11.   end;
  12.  
  13. var t:tabla;
  14.       maxim,i:integer;
  15.  
  16. begin
  17. LTabla(t);
  18. maxim:=0;
  19. for i:=1 to maxim do
  20. if t[i]>maxim then
  21.        maxim:=t[i];
  22. writeln('La mayor de las resistencias es la de ',maxim,'.');
  23. readln
  24. end.  
  25.  
  26.  

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?

Páginas: [1]