Berarti anda tidak pernah mengunjungi web milis ya..
Bilangan Prima pernah diubek-ubek di milis ini; dijadikan celeng (Challenge)
Lihat dan unduh filenya di bagian 'FILES' di milis ini
cari file 0018.prime_number_(closed).zip
di situ banyak contoh FORMULA untuk menebak bilangan Prima/Bukan Prima
Tetapi cara anda ingin menyimpulkan apakah INPUT itu prima atau bukan
kayaknya tidak praktis, hampir tidak logis, ribet...
Anda ingin :
jika INPUT (misal cell C3) ternyata BUKAN bilangan prima, outputnya = "NON PRIMA"
jika INPUT ternyata = bilangan prima, outputnya angka 1 dan 7
Kalau dua bilangan 1 dan 7 dijadikan data dlm 1 cell tentunya bukan bilangan lagi (tapi text)
Lagipula bilangan 7 kan sudah ada di cell INPUT, mengapa harus di perlihatkan lagi?
OUTPUT yg paling mudah difahami semua orang adalah FALSE atau TRUE
Cara TRUE seperti yg anda gambarkan itu seperti tidak percaya kepada orang lain
bahwa mereka tahu : bilangan prima adalah bilangan yg hanya habis jika dibagi 1 atau
dibagi bilangan itu sendiri.
Makro UDF berikut menghasilkan output "PRIMA" atau "NONPRIMA"
Makro ini modifikasi dari keikutsertaan di celeng 0018 / bulan des 2005 y.l
(semula outputnya TRUE / FALSE, sekarang diganti dengan "PRIMA" / "NON-PRIMA"
'-----------------
Function PrimaKah(Bilangan As Long) As String
' siti Vi / bluewater / 14Des2005
' fungsi untuk menghakimi bilangan
' apakah dia "BilanganPrima" ataukah "Bukan"
' siti Vi / bluewater / 14Des2005
' fungsi untuk menghakimi bilangan
' apakah dia "BilanganPrima" ataukah "Bukan"
Dim isPrima As Boolean
Dim Pembagi As Long
isPrima = True
For Pembagi = 2 To Sqr(Bilangan)
If Bilangan Mod Pembagi = 0 Then
' maap, Anda bukan yg kami cari!
isPrima = False
End If
Next
If Bilangan = 0 Then isPrima = False
PrimaKah = IIf(isPrima, "PRIMA", "NON-PRIMA")
End Function
Dim Pembagi As Long
isPrima = True
For Pembagi = 2 To Sqr(Bilangan)
If Bilangan Mod Pembagi = 0 Then
' maap, Anda bukan yg kami cari!
isPrima = False
End If
Next
If Bilangan = 0 Then isPrima = False
PrimaKah = IIf(isPrima, "PRIMA", "NON-PRIMA")
End Function
----- Original Message -----From: L- VanSent: Wednesday, May 05, 2010 9:03 AMSubject: ]] XL-mania [[ bilangan prima
Master suhu xl,
gimana cara saya menentukan suatu bilangan itu prima atau bukan..
jika saya memasukan angka dikolom C3, misal 7 maka hasil di G3 adalah NONPRIMA
dan hasil bilangan yang keluar hanya angka 1 dan 7
jika ada cara dengan makro juga tidak apa2..
thanks,
L-van
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| uaaaaa... mau game maeeemoooooooo.... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| uaaaaa... mau game maeeemoooooooo.... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário