[Delphi7] Crear función para el determinante de una matriz
 

Tengo una duda con un ejercicio, dice:

Utilizar un componente visual tipo TStringGrid para ingresar los nueve valores de una matriz de 3X3 elementos. El objetivo es mostrar el valor de su determinante. para realizar este objetivo, deberá implementar una función que devuelva el valor del determinante de la matriz. los valores de los elementos de la matriz deberán pasarse como parámetros.

los valores de la matriz los cargaría con un random y haría su determinante, pero ¿que significa que los valores deberán pasarse como parámetros?

Si me pueden aclarar eso seria de mucha ayuda, Gracias!!

franco_cvm,

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

Quiere decir que se van a pasar los valores en los parentesis de la funcion

prueba este ejemplo para que te des una idea y te voy a recomendar dos links con documentacion mas detallada con lo que quieres

Código Delphi [-]
procedure Funcion1(parametro1:integer;parametro2:integer);//creamos la funcion que sumara dos valores pasados por  parametro
begin
  writeln('la suma de los dos es ',parametro1+parametro2);
end;


type
 Tmatriz=array [1..3,1..3] of integer;  //declaramos un nuevo tipo de dato que almacenara la matriz de 3x3

procedure mostrarArreglo(datos:Tmatriz);
var
i,j:integer;
begin
  for i:=1 to 3 do
  begin
    for j:=1 to 3 do
    begin
       write(datos[i,j],' ');//mostramos los valores por consola
    end;

  end;
end;




var
 valor1,valor2:integer;
 matriz:Tmatriz=((11,22,33),(1,4,5),(9,87,1));//llenamos la matriz por defecto

begin
  valor1:=10;
  valor2:=3;

  Funcion1(valor1,valor2);//le pasamos los valores por parametro

  //----------------------------------------------------------------------------

  mostrarArreglo(matriz);//pasamos la matriz por parametro en la funcion


  readln;

end.

link1 http://www.clubdelphi.com/foros/showthread.php?t=85907
link2 http://www.conoce3000.com/html/espan...edimientos.php

espero sea de ayuda

saludos....:)

Hola franco_cvm.

La manera mas simple es declarar el parámetro de tipo TStringGrid, pasar el StringGrid como argumento

Código Delphi [-]
function Determinante3x3(Grid: TStringGrid): Double;
...

y usar la regla de Sarrus.

Saludos :)