Linux slogan
Visite também: BR-Linux.org · Dicas-L · SoftwareLivre.org · UnderLinux

Linux banner
Linux banner
Linux banner
Linux banner


» Screenshot


Scripts

Linux user

Publicado por Kelyane em (última atualização em 01/10/2009)   [ 3794 hits ]

Login: lokitakkk, 41438 pontos

Homepage: http://blog.kelyane.com

Download:



Descrição

Programa que verifica se o número é primo ou não.


[ Download: NumeroPrimo.pas ]   [ Enviar nova versão ]

[ Esconder código-fonte ]

Program NumPrimo ;

Var    N, i: integer;
          isPrimo: boolean;
          respostaUsuario: char;   

Begin    
   repeat
      write('Informe um número: ');
      readln(N);
       
           i:=2;
      isPrimo:= true ;
         while (i<N) and (isPrimo) do  begin
         if (N mod i = 0) then begin    
            isPrimo:= false ;
                   end ;    
                        i:= i+1 ;
           end;
           if (isPrimo) then   Begin
         writeln(N, ' é um número primo');
           End
           else Begin
              writeln(N, ' não é um número primo, porque é divisível por ', i-1);
           End;

      write('Deseja continuar ? (S/N)');      
           readln(respostaUsuario);
   until (respostaUsuario='N') or (respostaUsuario='n') ;
End.



Scripts recomendados
   Script Linux recomendado Eleições 2006
   Script Linux recomendado Rompecompiladores Ackerman
   Script Linux recomendado Calculadora de notas (Pascal)
   Script Linux recomendado Sequência de Fibonacci
   Script Linux recomendado cadastro de multiplos clientes com registro

Comentários
[1] Comentário enviado por fscaetano em 01/10/2009 - 12:25h:

Pode-se dar uma boa otimizada:
- testar somente i ímpares após o 2;
- testar somente i se i*i < N, ou i <= sqrt(N), calculando a raiz somente uma vez e colocando o valor em outra variável;
- incrementar i somente no else do if(N mod i = 0), assim não precisaria do offset -1 no writeln;
Abraço!



Contribuir com comentário


  
Para executar esta ação você precisa estar logado no site, caso contrário, tudo o que for digitado será perdido.
Responsável pelo site: Fábio Berbert de Paula - Conteúdo distribuído sob licença GNU FDL
Site hospedado por:

Viva o Linux

A maior comunidade Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda em Linux.