telinha_x

aewww brigadãooooooooo!!! seria sem usar function, mas é pedir d+ não é?!!! hehehe tá ótimoooo obrigada!!! valeww mesmo!!! :********

Aixx 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

Vou Tentar!! Obrigadaaaaaa!! hehe fiquei ate aliviada agora!!...

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 to quase lá mas minha mente num ajuda!