Contoh Program Menggunakan Function

Function yang saya ketahui itu, menentukan suatu nilai pada Nama Function-nya dan memiliki nilai balik sesuai dengan nilai ungkapannya dan daftar parameter bersifat optional.

Rumus :
FUNCTION namafunction [daftar parameter]

  [Blok Pernyataan]
  namafunction = ungkapan
END FUNCTION


Contoh Program :

1 CLS
PRINT "kalkulator"
INPUT "Bilangan 1 = "; bil1
INPUT "Bilangan 2 = "; bil2
INPUT "Pilih Operator (+, -, x, /)"; op$
SELECT CASE op$
    CASE "+"
        hasil = plus(bil1, bil2)
    CASE "-"
        hasil = min(bil1, bil2)
    CASE "/"
        hasil = bagi(bil1, bil2)
    CASE "x"
        hasil = kali(bil1, bil2)
END SELECT
PRINT "Hasil = "; hasil
INPUT "Menghitung ulang (Y/T) "; yt$
IF yt$ = "y" OR yt$ = "Y" THEN GOTO 1
END

FUNCTION plus (a, b)
plus = a + b
END FUNCTION

FUNCTION min (a, b)
min = a - b
END FUNCTION

FUNCTION bagi (a, b)
bagi = a / b
END FUNCTION

FUNCTION kali (a, b)
kali = a * b
END FUNCTION