programa em pascal.

Question

[COLOR=black]gente to com um grande problema tipo:
tenhu q fazer um programa em pascal que leia uma matriz a(6,6). avise se a matriz possui entre os seus elementos algum numero primo. o programa deve escrever possui elemento primo ou nao possui elemento primo e por fim escrever a matriz novamente..
mas eu fim a parte de recebe os 36 numeros q seriam das 6 linhas e 6 colunas e mostro a matris na tela mas naum consigu fazer um colculo pra descobrir se dentro da matriz possui algum elemento primo.. e se tiver como tbm teria que disser quais sao..
sera que alguem pode me ajudar??
obrigado.[/COLOR]

Answer

poste o q vc j&aacute; fez...

crie uma fun&ccedil;&atilde;o pra verificar se &eacute; primo... j&aacute; tentou fazer isso?

Answer

bom &eacute; justamente esta fun&ccedil;&atilde;o q eu naum consigu elabora ela..
se tive alguma ideia...
obrigado.

Answer

FUNction primo(a:integer):boolean;
var
i:integer;
begin
PRIMO:=TRUE;
for i:=2 to (trunc(sqrt(a))+1) do begin
    if (a mod i) = 0 then begin
       PRIMO:=FALSE;
       break;
       end;
    end;
end;

n&atilde;o sei se precisa somar 1 ao numero truncado, mas por via das duvidas eu somei 1 :D

Answer

program matriz;
uses crt;
var M: array [1..6,1..6] of integer;
var X, Y, N, I: integer;
begin
     clrscr;
     writeln ('Digite 36 valores inteiros para a matriz:');
     for X:=1 to 6 do
         begin
         for Y:=1 to 6 do
             begin
             readln (M[X,Y]);
             end;
         end;
     writeln ('Com estes numeros a matriz &sbquo;:');
     for Y:=1 to 6 do
         begin
         X:=1;
         write (' ',M[X,Y],' ');
         end;
     writeln ('');
     for Y:=1 to 6 do
         begin
         X:=2;
         write (' ',M[X,Y],' ');
         end;
     writeln ('');
      for Y:=1 to 6 do
         begin
         X:=3;
         write (' ',M[X,Y],' ');
         end;
      writeln ('');
       for Y:=1 to 6 do
         begin
         X:=4;
         write (' ',M[X,Y],' ');
         end;
         writeln ('');
         for Y:=1 to 6 do
         begin
         X:=5;
         write (' ',M[X,Y],' ');
         end;
         writeln ('');
        for Y:=1 to 6 do
         begin
         X:=6;
         write (' ',M[X,Y],' ');
         end;
        writeln ('');
     N:=0;
     for X:= 1 to 6 do
         begin
         for Y:=1 to 6 do
             begin
             N:=N+M[X,Y];
             end;
         end;
         writeln ('Digite qualquer tecla para sair:');
         readln (I);
end.

Answer

esse corpo do programa q eu postei agora &eacute; u seguinte:
eli pede para a pessoa digitar  36 digitos q sera os numeros para formar uma matri de 6 linhas por 6 colunas.. certo?
logo apos issu o progrma deveria ter q ver se algun(s) do(s) numero(s) digitados sao primos, e &eacute; logo esta parte q naum consigu fazer.. entende...
se alguem consegui ae fiko grato.. presiso deste programa para dia 27 de novenbro, segunda feira ou seja amanha...
obrigado.

Answer

&eacute; s&oacute; chamar a fun&ccedil;&atilde;o q eu te passei... assim &oacute;

program matriz;
uses crt;
FUNction primo(a:integer):boolean;
var
i:integer;
begin
PRIMO:=TRUE;
for i:=2 to (trunc(sqrt(a))+1) do begin
    if (a mod i) = 0 then begin
       PRIMO:=FALSE;
       break;
       end;
    end;
end;
var
M: array [1..6,1..6] of integer;
X, Y, N, I: integer;
begin
     clrscr;
     writeln ('Digite 36 valores inteiros para a matriz:');
     for X:=1 to 6 do
         begin
         for Y:=1 to 6 do
             begin
             readln (M[X,Y]);
             end;
         end;

