1 reply to this topic

[cartoon]

ae galera blz ?
bemto começando a brinca de VB.NET

e tava la no dos la e resolvi criar um exemplo para o calculo de um fatorial

Public Class Fatorial
    Shared Sub Main()
    Dim sInput As String
    Dim iInput As Integer
    Dim iCounter As Integer
    Dim iFactorial As Integer

System.Console.Write("Insira um Número: ")
iInput = System.Console.ReadLine()
iInput = Cint(sInput)
iFactorial = 1
For iCounter = 0 to (dInput - 1)
    iFactorial = (iInput - iCounter) * iFactorial     
Next iCounter
System.Console.Writeline(iFactorial)
    End Sub
End Class

esse codigo funciona mas se eu colocar um numero acima de 12 ele da Overflow
ele ta exedendo o tamanho da variavel de um inteiro .. eu pensei em converter para longo mas o resultado e semrpe 1 alguem pode ajudar?

[felipecm]

ae galera blz ?
bemto começando a brinca de VB.NET

e tava la no dos la e resolvi criar  um exemplo para o calculo de um fatorial

Public Class Fatorial
    Shared Sub Main()
    Dim sInput As String
    Dim iInput As Integer
    Dim iCounter As Integer
    Dim iFactorial As Integer

System.Console.Write("Insira um Número: ")
iInput = System.Console.ReadLine()
iInput = Cint(sInput)
iFactorial = 1
For iCounter = 0 to (dInput - 1)
     iFactorial = (iInput - iCounter) * iFactorial      
Next iCounter
System.Console.Writeline(iFactorial)
     End Sub
End Class

esse codigo funciona mas se eu colocar um numero acima de 12 ele da Overflow
ele ta exedendo o tamanho da variavel de um inteiro .. eu pensei em converter para longo mas o resultado e semrpe 1 alguem pode ajudar?

tenta não converte o inteiro pra long.. declara long no começo pro fatorial.
(dim iFatorial as Long)

Edição feita por: hdz*, 10/06/2004, 23:13.