Buscar

Descobrir se um número é primo

Código

Var x, y:longint;
    h:byte;
begin
  x:=strtoint(<nome do edit>.text);
  h:=0;
  for y:=1 to x do
      if (x mod y=0) then
         h:=h+1;
  if (h=2) then
     <nome do label>.Caption:='O Número é prino'
  else
     <nome do label>..caption:='O número ñ é primo';

end;                                        

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 22/02/07
Por: Kozmisk Mysaki
Visualizada: 5328 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009