{eu s&oacute; adicionei a fun&ccedil;&atilde;o e chamei ela aqui &oacute;}

      for X:=1 to 6 do
         begin
         for Y:=1 to 6 do
             begin
             if primo(M[X,Y]) then writeln ('O numero ',M[X,Y],' na posi&ccedil;&atilde;o (',X,',',Y,') &eacute; primo!!');
             end;
         end;
     writeln ('Com estes numeros a matriz &sbquo;:');
     for Y:=1 to 6 do
         begin
         X:=1;
         write (' ',M[X,Y],' ');
         end;
     writeln ('');
     for Y:=1 to 6 do
         begin
         X:=2;
         write (' ',M[X,Y],' ');
         end;
     writeln ('');
      for Y:=1 to 6 do
         begin
         X:=3;
         write (' ',M[X,Y],' ');
         end;
      writeln ('');
       for Y:=1 to 6 do
         begin
         X:=4;
         write (' ',M[X,Y],' ');
         end;
         writeln ('');
         for Y:=1 to 6 do
         begin
         X:=5;
         write (' ',M[X,Y],' ');
         end;
         writeln ('');
        for Y:=1 to 6 do
         begin
         X:=6;
         write (' ',M[X,Y],' ');
         end;
        writeln ('');
     N:=0;
     for X:= 1 to 6 do
         begin
         for Y:=1 to 6 do
             begin
             N:=N+M[X,Y];
             end;
         end;
         writeln ('Digite qualquer tecla para sair:');
         readln (I);
end.

Answer

Usa a fun&ccedil;&atilde;o que te passaram, se n&atilde;o funcionar eu tenho outra aqui... n&atilde;o t&atilde;o aficiente quanto, mas funciona...
 
Ah! Porque voc&ecirc; n&atilde;o organiza seu c&oacute;digo em procedimentos e fun&ccedil;&otilde;es? Fica mais limpo o c&oacute;digo. Bom, eu acho melhor...:)

for i:=1 to 6 do
begin
  for j:=1 to 6 do
  write(m[i,j],' ');
writeln();
end;
 
Esse c&oacute;digo vai imprimir sua matriz do mesmo jeito que voc&ecirc; fez, mas com BEM menos linhas... testa a&iacute;...

Answer

[quote=Atento, post: 2540701]Usa a fun&ccedil;&atilde;o que te passaram, se n&atilde;o funcionar eu tenho outra aqui... n&atilde;o t&atilde;o aficiente quanto, mas funciona...
 
Ah! Porque voc&ecirc; n&atilde;o organiza seu c&oacute;digo em procedimentos e fun&ccedil;&otilde;es? Fica mais limpo o c&oacute;digo. Bom, eu acho melhor...:)
 

for i:=1 to 6 do
begin
  for j:=1 to 6 do
  write(m[i,j],' ');
writeln();
end;
 
Esse c&oacute;digo vai imprimir sua matriz do mesmo jeito que voc&ecirc; fez, mas com BEM menos linhas... testa a&iacute;...[/QUOTE]

t&aacute; funcionando certinho a fun&ccedil;&atilde;o q eu passei... eu testei com v&aacute;rios numeros...

eu tb axei estranho a quantidade de linha de codigo q ele presisou pra imprimir a matriz, mas eu nem olhei direito essa parte do codigo... :D

Answer

program matriz;
uses crt;
var M: array [1..6,1..6] of integer;
var X, Y, N, I:integer;
begin
  clrscr;
    writeln ('Digite 36 valores inteiros para a matriz:');
      for X:=1 to 6 do
         begin
          for Y:=1 to 6 do
             begin
             readln (M[X,Y]);
             end;
         end;
    writeln ('Com estes numeros a matriz &sbquo;:');
      for Y:=1 to 6 do
          begin
              X:=1;
              write (' ',M[X,Y],' ');
          end;
              writeln ('');
      for Y:=1 to 6 do
          begin
              X:=2;
              write (' ',M[X,Y],' ');
          end;
              writeln ('');
      for Y:=1 to 6 do
          begin
              X:=3;
              write (' ',M[X,Y],' ');
          end;
              writeln ('');
      for Y:=1 to 6 do
          begin
              X:=4;
              write (' ',M[X,Y],' ');
          end;
              writeln ('');
      for Y:=1 to 6 do
          begin
              X:=5;
              write (' ',M[X,Y],' ');
          end;
              writeln ('');
      for Y:=1 to 6 do
          begin
              X:=6;
              write (' ',M[X,Y],' ');
          end;
              writeln ('');
      N:=0;
     for X:= 1 to 6 do
         begin
             for Y:=1 to 6 do
                begin
                    N:=N+M[X,Y];
                end;
         end;
 
      ('NESTE ESPA&euro;O VAZIO DEVE ESTAR O COMANDO PARA VER SE OS')
      ('NUMEROS DIGITADOS PELOS USUARIOS SAO PRIMOS OU NAO')
      ('E TAMBEM DISSER QUAIS SAO')

