Pascal/Turbo Pascal - Problema con procedures

   
Vista:

Problema con procedures

Publicado por Antonio (1 intervención) el 18/01/2011 13:08:08
Buenas!! Estoy empezando a usar Lazarus, programando en pascal, y me he encontrado con un pequeño problema que no se resolver. Debe de ser alguna minucia, seguro.

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;

begin
LTabla(t);
maxim:=0;
for i:=1 to maxim do
if t[i]>maxim then
maxim:=t[i];
writeln('La mayor de las resistencias es la de ',maxim,'.');
readln
end.

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?
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

RE:Problema con procedures

Publicado por abel (2 intervenciones) el 21/01/2011 16:23:20
Estimado antonio .
Yo resolvi ya un ejercicio similar pero con una funcion
espero que te sirva.
program G5ej1;
uses crt;
const
limite=10;
type
listanumeros = array [1..100] of integer;
var
calificaciones : listanumeros;
num ,I,valor : integer ;

function maximo (numeros : listanumeros ) : integer ;
(*maximo encuentra el valor mayor del vector numeros de n elementos*)
var
I , aux : integer ;
begin
aux := numeros [I] ;
for I := 2 to num do
if numeros [I]> aux
then
aux := numeros [I] ;
maximo := aux ;
end;

begin
clrscr;
writeln ('introducir cantidad de numeros');
readln ( num );
if num > limite then writeln ('numero no valido')
else
begin

writeln('introducir sus ' ,num , ' numeros ');
for I:= 1 to num do
begin
read(calificaciones[I]);
end;
end;
textcolor (green) ;
writeln ('el mayor de sus numeros ingresados es: ');
textcolor(red);
writeln( maximo (calificaciones));
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
0
Comentar