VBA 5

Option Explicit
Function silnia_(n As Integer) As Long
Dim i As Integer
    silnia_ = 1
    For i = 1 To n
        silnia_ = silnia_ * i
    Next i
End Function
Function inicjaly(fName As String, sName As String) As String
    inicjaly = Left(fName, 1) & ". " & Left(sName, 1) & "."
End Function
Function email(fName As String, sName As String) As String
    Dim i As Integer, a As Integer, len1 As Integer, len2 As Integer
    len1 = Len(fName)
    len2 = Len(sName)
    For i = 1 To len1
        a = Asc(Right(Left(fName, i), 1))
        If a < 90 Then
            a = a + 32
        End If
        email = email & Chr(a)
    Next i
    email = email & "."
    For i = 1 To len2
        a = Asc(Right(Left(sName, i), 1))
        If a < 90 Then
            a = a + 32
        End If
        email = email & Chr(a)
    Next i
    email = email & "@zarz.agh.edu.pl"
End Function
Function nwd(a As Integer, b As Integer) As Single
Dim r As Integer
    Do
        r = a Mod b
        If r = 0 Then
            nwd = b
        Else
            a = b
            b = r
        End If
    Loop Until r = 0
End Function
Function newton(n As Integer, k As Integer) As Double
    newton = silnia_(n) / (silnia_(k) * silnia_(n - k))
End Function
Function ToBin(dec As Integer) As String
    Dim bin As Integer, res As String
    Do Until dec = 0
        bin = dec Mod 2
        dec = dec \ 2
        res = res & bin
    Loop
    ToBin = StrReverse(res)
End Function
Function sReverse(tekst As String) As String
    sReverse = StrReverse(tekst)
End Function
Function PoleTrojkata(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As Double
' wzor Herona
    Dim p As Double
    If (a + b > c) And (a + c > b) And (c + b > a) Then
        p = (a + b + c) / 2
        PoleTrojkata = Sqr(p * (p - a) * (p - b) * (p - c))
    Else
        PoleTrojkata = 0
    End If
End Function