writeln ('Sua matriz:');
      for Y:=1 to 6 do
         begin
             X:=1;
             write (' ',M[X,Y],' ');
         end;
             writeln ('');
      for Y:=1 to 6 do
         begin
             X:=2;
             write (' ',M[X,Y],' ');
         end;
             writeln ('');
      for Y:=1 to 6 do
         begin
             X:=3;
             write (' ',M[X,Y],' ');
         end;
             writeln ('');
      for Y:=1 to 6 do
         begin
             X:=4;
             write (' ',M[X,Y],' ');
         end;
             writeln ('');
      for Y:=1 to 6 do
         begin
             X:=5;
             write (' ',M[X,Y],' ');
         end;
             writeln ('');
      for Y:=1 to 6 do
         begin
             X:=6;
             write (' ',M[X,Y],' ');
         end;
             writeln ('');
     N:=0;
     for X:= 1 to 6 do
        begin
            for Y:=1 to 6 do
               begin
                   N:=N+M[X,Y];
               end;
        end;
         writeln ('Digite qualquer tecla para sair:');
         readln (I);
end.

Answer

este seria mais ou menos o programa eu naum consegui faze o q o felipe falou, ele so recebe os numeros e nao mostra se o numero &eacute; primo ou nao...
esse q eu postei agora ali em cima eli recebe os 36 nuimeros depiis eli mostra na tela todos estes 36 nuimeros em forma de uma matriz 6x6 e apos issu deveria mostrar se dentro dos numeros da matriz ha algum numero primo ou nao e se tiver quais sao.. pois beim &eacute; esta parte q eu nao estou conseguindo..
e logo apos eu repeti todo o programa para mostrar a matris novamente..
se alguem tiver ideia.. estou desde quarta feira quebrando a cabe&ccedil;a nisto..
 obrigado..

Answer

consegui fazer u programa q tu me passo a funcionar..
vlw mesmu cara me quebro um galao meu...
mais tipo agora eu teria q ver tipo assim u 35 a fun&ccedil;&atilde;o acusa q eli nao &eacute; um numero primo certto...
entao eu queria tenta faze a fun&ccedil;&atilde; q diga quais sao os numeros q nao sao primos.. dae o programa diria quais sao primos e quais nao sao soh q no seu programa eli tah dando erro quando eu coloca um else que seria o senao.. certo???
como eu teria q fazer??
obrigado

Answer

[quote=SONY1235, post: 2540956]consegui fazer u programa q tu me passo a funcionar..
vlw mesmu cara me quebro um galao meu...
mais tipo agora eu teria q ver tipo assim u 35 a fun&ccedil;&atilde;o acusa q eli nao &eacute; um numero primo certto...
entao eu queria tenta faze a fun&ccedil;&atilde; q diga quais sao os numeros q nao sao primos.. dae o programa diria quais sao primos e quais nao sao soh q no seu programa eli tah dando erro quando eu coloca um else que seria o senao.. certo???
como eu teria q fazer??
obrigado[/QUOTE]

para usar o else tem q tirar o ponto-e-virgula....

ficaria assim:

             if primo(M[X,Y]) then begin
                writeln ('O numero ',M[X,Y],' na posi&ccedil;&atilde;o (',X,',',Y,') &eacute; primo!!');
                end
             else begin
                  writeln ('O numero ',M[X,Y],' na posi&ccedil;&atilde;o (',X,',',Y,') n&atilde;o &eacute; primo.');
             end;

Answer

bah felipe nem assim velho soh da erro..
vc conseguiu fazer deste jeito..????
bah pq aqui naum tem cara so da erro devo estar fazendu algo errado..

Answer

ai! ve se esta resouve.
function IntPrime(Value: Integer): Boolean;

var

i : integer;

begin

Result := False;

Value := Abs(Value);

if Value mod 2  0 then

begin

i := 1;

repeat

i := i + 2;

Result:= Value mod i = 0

until Result or ( i > Trunc(sqrt(Value)) );

Result:= not Result;

end;

Roberto Reis.

Ferramentas

Mover Tópico