Sign in to follow this  
telinha_x

Fatorial E Numeros Primos

Recommended Posts

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!

Share this post


Link to post
Share on other 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......................

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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;

Share this post


Link to post
Share on other sites

biggrin.gif aewww brigadãooooooooo!!!

seria sem usar function, mas é pedir d+ não é?!!!

hehehe tá ótimoooo obrigada!!!

valeww mesmo!!!

:********

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this