En este grupo En todos

Foro de PASCAL



ayuda con matrices

Patricio
Buenos Aires, Argent...
Escrito por Patricio
el 16/12/2007

Hola, quisiera que alguien me ayudara con este programa. Tengo que hacer lo siguiente:

-Generar una matriz de 5*5 numeros aleatorios menores a 200. A los elementos de la diagonal secundaria calcularle la funcion fibonaci y guardarlo en un vector. Mostrar el vector.

Si alguien me puede ayudar le agradeceria mucho, ya que es urgente. Desde ya muchas gracias.

Mariano
Capital Federal, Arg...
Escrito por Mariano
el 16/12/2007

Holaa Patricio!
Mira, yo lo pirmero lo hice sin problemas, ahora a lo q vos llamas la funcion de fibonacci, supuse q es sumarle la suma de los anteriores mas el nuevo, si no es asiii, decime :)

aca te dejo el codigo :

Program MatrizFibonaccio;
uses
  crt;

type
  matriz=array [1.. 5,1.. 5] of byte;
  vector=array[1.. 5] of word;

procedure CargaMat(var mat:matriz);
var
  i:byte;
  j:byte;

begin
  for i:=1 to 5 do
    for j:=1 to 5 do
      mat[i,j]:=random(199)+1;
end;

procedure CargaVec(var vec:vector;mat:matriz);
var
  i,j:byte;
  valor:word;
begin
  i:=1;
  valor:=0;
  for j:=5 downto 1 do begin {para obtener diag sec}
    valor:=valor + mat[i,j]; {secuencia fibonacci, suma d ant + nuevo}
    vec[i]:=valor; {cargo en vec}
    inc(i)
  end
end;

procedure MostrarVec(var v:vector);
var
i:byte;

begin
  clrscr;
  writeln("Numeros generados");
  for i:=1 to 5 do
    write( v[i], " , ");
  readln
end;

var
 vec:vector;
 matri:matriz;

begin
  CargaMat(matri);
  CargaVec(vec,matri);
  MostrarVec(vec)
end.


Cualquier cosa que no sea lo que encesitas avisame :)
Y si no t molesta, nominame a experto :)

un abrazoo!


Mariano