Skip to main content
Inclui código do pastebin
Fonte Link
Isac
  • 25,5mil
  • 3
  • 31
  • 51

Código:

program Exercicio5;
var
  Matr, same: array [1..5, 1..5] of real;
  lin, col, linPesq, ColPesq:integer;
  repete: boolean;
 
begin
  randomize;
  for lin:= 1 to 5 do
    begin
    writeln;
    for col:= 1 to 5 do
      begin
        Matr[lin, col]:= random (1000);
        same[lin,col]:= Matr[lin,col];
        write(Matr[lin, col]:0:2, ' | ');
        end;
    end;
  for LinPesq:= 1 to 5 do
      begin
        for ColPesq:= 1 to 5 do
          begin
            for lin:= 1 to 5 do
              begin
                for col:= 1 to 5 do
                  begin
 
                    if same[LinPesq,ColPesq] = Matr[lin, col] then
                        begin
                          if lin and col and LinPesq and ColPesq <> 1 then
                            begin
                        repete := true;
                        break;
                              end;
                          end;
                    end;
                  end;
                    end;
                end;
  writeln;
  writeln;
  if repete = true then
    writeln('Ha elementos repetidos na matriz')
      else
        writeln('Nao ha elementos repetidos na matriz');
  readln;
 
end.

Código:

program Exercicio5;
var
  Matr, same: array [1..5, 1..5] of real;
  lin, col, linPesq, ColPesq:integer;
  repete: boolean;
 
begin
  randomize;
  for lin:= 1 to 5 do
    begin
    writeln;
    for col:= 1 to 5 do
      begin
        Matr[lin, col]:= random (1000);
        same[lin,col]:= Matr[lin,col];
        write(Matr[lin, col]:0:2, ' | ');
        end;
    end;
  for LinPesq:= 1 to 5 do
      begin
        for ColPesq:= 1 to 5 do
          begin
            for lin:= 1 to 5 do
              begin
                for col:= 1 to 5 do
                  begin
 
                    if same[LinPesq,ColPesq] = Matr[lin, col] then
                        begin
                          if lin and col and LinPesq and ColPesq <> 1 then
                            begin
                        repete := true;
                        break;
                              end;
                          end;
                    end;
                  end;
                    end;
                end;
  writeln;
  writeln;
  if repete = true then
    writeln('Ha elementos repetidos na matriz')
      else
        writeln('Nao ha elementos repetidos na matriz');
  readln;
 
end.
Fonte Link

Elemento repetido dentro de matriz - Pascal

Estou tentando, à um bom tempo, produzir um código que identifique e relate ao usuário se existem elementos repetidos em uma matriz 5x5, composta por números aleatórios, no pascal. Já tentei pesquisar a matriz usando uma, ou duas, variáveis e também com uma matriz inteira para pesquisa, mas não deu certo. Ouvi falar, de algumas pessoas, que não é necessário um código muito grande, e nem muito complexo para a tarefa. Assim meu desespero aumenta.

Pergunto se alguém tem alguma solução para o problema

Link PasteBin para tentativa mal sucedida (e mais viajada)- https://pastebin.com/uzPLACXe