comparar linhas de uma matriz
05/08/2019
0
Boa tarde, gostaria de fazer uma função que varre uma matriz e ache um linha que contenha todos os elementos maior que da linha seguinte ou da linha anterior, basicamente é para testar todas com todas até encontrar a linha que tenha todos os elementos maior ou igual a outra linha.
fiz a função porém não estou tendo êxito. Se alguém puder me ajudar , desde já agradeço.
fiz a função porém não estou tendo êxito. Se alguém puder me ajudar , desde já agradeço.
function mista(): string; var posI,posJ,i,j,l,k,cont:integer; verifica: array of Boolean; validado,achou: Boolean; texto,resultado: string; begin achou := false; validado:=true; posI:=0; SetLength(matrizAux,qtdLinha,qtdColuna); SetLength(verifica,qtdColuna); for i:=0 to qtdLinha-1 do //preenchendo a matriz aux for j:=0 to qtdColuna-1 do begin matrizAux[i,j]:=matriz[i,j]; verifica[i]:= false; end; for i:= 0 to qtdLinha-1 do for j:= 0 to qtdColuna-1 do for l:=0 to qtdLinha-1 do if not achou then begin for k:=0 to qtdColuna-1 do begin if not l=i then begin if (matriz[i,j]>= matrizAux[l,k]) then begin verifica[i]:= true; end; end; end; // for K cont:=0; while validado do begin if verifica[cont] then begin posI:= i; inc(cont); achou:=true; end else begin validado:= false; achou := false end; end; //while end //if do achou else break; if achou then begin for j:= 0 to qtdColuna-1 do begin texto:= texto + ''''+ inttostr(matrizAux[posI,j]); end; resultado:= texto; end else resultado:= ''linha não encontrada''; mista:= resultado; end;
Maria Taisa
Curtir tópico
+ 0
Responder
Posts
15/08/2019
Fernando Ito
Olá Maria Taisa,
Achei um post bem interessante que possa lhe ajudar com o seu problema, dá uma olhada lá ok, sucesso!
http://thalesreis.com/delphi/delphi-um-passo-alem-com-matrizes-array/
Um abraço,
ITO
Achei um post bem interessante que possa lhe ajudar com o seu problema, dá uma olhada lá ok, sucesso!
http://thalesreis.com/delphi/delphi-um-passo-alem-com-matrizes-array/
Um abraço,
ITO
Responder
30/09/2019
Maria Taisa
Olá Maria Taisa,
Achei um post bem interessante que possa lhe ajudar com o seu problema, dá uma olhada lá ok, sucesso!
http://thalesreis.com/delphi/delphi-um-passo-alem-com-matrizes-array/
Um abraço,
ITO
Achei um post bem interessante que possa lhe ajudar com o seu problema, dá uma olhada lá ok, sucesso!
http://thalesreis.com/delphi/delphi-um-passo-alem-com-matrizes-array/
Um abraço,
ITO
ja li o post, mas não me ajudou muito.
Responder
Clique aqui para fazer login e interagir na Comunidade :)