telinha_x
Membros-
Total de itens
4 -
Registro em
-
Última visita
Sobre telinha_x
Contatos
-
MSN
telinhax@hotmail.com
-
Website URL
http://www.fotolog.net/telinhax
-
ICQ
0
Perfil
-
Location
criciúma
telinha_x's Achievements
0
Reputação
-
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!