Fórum Números primos #225216
11/04/2004
0
Bfalcon
Curtir tópico
+ 0Posts
11/04/2004
Aroldo Zanela
http://delphiforum.icft.com.br/forum/viewtopic.php?t=34607
Gostei + 0
11/04/2004
Beppe
procedure TForm1.Button1Click(Sender: TObject);
const
Max = 100;
var
Primos: array[1..Max] of Boolean;
I, J: Integer;
begin
FillChar(Primos, SizeOf(Primos), 1);
Primos[1] := False;
for I := 2 to Trunc(Sqrt(Max)) do
begin
J := I + I;
while J <= Max do
begin
Primos[J] := False;
Inc(J, I);
end;
end;
...
end;A idéia é considerar todos os números como sendo primos até que se prove o contrário, exceto o 1, que é sabido não primo. Um laço é usado para eliminar da lista todos os múltiplos(não inclusive) da variável de controle.
Gostei + 0
11/04/2004
Aroldo Zanela
Pra testar: http://www.utm.edu/research/primes/lists/small/1000.txt
Gostei + 0
11/04/2004
Edilcimar
procedure TForm1.Button1Click(Sender: TObject);
const
Max = 100;
var
Primos: array[1..Max] of Boolean;
I, J: Integer;
begin
FillChar(Primos, SizeOf(Primos), 1);
Primos[1] := False;
for I := 2 to Trunc(Sqrt(Max)) do
begin
J := I + I;
while J <= Max do -> AQUI BASTA IR ATÉ MAX/2 - e vc ganha tempo de processamento em números grandes
begin
Primos[J] := False;
Inc(J, I);
end;
end;
...
end;Gostei + 0
12/04/2004
Bfalcon
Gostei + 0
12/04/2004
Nerdex
Quem disse: foi meu antigo professor de Lógica...tá ?!
Abraço
Gostei + 0
12/04/2004
Bfalcon
É?
Não sabia disso...
Gostei + 0
12/04/2004
Aroldo Zanela
Se tem prêmio eu não sei, mas que o pessoal está procurando um maior a cada dia, ah sim, com certeza. Vejam:
http://www.estadao.com.br/tecnologia/internet/2003/dez/17/46.htm
Gostei + 0
12/04/2004
Cebikyn
Gostei + 0
12/04/2004
Paulo_amorim
Olá
:idea: Se eu bem me lembro, li na revista Scientific American Brasil de uns 3 meses atrás que um grupo de 4 matematicos indianos (tinha que ser ne) desenvolveram um algoritmo...Lá tinha o site, mas nao anotei.
Vou ver se acho a revista em casa e se achar o site eu posto aqui.
Até+
Gostei + 0
12/04/2004
Beppe
Eu vi uma vez, mas era dum cara só, ou dois até, o pseudo código do algoritmo ocupava umas 15 linhas só(lógico q implementando ia mais).
Eu já vi buscarem primos de tudo q eh jeito: twins(dois números impares consecutivos), de mersenne(igual a 2 elevado a um número x - 1). Eu já encontrei um site que distribua um programa para q a pessoa em casa ajudasse a procurar tais números
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)