Ir para conteúdo
Fórum Script Brasil

Fatorial E Numeros Primos


telinha_x

Posts Recomendados

ohmy.gif aix socorro tenho que fazer um programa em delphi achar o fatorial de um numero digitado numa edit e os numeros primos existentes num dado intervalo

será que alguém pode me ajudar? nessa tarde de dimingu eu não consigu pensar em nada tongue.gif

to quase lá mas minha mente num ajuda!

Link para o comentário
Compartilhar em outros sites

vou dar uma idéia pro fatorial....... o dos primos eu tenho algo parecido, mas agora num posso procurar...........

você vai fazer um looping....(pega a idéia)

fat = n;
enquanto (n>0){
fat = fat * (n-1)
n = n-1
}
imprime fat

é mais ou menos assim......................

Link para o comentário
Compartilhar em outros sites

A idéia central do algoritmo de fatorial é alguma coisa assim:


var
resultado : int;

resultado := 1;

For I :=  1 to Num do
Begin
   resultado := resultado*(Num-I);
end;

onde Num representa o número que será usado para calcular o fatorial e resultado é a variável responsável por guardar as sucessivas multiplicações que serão efetuadas depois basta retornar o valor de resultado.

Quanto ao algoritmo de números primos também não sei como fazer.

Link para o comentário
Compartilhar em outros sites

Aixx dry.gif que que isso...:/

bah tentei os dois códigos mas nos dois o resultado dá zero :/

alguém pode ver o problema aew pra mim?

------

procedure TForm1.b_fatorialClick(Sender: TObject);

var

resultado : integer;

i : integer;

num : integer;

Begin

resultado := 1;

For I := 1 to Num do

Begin

resultado := resultado*(Num-I);

end;

showmessage( inttostr(resultado));

end;

end.

-----------------------

procedure TForm1.b_fatorialClick(Sender: TObject);

var

fat : integer;

i : integer;

num : integer;

Begin

fat := 1;

while (i > 0) do

Begin

fat := fat * (i-1);

i:= i-1;

end;

showmessage( inttostr(fat));

end;

end.

valeu []'s

Link para o comentário
Compartilhar em outros sites

Corrigi o problema o código ficou assim:

function FatorialFunc(N: integer):integer;
var i,Fat: integer;
begin
 Fat:= 1;
 for i:= 1 to N do
 begin
   Fat:= Fat*i;
 end;
 FatorialFunc := Fat;
end;

procedure TForm1.Button1Click(Sender: TObject);
var num: integer;
begin
    num:= strtoint(edit1.text);
    showmessage(inttostr(FatorialFunc(num)));
end;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...