Attahiyat Blog's

CLS 10   REM "PENGURANGAN MATRIK" 20   REM 25   PRINT "PROGRAM PENGURANGAN MATRIK" 26   PRINT 30   INPUT "Baris matrik=";M 35   IF M=0 THEN GOSUB 30 40   INPUT "Kolom matrik=";N 45   IF N=0 THEN GOSUB 40 50   DIM A(M,N), B(M,N), C(M,N) 60   'Memasukan data matrik A' 65   PRINT 70   PRINT "Data untuk matrik A" 80   FOR I=1 TO M 90   FOR J=1 TO N 100  PRINT "A(";I;",";J;")" ; : INPUT A(I,J) 110  NEXT J 120  NEXT I 130  ' 135  'Memasukan data Matrik B' 140  PRINT 150  PRINT "Data untuk matrik B" 160  FOR I=1 TO M 170  FOR J=1 TO N 180  PRINT "B(";I;",";J;")" ; : INPUT B(I,J) 190  NEXT J 200  NEXT I 210  GOSUB 500 215  ' 220  'Menampilkan Matrik hasil Pengurangan' 225  PRINT 230  PRINT "Matrik Hasil Pengur...

CLS 10 REM * PROGRAM : INVERSE MATRIX * 20 REM 90 INPUT "ORDE DARI MATRIX";N 100 DIM X(N,N) 110 ' 120 'MEMASUKAN DATA MATRIX 130 PRINT 140 PRINT "DATA MATRIK YANG AKAN DIINVERSE :" 150 FOR I=1 TO N 160     FOR J=1 TO N 170     PRINT "NILAI("I","J")"; : INPUT X(I,J) 180     NEXT J 190     PRINT 200 NEXT I 210 ' 220 ' MENAMPILKAN NILAI MATRIX SEMULA 230 PRINT 240 PRINT "NILAI MATRIX SEMULA :" 250 PRINT "---------------------" 260 FOR I=1 TO N 270     FOR J=1 TO N 280         PRINT USING "#####.###";X(I,J); 290     NEXT J 300     PRINT 310 NEXT I 320 ' 330 'MENGHITUNG INVERSE MATRIX 340 GOSUB 1000 'MENGHITUNG INVERSE MATRIX 350 ' 360 'MENCETAK HASIL INVERSE 370 PRINT 380 PRINT "INVERSE MATRIXNYA ADALAH :" 390 PRINT "--------------------------" 400 PRINT 410 FOR I=1 TO N 42...

CLS 10 REM *PROGRAM MENGHITUNG AKAR PERSAMAAN KUADRAT* 20 REM * PERSAMAAN KUADRAT : AX^2 + BX + C = * 30 REM 40 REM --- MEMASUKAN NILAI A, B, DAN C --- 50 GOSUB 1000 60 REM 70 REM --- HITUNG NILAI DISKRIMINAN --- 80 GOSUB 1200 90 REM 100 REM SELEKSI NILAI DISKRIMINAN DAN TAMPILKAN HASILNYA 110 GOSUB 1300 120 END 1000 ' 1010 'SUBROUTINE MEMASUKAN NILAI A, B DAN C 1020 INPUT "NILAI A";A 1030 IF A=0 THEN 1020 1040 INPUT "NILAI B";B 1050 INPUT "NILAI C";C 1060 RETURN 1200 ' 1210 'SUBROUTINE MENGHITUNG DISKRIMINAN 1220 D=B^2-4*A*C 1230 RETURN 1300 ' 1310 'SUBROUTIN SELEKSI NILAI DISKRIMINAN 1320 IF D>0 THEN GOSUB 1400 1330 IF D=0 THEN GOSUB 1600 1340 IF D<0 THEN GOSUB 1800 1350 RETURN 1400 ' 1410 'SUBROUTINE MENGHITUNG NILAI 2 AKAR REAL BERLAINAN 1420 X1=(-B+SQR(D))/(2*A) 1430 X2=(-B-SQR(D))/(2*A) 1440 PRINT "AKARNYA ADALAH 2 AKAR REAL BERLAINAN:" 1450 PRINT "X1 = ";X1...

Once upon a time there lived an unhappy young girl. Her mother was dead and her father had married a widow with two daughters. Her stepmother didn't like her one little bit. All her kind thoughts and loving touches were for her own daughters. Nothing was too good for them - dresses, shoes, delicious food, soft beds, and every home comfort. But, for the poor unhappy girl, there was nothing at all. No dresses, only her stepsisters’ hand-me-downs. No lovely dishes, nothing but scraps. No rest and no comfort. She had to work hard all day. Only when evening came was she allowed to sit for a while by the fire, near the cinders. That’s why everybody called her Cinderella. Cinderella used to spend long hours all alone talking to the cat. The cat said, “Miaow“, which really meant, “Cheer up! You have something neither of your stepsisters has and that is beauty.” It was quite true. Cinderella, even dressed in old rags, was a lovely girl. While her stepsisters, no matter how splendid and ele...

Adalah Paus Gelasius I pada tahun 496 yang memasukkan upacara ritual Romawi kuno/valentine ke dalam agama Nasrani, sehingga sejak itu, secara resmi agama Nasrani memiliki hari raya baru yang bernama Valentine's Day. The Encyclopedia Britania, vol. 12, sub judul: Chistianity, menuliskan penjelasan sbb: "Agar lebih mendekatkan lagi kepada ajaran Kristen, pada 496 M Paus Gelasius I menjadikan upacara Romawi Kuno ini menjadi hari perayaan gereja dengan nama Saint Valentine's Day untuk menghormati St. Valentine yang kebetulan mati pada 14 Februari (The World Encylopedia 1998). Keterangan ini menjelaskan kepada kita, bahwa perayaan hari valentine itu berasal dari ritual agama Nasrani secara resmi. Dan sumber utamanya berasal dari ritual Romawi kuno. Sementara di dlm tatanan aqidah Islam, seorang muslim diharamkan ikut merayakan hari besar pemeluk agama lain, baik agama Nasrani ataupun agama paganis (penyembah berhala) dari Romawi kuno. Telah dijelaskan da...

Sering mengalami nyeri di ulu hati, mual dan kembung, lebih-lebih bila telat makan atau lagi banyak pe-er? Waspada, kemungkinan kalian termasuk pengidap penyakit maag.?  Kalo pertanyaan tentang penyakit maag ini diajukan kepada kalian, sobat muda, wah kayaknya hampir semua tunjuk jari sebagai pengidapnya. Begitu pula bila ditanya siapa yang rajin gosok gigi eh rajin “telat makanâ€? alias pola makan nggak teratur.?  Dijamin, hampir tak ketinggalan untuk ikut angkat tangan. Sobat muda, sakit maag, bukan penyakit yang asing bagi kita. Bahkan demikian akrab dengan kita, dan menjadi bagian dalam kehidupan sehari-hari. Begitu juga dengan yang namanya obat maag, jadi teman setia kita kemana saja. Tapi, apa kalian ingin terus berakrab-ria dengan penyakit ini? Tentu nggak lah ya.?  Masa’ sih bersohib dengan penyakit, rugi dong. Nah, kalau kalian mau putus hubungan dengan sakit maag, kenali lebih dekat penyakit ini, Oke? Apa sih sakit maag itu? Sakit maag adalah na...

  Sebuah bintang terbentuk dari gumpalan gas dan asap (nebula), yang merupakan peninggalan dari 'asap' yang menjadi asal kejadian alam semesta. ( The Space Atlas , Heather dan Henbest, hal. 50)  Nebula Laguna adalah sebuah gumpalan gas dan asap yang berdiameter sekitar 60 tahun cahaya. Ia dipendarkan oleh radiasi ultraviolet dari bintang panas yang baru saja terbentuk di dalam gumpalan tersebut. ( Horizons, Exploring the Universe , Seeds, gambar 9, dari Association of Universities for Research in Astronomy, Inc.) Ilmu pengetahuan moderen, ilmu astronomi, baik yang berdasarkan pengamatan maupun berupa teori, dengan jelas menunjukkan bahwa pada suatu saat seluruh alam semesta masih berupa 'gumpalan asap' (yaitu komposisi gas yang sangat rapat dan tak tembus pandang, The First Three Minutes, a Modern View of the Origin of the Universe , Weinberg, hal. 94-105.). Hal ini merupakan sebuah prinsip yang tak diragukan lagi menurut standar astron...