penggalan program buat ujian (1IA01-1IA09) ver 2 + LA Pengulangan

DECLARE SUB Irisan ()
DECLARE FUNCTION CekIsi! (Isi$, Himp() AS STRING)
DECLARE SUB HimA ()
DECLARE SUB HimB ()
DECLARE SUB Gabung ()
DECLARE SUB Selisih ()
CLS
DIM SHARED HimpA(10) AS STRING
DIM SHARED HimpB(10) AS STRING
DIM SHARED HimHasil(20) AS STRING
DIM SHARED HimIris(10) AS STRING
DIM SHARED HimSel(20) AS STRING
DIM SHARED IsiHm AS STRING

DIM SHARED nA, nB AS INTEGER

CLS
DO
CLS
LOCATE 5, 16
COLOR 9
PRINT "MAU PILIH YANG MANA ?"
LOCATE 6, 16
COLOR 10
PRINT "<<< PILIH DEH >>>"
LOCATE 8, 16
COLOR 3
PRINT "1. INPUT HIMP-A"
LOCATE 9, 16
PRINT "2. INPUT HIMP-B"
LOCATE 10, 16
PRINT "3. GABUNGAN HIMP-A & HIMP-B"
LOCATE 11, 16
PRINT "4. IRISAN HIMP-A & HIMP-B"
LOCATE 12, 16
PRINT "5. SELISIH HIMP-A & HIMP-B"
LOCATE 13, 16
PRINT "X. 3X1T..."
LOCATE 15, 16
COLOR 7
INPUT "Masukkan pilihan Anda ? ", nom$
SELECT CASE nom$
CASE IS = "1"
HimA
INPUT "", p$
CASE "2"
HimB
INPUT "", p$
CASE "3"
Gabung
INPUT "", p$
CASE "4"
Irisan
INPUT "", p$
CASE "5"
Selisih
INPUT "", p$
CASE "X", "x"
LOCATE 16, 16
COLOR 7
PRINT "Bye - Bye"
EXIT DO
CASE ELSE
LOCATE 16, 16
COLOR 4
BEEP
PRINT "MASUKIN PILIHANNYA YANG BENER, DONG!"
INPUT "", p$
END SELECT
LOOP UNTIL UCASE$(nom$) = "X"

END

FUNCTION CekIsi! (Isi$, Himp() AS STRING)

CekIsi = 1

FOR w = 1 TO nA
IF Isi$ = Himp(w) THEN
CekIsi = 0
END IF
NEXT w

END FUNCTION

SUB Gabung

CLS
Jum = nA
FOR i = 1 TO nA
HimHasil(i) = HimpA(i)
NEXT i

FOR k = 1 TO nB
IsiHm = HimpB(k)
IF CekIsi(HimpB(k), HimHasil()) = 1 THEN
Jum = Jum + 1
HimHasil(Jum) = HimpB(k)
END IF
NEXT k

PRINT "Himp Gabungan = {";
FOR o = 1 TO Jum
PRINT HimHasil(o);
IF o <> Jum THEN PRINT ",";
NEXT o
PRINT "}"

END SUB

SUB HimA

CLS
PRINT "Input Isi Himp A (max 10)!"
INPUT "Jumlah Himp A : ", nA

IF nA > 10 THEN END

PRINT "{";
INPUT "", HimpA(1)
rows% = CSRLIN
cols% = POS(0)
FOR i = 2 TO nA
LOCATE (rows% - 1), (cols% + 4 * (i - 1))
INPUT ",", HimpA(i)
NEXT i
LOCATE (rows% - 1), (cols% + 4 * (i - 1))
PRINT "}"

PRINT "Himp A = {";
FOR k = 1 TO nA
PRINT HimpA(k);
IF k <> nA THEN PRINT ",";
NEXT k
PRINT "}"

END SUB

SUB HimB

CLS
PRINT "Input Isi Himp B (max 10)!"
INPUT "Jumlah Himp B : ", nB

IF nB > 10 THEN END

PRINT "{";
INPUT "", HimpB(1)
rows% = CSRLIN
cols% = POS(0)
FOR i = 2 TO nB
LOCATE (rows% - 1), (cols% + 4 * (i - 1))
INPUT ",", HimpB(i)
NEXT i
LOCATE (rows% - 1), (cols% + 4 * (i - 1))
PRINT "}"

PRINT "Himp B = {";
FOR k = 1 TO nB
PRINT HimpB(k);
IF k <> nB THEN PRINT ",";
NEXT k
PRINT "}"

END SUB

SUB Irisan

CLS

iris = 0

FOR i = 1 TO nA
FOR k = 1 TO nB
IF HimpA(i) = HimpB(k) THEN
iris = iris + 1
HimIris(iris) = HimpA(i)
END IF
NEXT k
NEXT i

