fungsi Luas(P,L) 'mencipta fungsi untuk mengira luas
cetak P*L tamat Luas(10,3) 'fungsi dipanggil |
fungsi Luas(P,L) 'mencipta fungsi
kembali P*L tamat jawapan = Luas(10,3) 'fungsi dipanggil dan nilai dikembali cetak "Luas = "+jawapan cetak "Luas lain = "+Luas(7,6) |
fungsi Luas(P,L) 'mencipta fungsi
kembali P*L tamat fungsi Isipadu(Luas,T) kembali Luas*T tamat cetak Luas(10,3) 'fungsi dipanggil dan nilai dikembali diguna terus oleh arahan lain l=Luas(10,3) 'nilai dikembali dimasukkan kedalam pembolehubah i=Isipadu(l,5) 'fungsi lain menggunakan nilainya dari pembolehubah cetak Isipadu(l,5) 'fungsi lain menggunakan nilainya dari pembolehubah cetak Isipadu(Luas(10,3),5) 'nilai dikembalikan diguna terus untuk nilai parameter fungsi yang lain |
fungsi RawakHuruf$(ayat$) 'fungsi ini mengembalikan nilai rentetan
hasil$="" dari k=1 ke pan(ayat$) a$=tengah(ayat$,k,1) jika Rawak(10)<5 hasil$=hasil$+a$ Lain hasil$=hasil$+Besar(a$) Dah lagi kembali hasil$ Tamat cetak RawakHuruf$("Apa yang bakal berlaku saya tidak pasti") |
fungsi Muka(x=100,y=100,saiz=30)
warna 255,255,255 bulat x,y,saiz,1 warna 0,0,0 bulat x,y,saiz-5,0,10,160 bulat x-3,y,2,1:bulat x+3,y,2,1 bulat x-10,y-10,4,1:bulat x+10,y-10,4,1 Tamat Muka 200,200,40 '<--Memanggil fungsi tanpa () Muka(300,300,50) '<--Memanggil fungsi dengan () |