Matematiksel sıfırdan büyükmü sorgusu (Mathematical "is greater than zero" query)

mod(x*3;(x*3)-1)=
eğer x sıfırdan büyükse sonuç=1 değilse sonuç=0 olur
(=if x greater zero then result=1 else result=0)
t=O time
yani süper zamanlı hesaplanan bi fonksiyon.

(x*3) mod ((x*3)-1) = (1 or 0)

Modular Base Converter

Convert fonksiyonu onluk düzene göre gönderilen M sayısı N tabanına çevirir. burdaki N > 0 ve N < 10 için. gelişmişi bende saklı..

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim base As Integer = CInt(TextBox3.Text)
        TextBox2.Text = Convert(CInt(TextBox1.Text), base)
    End Sub
    Function Convert(ByVal M As Double, ByVal N As Integer) As String
        If M < N Then
            Return ("" & Math.Floor(M).ToString)
            Exit Function
        Else
            Return Convert(Math.Floor(M / N), N) & ("" & (M Mod N).ToString)
        End If
    End Function
End Class