PRINT "Irisan HimpA & HimpB = {";
FOR o = 1 TO iris
PRINT HimIris(o);
IF o <> iris THEN PRINT ",";
NEXT o
PRINT "}"

END SUB

SUB Selisih

CLS

Sel = 0

FOR i = 1 TO nA
IF CekIsi(HimpA(i), HimpB()) = 1 THEN
Sel = Sel + 1
HimSel(Sel) = HimpA(i)
END IF
NEXT i

PRINT "Selisih HimpA-HimpB = {";
FOR o = 1 TO Sel
PRINT HimSel(o);
IF o <> Sel THEN PRINT ",";
NEXT o
PRINT "}"

END SUB

penggalan program buat ujian (1IA01-1IA09) ver 1

5 CLS
INPUT "MASUKAN ANGGOTA HIMP A(MAX 10):", NA
IF NA > 10 OR NA = 0 THEN PRINT "ULANGI": SLEEP 3: GOTO 5
PRINT "{";
INPUT "", HIMPA$(1)
ROWS% = CSRLIN
COLS% = POS(0)
FOR I = 2 TO NA
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
INPUT ; ",", HIMPA$(I)
NEXT I
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
PRINT "}"
PRINT
PRINT
INPUT "MASUKAN ANGGOTA HIMP B(MAX 10):", NB
IF NB > 10 OR NB = 0 THEN PRINT "ULANGI": SLEEP 3: GOTO 5
PRINT
PRINT "{";
INPUT "", HIMPB$(1)
ROWS% = CSRLIN
COLS% = POS(0)
FOR I = 2 TO NB
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
INPUT ; ",", HIMPB$(I)
NEXT I
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
PRINT "}"
PRINT
PRINT
11 INPUT "MASUKAN ANGGOTA RELASI (MAX 10):"; REL
IF (REL > 10) OR (REL = 0) THEN PRINT "ULANGI LAGI!!": SLEEP 10: GOTO 11
PRINT
I = 1
PRINT
PRINT "PASANGAN RELASI :"
FOR I = 1 TO REL
PRINT "{";
INPUT "", A$(I)
ROWS% = CSRLIN
COLS% = POS(0)
LOCATE (ROWS% - 1), (COLS% + 4)
INPUT "==> ", B$(I)
LOCATE (ROWS% - 1), (COLS% + 9)
PRINT "}"
NEXT I

ND = 0
NR = 0
FOR K = 1 TO REL
FOR L = K + 1 TO REL
IF A$(K) = A$(L) THEN 50
NEXT L
ND = ND + 1
D$(ND) = A$(K)
50 NEXT K

IF ND <> NA THEN 200
FOR K = 1 TO REL
FOR L = K + 1 TO REL
IF A$(K) = A$(L) AND B$(K) <> B$(L) THEN 200
NEXT L
NEXT K
PRINT
PRINT "RELASI ADALAH FUNGSI"
FOR K = 1 TO REL
FOR L = K + 1 TO REL
IF B$(K) = B$(L) THEN 70
NEXT L
NR = NR + 1
R$(NR) = B$(K)
70 NEXT K
PRINT
PRINT "DOMAIN : {";
FOR K = 1 TO ND
PRINT D$(K);
IF K <> ND THEN PRINT ",";
NEXT K
PRINT "}"
PRINT
PRINT "KODOMAIN : {";
FOR K = 1 TO NR
PRINT R$(K);
IF K <> NR THEN PRINT ",";
NEXT K
PRINT "}"
PRINT
IF ND = NR THEN PRINT "FUNGSI ONTO" ELSE PRINT "FUNGSI TIDAK ONTO"
FOR K = 1 TO REL
FOR L = K + 1 TO REL
IF B$(K) = B$(L) AND A$(K) <> A$(L) THEN PRINT "TIDAK SATU-SATU"
NEXT L
NEXT K
PRINT "FUNGSI SATU-SATU": GOTO 220
200 PRINT "BUKAN FUNGSI": GOTO 5
PRINT " "
PRINT " "
PRINT " "
220 PRINT "FUNGSI INVERS DARI RELASI INI"
PRINT
PRINT "DOMAIN : {";
FOR K = 1 TO NR
PRINT R$(K);
IF K <> NR THEN PRINT ",";
NEXT K
PRINT "}"
PRINT
PRINT "KODOMAIN : {";
FOR K = 1 TO ND
PRINT D$(K);
IF K <> ND THEN PRINT ",";
NEXT K
PRINT "}"
PRINT
PRINT "INVERS PASANGAN RELASI"
FOR I = 1 TO REL
PRINT "{";
PRINT B$(I)
ROWS% = CSRLIN
COLS% = POS(0)
LOCATE (ROWS% - 1), (COLS% + 4)
PRINT "==>", A$(I)
LOCATE (ROWS% - 1), (COLS% + 15)
PRINT "}"
NEXT I
PRINT
PRINT
PRINT "HASIL PRODUK FUNGSI"
PRINT "F: A ==> B DAN G : B ==> C DIDEFINISIKAN OLEH DIAGRAM-DIAGRAM:"
PRINT
INPUT "MASUKAN BANYAKNYA ANGGOTA HIMP C(MAX 10):", NC
IF NC > 10 OR NC = 0 THEN PRINT "ULANGI": SLEEP 3: GOTO 5
PRINT "{";
INPUT "", HIMPC$(1)
ROWS% = CSRLIN
COLS% = POS(0)
FOR I = 2 TO NC
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
INPUT ; ",", HIMPC$(I)
NEXT I
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
PRINT "}"
PRINT
PRINT "PASANGAN RELASI"
FOR I = 1 TO REL
PRINT "{";
PRINT B$(I)
ROWS% = CSRLIN
COLS% = POS(0)
LOCATE (ROWS% - 1), (COLS% + 4)
PRINT "==>", A$(I)
LOCATE (ROWS% - 1), (COLS% + 15)
INPUT "==>", C$(I)
LOCATE (ROWS% - 1), (COLS% + 29)
PRINT "}"
NEXT I
PRINT
PRINT
PRINT "HASIL PRODUK FUNGSI"
PRINT "HASILKALI FUNGSI (g o f): A ==> C"
FOR I = 1 TO REL
PRINT "{";
PRINT B$(I)
ROWS% = CSRLIN
COLS% = POS(0)
LOCATE (ROWS% - 1), (COLS% + 15)
PRINT "==>", C$(I)
LOCATE (ROWS% - 1), (COLS% + 29)
PRINT "}"
NEXT I
PRINT
250 END

Oktober 2008

wah kayak nya hari-hari abis Idul Fitri bener-bener sangat melelahkan, buat ribet, buat tarik urat di leher dan di kepala sampe-sampe urat-urat dimuka jadi tegang dan sampe Demam+Mag and penuh tantangan tapi jadi bokek coz gak ada pemasukan dan banyak ke keputusan yang salah, tapi mungkin tuhan SWT punya rencana lain!!!

LP Pengulangan (1ia01 -1 ia 09)

1. Jelaskan Tentang Pengertian himpunan ?
2. Jelaskan Tentang Pengertian tentang relasi ?
3. Jelaskan Tentang Fungsi satu-satu dan Fungsi Pada ?
4. Jelaskan Tentang hasil kali fungsi ?

Gak Ada Salah nya untuk dibaca dulu

Tidak Ada Yang Sia-Sia. Optimisme adalah memandang hidup ini sebagai persembahan terbaik. Tidak ada sesuatu yang terjadi begitu saja dan mengalir sia-sia.
Pasti ada tujuan. Pasti ada maksud. Mungkin saja anda mengalami pengalaman buruk yang
tak mengenakkan, maka keburukan itu hanya karena anda melihat dari salah satu sisi mata uang saja.
Bila anda berani menengok ke sisi yang lain, anda akan
Menemukan pemandangan yang jauh berbeda.

Anda tidak harus menjadi orang tersenyum terus atau menampakkan wajah yang ceria. Optimisme terletak di dalam hati, bukan hanya terpampang di muka. Jadilah optimis, karena hidup ini terlalu rumit untuk dipandang dengan mengerutkan alis.

Setiap tetes air yang keluar dari mata air tahu mereka mengalir menuju ke laut. Meski harus melalui anak sungai, selokan, kali keruh, danau dan muara, mereka yakin perjalanan mereka bukan tanpa tujuan. Bahkan, ketika menunggu di samudra, setiap tetes air tahu, suatu saat panas dan angin akan membawa mereka ke pucuk-pucuk gunung. Menjadi awan dan menurunkan hujan. Sebagian menyuburkan rerumputan, sebagian tertampung dalam sumur- sumur. Sebagian kembali ke laut. Adakah sesuatu yang sia-sia dari setiap tetes air yang anda temui di selokan rumah anda?



*************************************************************** Tahukah Anda.
Sebuah pabrik biskuit di Cina berhasil menciptakan biscuit yang digemari panda. Panda- panda yang kekurangan gizi mengkonsumsi biskuit itu dengan lahap di Pusat Pemeliharaan Panda Raksasa Chendu, di Provinsi Sichuan.

Apa kunci keberhasilan itu? Ternyata karena bentuk biskuit
itu mirip dengan makanan panda, yakni bentuk bambu. Tak jelas bagaimana rasa biskuit itu, yang pasti di dalam biscuit itu dimasukkan vitamin dan juga serat untuk meningkatkan nutrisi dari binatang yang kini sudah makin punah.

