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

Linux banner
Linux banner


» Screenshot


Scripts

Linux user

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

Login: lokitakkk, 41910 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 Mostrar maior e menor
   Script Linux recomendado escreve os números de 1 a 9 com repeat - until
   Script Linux recomendado controle de notas de um aluno com registro e array
   Script Linux recomendado programa pra somar e tirar média
   Script Linux recomendado Extenso em dll, com parâmetros adicionais

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.