Salam Sejahtera :)
Disini kami akan memberikan gambaran tentang program kami. Jadi Flowchart merupakan gambaran awal dalam membuat suatu program yang berisikan bagaimana kondisi program yang akan dibuat.
Flowchart Zodiak
Flowchart ATM
Flowchart Game
Pseudocose
Algoritma Peramalan_zodiak
{program peramalan sesuai dengan
zodiak anda}
Deklarasi
Aries, Libra,
Taurus, Scorpio, Gemini, Sagittarius, Cancer, Capricorn, Leo, Aquarius, Virgo, Pisces, menu : string
Kasus, pilihan : integer
Status, x : Boolean
Deskripsi
Write (==============================================)
write(-----------------Program
Zodiak---------------)
write(==============================================)
write(a
) Run Zodiak Program")
write(b
) exit ")
write(================================================)
write(--------------Masukkan
Pilihan Anda-------------)
write(================================================)
read(menu)
if pilihan=b
then
write(“Good
bye”)
if pilihan=a
do
write("================================================")
write(“-----------------Program Zodiak-----------------")
write("================================================")
write("Silahkan
Pilih Zodiak Anda : ")
write("1
)Aries (21 Maret - 19 April)")
write("2
)Taurus (20 April - 20 Mei)")
write("3
)Gemini (21 Mai - 20 Juni)")
write(4
)Cancer (21 Juni - 22 Juli)")
write("5
)Leo (23 Juli - 22 Agustus)")
write("6
)Virgo (23 Agustus - 22 September)")
write("7
)Libra (23 September - 22 Oktober)")
write(“8 )Scorpio (23 Oktober - 21 November)")
write("9
)Sagitarius (22 November - 21 Desember)")
write("10
)Capricorn (22 Desember - 19 Januari)")
write("11
)Aquarius (20 Januari - 18 Februari)")
write(“12 )Pisces (19 Februari - 20 Maret)")
write("13
) Exit")
write("================================================")
write("--------------Masukkan
Pilihan Anda-------------")
write("================================================")
read(kasus)
if kasus=1 then
write(“Anda akan kembali menghadapi kemalasan &
inkompentensi hari ini, “)
write(“namun jika berusaha melakukan perubahan
anda hanya akan menerima sikap permushan.”)
write(“ Hindari keterlibatan pertikaian yg
melelahkan. “)
else
if
kasus=2 then
write(“Anda akan terbuka pada gaya
hidup baru & siap melakukan perubahan. “)
write(“terlibatlah pada hal yg menarik minat
anda, atau berpergian untuk menemukan arah hidup. “)
else
if
kasus=3 then
write(“Segera selesaikan pekerjaan &
dapatkan pencerahan dlm segala hal yg di lakukan mengenai siap diri anda
sebenarnya,”)
write(“ siapa yg anda butuhkan dlm hidup &
apa yg anda inginkan. Be wise, grasshopper. “)
else
if
kasus=4 then
write(“Memaksakan sesuatu hanya
membawa masalah. “)
write(“Mundurlah sejenak & manjakan diri
anda. Bersantai, membeli sebuah barang baru”)
write(“ atau menghabiskan waktu bersama sahabat
lebih baik dari beradu mulut semata. “)
else
if
kasus=5 then
write(“Maju kedepan & lakukan apa yg biasa anda kerjakan.”)
write(“
Romantika ada di sekitar anda, beserta kegembiraan & kesukaan. “)
write(“Biarkan
imaginasi bebas lepas. “)
else
if kasus=6 then
write(“Anda akan menghabiskan waktu menunda keputusan yg anda
buat.”)
write(“ lakukan semua secara biasa,
jangan lewatkan kesempatan yg ada. “)
write(“Keberuntungan finansial akan
diraih hari ini. “)
else
if
kasus=7 then
write(“Anda akan sedikit bimbang
dlm dua tujuan yg ada dlm hidup.”)
write(“ Buat keputusan yg harus
diambil, namun ingat mengorbankan diri bukan yg terbaik untuk anda. “)
else
if
kasus=8 then
write(“Bicara pada atasan atau pimpinan
perusahaan yg memiliki informasi yg dibutuhkan membawa anda kedepan.”)
write(“ Anda akan membuat perubahan
menarik yg akan memberikan grafik naik dlm karir. “)
else
if
kasus=9 then
write(“Anda akan menjadi dinamis
dlm semua hal yg di inginkan. “)
write(“Kemungkinan kreatif
dimungkinkan. jangan ragu mengambil keputusan jika sebuah hubungan ingin anda
jalani. “)
else
if
kasus=10 then
write(“Akan sangat sulit memisahkan
permasalahan pribadi dari pekerjaan.”)
write(“ Jangan dengarkan orang yg
hendak menahan atau membuat anda “)
write(“merasa tidak mampu. “)
else
if
kasus=11 then
write(“Banyak waktu tersisa hari
ini.”)
write(“ Kesempatan utk berbuat
sesuatu untuk org lain sebaiknya dimanfaatkan.”)
write(“ Orang yang membutuhkan anda
saat ini, akan menjadi pendukung anda di masa depan.”)
else
if kasus=12 then
write(“Keberuntungan menjadi milik
anda.”)
write(“ Terbukalah & terima
kesempatan memperoleh penghasilan baru. “)
write(“Kreatifitas dlm imaginasi
akan membawa kesejahteraan utk anda. “)
else
if kasus=13 then
if kasus=13 then
write("================================================")
write(“-----------------Program Zodiak-----------------")
write("================================================")
write("Silahkan
Pilih Zodiak Anda : ")
write("1
)Aries (21 Maret - 19 April)")
write("2
)Taurus (20 April - 20 Mei)")
write("3
)Gemini (21 Mai - 20 Juni)")
write(4
)Cancer (21 Juni - 22 Juli)")
write("5
)Leo (23 Juli - 22 Agustus)")
write("6
)Virgo (23 Agustus - 22 September)")
write("7
)Libra (23 September - 22 Oktober)")
write(“8 )Scorpio (23 Oktober - 21 November)")
write("9
)Sagitarius (22 November - 21 Desember)")
write("10
)Capricorn (22 Desember - 19 Januari)")
write("11
)Aquarius (20 Januari - 18 Februari)")
write(“12 )Pisces (19 Februari - 20 Maret)")
write("13
) Exit")
write("================================================")
write("--------------Masukkan
Pilihan
Anda-------------")
write("================================================")
end if
Pseudocode
Algoritma Games_sederhana
{membuat games bergerak sederhana}
Deklarasi
Menu, tebakan1, tebakan2 : string
X : Boolean
Status : byte
Kasus, i, j ,h,l : integer
Deskripsi
write("================================================")
write(“-----------------Program Game-------------------")
write("================================================")
write("a) Run game ")
write("b) exit”)
write("================================================")
write("-----------Masukkan
Pilihan anda Anda----------")
write("================================================")
read(menu)
if pilihan=b then
write(“Good bye”)
if pilihan=a
do
write("================================================")
write("------------------Program
Game------------------")
write("================================================");\
write("Pilih
Game")
write("1")
write("2")
read(pilihan)
if kasus=1
write("Lebih
manis ......... dibanding gula")
write(“Isilah titik-titik diatas itu !")
write("1
) Senyum")
write("2
) Cemberut")
read(tebakan1)
if tebakan1!= 1
While j< 10
write(“ANDA SALAH”)
Write(“HAHAHAHAHA!!!”)
If tebakan1=1 then
Write(“anda benar!”)
While i<10
write("????????????????????")
write("?????**?????**??????")
write("?????**?????**??????")
write("?????**?????**??????")
write("?????**?????**??????")
write("????????????????????")
write("**????????????????**")
write("??**????????????**??")
write("????**????????**????")
write("??????********??????")
write("????????????????????")
if kasus=2 then
write("Kebalikan
Soal 1")
write("1
) Senyum")
write("2
) Sedih")
write("3
) Cemberut")
read(tebakan2)
if(tebakan2 != 3)
while(h < 10)
write("ANDA
SALAH!!")
write("HAHAHAHAHAHAHAHAHA")
if(tebakan2 == 3)
while(l < 10)
write("????????????????????")
write("?????**?????**??????")
write("?????**?????**??????")
write("?????**?????**??????")
write("?????**?????**??????")
write("????????????????????")
write("?????*********??????")
write("???***???????***????")
write("???**?????????**????")
write("????????????????????")
write("????????????????????")
while(x)
while(x)
Pseudocode
Algoritma program_mesin_ATM
{membuat programmesin ATM sederhana}
Deklarasi
tebakan, menu : string
status : integer
kasus : byte
x : boolean
Deskripsi
Write(----------------ATM-----------------)
Write(====================================)
Write(Masukkan
nomor Pin anda)
Read(kode)
If kode !=102030
Write(Pin salah!)
Write(======================================================)
Write(---------------Program
ATM Berjalan-------------------)
Write(======================================================)
Write(Menu
Utama)
Write(a ) Tarik Tunai)
Write(b ) Transfer)
Write(c) Sisa Saldo)Write(d) Program menabung)
Writee) Keluar)
Write(Masukkan
Pilihan Menu Yang Anda Inginkan)
Read(menu)
If menu=a then
Write(Masukkan pilihan)
Write(Masukkan Nilai Tarik Tunai)
Write(Max = 1500000 | Min = 50000)
Read(pemilihan)
Write(Jumlah Penarikan Tunai = 300000)WriteSisa Saldo = 4700000)
Write(input 0 untuk Exit menu)
if(pemilihan < 1 || pemilihan > 4)
write(Input
Menu Salah, Mohon Ulangi Untuk Melakukan Transaksi")
else
read(tarik)
write(======================================)
Write(-------------Bank
Del Boong-----------)
Write(======================================)
Write(Nasabah = )
Write(Jumlah
Penarikan =)
Write(Sisa
Tabungan = )
Write(======================================)
Write(--Terima
Kasih Atas Kepercayaan Anda--)
Write(======================================)
Saldo2 <--- saldo-tarik
If menu=b then
Write(---------Menu
Transfer Uang-------)
Write(==================================)
Write(Silahkan
Pilih Menu Untuk Melakukan Transer)
Write(1>
Transfer Sesama Bank Del Boong)
Write(2>
Transfer Antar Bank)
Read(pemilihan)
If pemilihan=1 then
Write(Masukkan
Nomor Rekening Tujuan (9 Digit))
Read(rekening transfer)
Write(No
Rekenin Tujuan Anda = )
Write(Masukkan
Nominal Transfer)
Read(jumlah_transfer)
Write(===========================================)
Write(------------Transaksi
Berhasil-------------)
Write(===========================================)
Write(Nama
Nasabah =)
Write(Jumlah
Transfer =)
Write(Sisa
Saldo =)
Write(===========================================)
Write(Nama
Nasabah Penerima =)
Write(No.
Rekening Penerima =)
Sisa saldo <--- saldo-jumlah_transfer
If pemilihan=2 then
Write(=========================================)
Write(-----------Transfer
Antar Bank-----------)
Write(=========================================)
Write(----Daftar
Kode Bank--- )
Write(1
> Bank Krut = 102030)
Write(2
> Bank Khee = 102031)
Write(3
> Bank Khot = 102032)
Write(Masukkan
Kode bank tujuan)
Read(kode_tujuan)
Write(Masukkan no rekening tujuan)
Read(rekening_transfer)
Write(===========================================)
Write(------------Transaksi
Berhasil-------------)
Write(===========================================)
Write(Nama
Nasabah = )
Write(Jumlah
Transfer = )
Write(Sisa
Saldo = )
Write(===========================================)
Write(Nama
Nasabah Penerima = Farah Azaria)
Write(No.
Rekening Penerima = 102030)
Saldo2 <--- saldo-jumlah_transfer-5000
endif
if menu= c
Write(Program Menabung)Write(---------------------------------------------)
Write(Masukkan Jumlah Uang Yang Ingin Di Tabung )
read(Uang)
saldo2 <--- saldo + uang
if menu=d
read(menu)
Write(Good bey)
read(menu)
Write(Good bey)
zodiak
http://www.mediafire.com/download/vcmaaa9g3v5sw8r/zodiak.zip
games
https://www.mediafire.com/?bhrfpevd0od5vt1
atm
https://www.mediafire.com/?5v5h78zgdaz45rv
games
https://www.mediafire.com/?bhrfpevd0od5vt1
atm
https://www.mediafire.com/?5v5h78zgdaz45rv
No comments:
Post a Comment