ali.rk
شنبه 12 مرداد 1392, 00:09 صبح
کد تجزیه عدد :
Dim a AsInteger
Dim fi
Dim i AsBoolean
Dim x AsBoolean
x = True
i = True
Dim ted
Dim araye(31) AsInteger
Dim p
a = TextBox1.Text
pa = "{ "
fi = 2
p = 1
While i
If a Mod fi = 0 Then
araye(p) = fi
a = a / fi
p = p + 1
If a = 1 Then
Exit While
EndIf
Else
fi = fi + 1
EndIf
EndWhile
p = 1
While x
If araye(p) <> 0 Then
If araye(p + 1) <> araye(p) And araye(p - 1) <>araye(p) Then
pa = pa & " " & araye(p) & "^1"
ted = 0
p = p + 1
Else
If araye(p) <> araye(p - 1) And araye(p + 1) = araye(p) Then
ted = 1
p = p + 1
Else
If araye(p) = araye(p - 1) And araye(p + 1) = araye(p) Then
ted = ted + 1
p = p + 1
Else
If araye(p) = araye(p - 1) And araye(p + 1) <> araye(p) Then
ted = ted + 1
pa = pa & " " & araye(p) & "^" & ted
p = p + 1
ted = 0
EndIf
EndIf
EndIf
EndIf
Else
Exit While
EndIf
EndWhile
pa = pa & " }"
یه تشکر بکنید ممنون می شما
Dim a AsInteger
Dim fi
Dim i AsBoolean
Dim x AsBoolean
x = True
i = True
Dim ted
Dim araye(31) AsInteger
Dim p
a = TextBox1.Text
pa = "{ "
fi = 2
p = 1
While i
If a Mod fi = 0 Then
araye(p) = fi
a = a / fi
p = p + 1
If a = 1 Then
Exit While
EndIf
Else
fi = fi + 1
EndIf
EndWhile
p = 1
While x
If araye(p) <> 0 Then
If araye(p + 1) <> araye(p) And araye(p - 1) <>araye(p) Then
pa = pa & " " & araye(p) & "^1"
ted = 0
p = p + 1
Else
If araye(p) <> araye(p - 1) And araye(p + 1) = araye(p) Then
ted = 1
p = p + 1
Else
If araye(p) = araye(p - 1) And araye(p + 1) = araye(p) Then
ted = ted + 1
p = p + 1
Else
If araye(p) = araye(p - 1) And araye(p + 1) <> araye(p) Then
ted = ted + 1
pa = pa & " " & araye(p) & "^" & ted
p = p + 1
ted = 0
EndIf
EndIf
EndIf
EndIf
Else
Exit While
EndIf
EndWhile
pa = pa & " }"
یه تشکر بکنید ممنون می شما