Di seluruh Cina diperkirakan kini cuma ada 1.000 panda yang hidup di hutan, 120 di kebun
binatang dan pusat riset. Dalam 20 tahun terakhir habitat panda telah berkurang sampai 40%.
*************************************************************** Kata Bijak Hari Ini.
Kebahagiaan anda tumbuh berkembang manakala anda membantu orang lain. Namun, bilamana anda tidak mencoba membantu sesama, kebahagiaan akan layu dan mengering. Kebahagiaan bagaikan sebuah tanaman, harus disirami setiap hari dengan
sikap dan tindakan memberi. (J.Donald Walters)

Mari mendekat kepada Allah lebih dekat Agar tunduk disaat yang lain angkuh Agar teguh dikala yang lain runtuh


Agar tegar biarpun terlempar.

Kisah seorang pendo’a

Ketika kumohan pada Allah kekuatan, Allah memberiku kesulitan agar menjadi kuat Ketika kumohon pada Allah kebijaksanaan,
Allah memberiku masalah untuk ku selesaikan Ketika ku mohon pada Allah Kesejahteraan, Allah memberiku akal untuk berpikir
Ketika ku mohon pada Allah keberanian, Allah memberiku kondisi bahaya untuk ku atasi Ketika ku mohon pada Allah sebuah cinta,
Allah memberiku orang-orang bermasalah untuk ku tolong
Ketika ku mohon pada Allah bantuan, Allah memberiku kesempatan.
Aku tak pernah menerima apa yang ku pinta Tetapi aku menerima segala yang ku butuhkan Do’a ku terjawab sudah
(disadur dari majalah percikan iman)

LP Minggu ke 4 (1IA 01 & 1IA09)

1. Jelaskan Tentang Hasil Kali Fungsi?
2. Jelaskan Tentang Invers dan Berikan Contohnya?

Mario Teguh Super Club

Dear Sahabat-Sahabat yang berbahagia,

Di pagi yang diselimuti oleh udara sejuk ini, saya mendoakan semoga Sahabat semua merasakan kesejukan dan keceriaan suasana yang melingkupi disekitar kita sebagai permulaan untuk menggapai hari yang lebih baik dari kemarin.

Pada suatu kesempatan Pak Mario menyampaikan :

Our today is the result of our yesterday
If we don't change,
our tomorrow will be like today
(Mario Teguh, January 2008)

Bila kita terus memperlakukan hari ini sama seperti kemarin, maka suatu saat kita akan dikagetkan ketika menyadari ternyata tahun yang akan kita jalani ini ternyata sama (tanpa banyak perubahan yang dihasilkan) seperti tahun-tahun sebelumnya.

Namun bila kita selalu memegang keyakinan untuk selalu memperbaiki hari ini lebih baik daripada hari kemarin, maka suatu saat kita akan dikejutkan ternyata kita telah melesat jauh dari keadaan awal kita atau teman-teman yang sepadan dengan kita sebelumnya.

Sepertinya pointers ini mempunyai korelasi terhadap undangan baik Pak Mario kepada kita untuk dapat berjalan dengan kecepatan berlari.

Pak Mario juga menambahkan :

The most dangerous is not your change,
but it's your competitor's change
(Mario Teguh, January 2008)

Bila kita tidak berubah dan orang lain juga tidak berubah, maka keadaan kita masih akan sama dengan saat ini. Namun, permasalahan akan mulai timbul bila orang lain telah berubah untuk lebih baik dan kita tetap menolak untuk berubah.

Karena hal yang paling diwaspadai oleh orang yang tidak mau berubah adalah perubahan pada orang lain (terutama kompetitor).

Bila kita menolak untuk berubah, maka sebenarnya kita sedang menjauhkan diri dari kemampuan untuk menghasilkan hal-hal yang lebih hebat.

Sehingga dapat dipetik makna, yang akan menentukan orang berkualitas dengan yang tidak adalah dari cara orang tersebut memperlakukan hari ini (bahkan jam, menit, dan detik ini) dalam mengasah perubahan pada dirinya sendiri.

Demikian sedikit tulisan kecil yang ingin saya bagikan, semoga dapat menambah keindahan nuansa hari ini.

Salam Super Selalu....

LP Minggu ke 3 (1IA01 & 1IA09)

1. Jelaskan Tentang Fungsi?
2. jelaskan apa yang dimaksud Fungsi Pada, fungsi Satu-satu dan Kardinalitas?
3. Tentukan Bilangan Kardinal dari:
a. A=[G, U, N, A, D, A, R, M, A]
b. B=[a,b,........,z]
c. C=[x|x^2 = 5, X Bulat]