Program ramalan zodiak ini saya buat untuk memenuhi tugas mata kuliah Algoritma pemprogram 1 pada semester 1 (gasal) kemarin... Maaf program alakadarnya saja..
Gambar 1. Tampilan Awal Program
Source Code :
program RAMALAN_ZODIAK;
uses CRT;
Var x1,y1,x2,y2
: byte;
Nama, JK, Pend, Jawab,
Jodoh : string;
Tahun : integer;
Tanggal, Bulan, Warna,
umur : longint;
Const TS=2014;
label Home;
Procedure Frame;
Begin
Clrscr;
//Window 1
textbackground(5);
window(5,3,70,40);
clrscr;
//Window 2
textbackground(1);
window(4-2,4-2,70-2,40-2);
clrscr;
//Wondow 3
textbackground(7);
window(4,3,70-4,40-3);
clrscr;
End;
BEGIN
Frame;
Home:
clrscr;
textcolor(0);
Writeln;
writeln('==============================================================');
textcolor(5);
writeln(' SELAMAT DATANG DI RAMALAN ZODIAK
Mr.CikidAwwW..:D ');
textcolor(0);
writeln('==============================================================');
writeln;
textcolor(4);
writeln('------<<<==-- Silahkan Isikan Identidtas Anda !!
--==>>>------');
writeln;
textcolor(2);
writeln('==============================================================');
writeln('|
|');
writeln('| Nama : |');
writeln('| Tanggal Bulan Tahun Lahir : |');
writeln('| Jenis Kelamin : |');
writeln('| Pendidikan Terakhir : |');
writeln('| Warna Favorit [1-11] : |');
writeln('| |');
writeln('==============================================================');
writeln;
textcolor(1);
writeln(' *Beri jarak antara
Tanggal Bulan & Tahun lahir menggunkan');
writeln(' SPASI bukan simbol garis mendatar dan
lain-lain');
writeln(' serta penulisan Bulan Lahir menggunakan
ANGKA bukan huruf');
writeln;
writeln(' Pilihan Warna
Faforit (isikan dengan angka) ');
writeln(' [1]
Merah');
writeln(' [2]
Kuning');
writeln(' [3]
Hitam');
writeln(' [4]
Putih');
writeln(' [5]
Hijau');
writeln(' [6]
Biru');
writeln(' [7]
Cyan');
writeln(' [8]
Pink');
writeln(' [9]
Ungu');
writeln(' [10] Orange');
writeln(' [11] Coklat');
writeln('==============================================================');
gotoxy(36,10); readln(Nama);
gotoxy(36,11);
readln(Tanggal,Bulan,Tahun);
gotoxy(36,12); readln(JK);
gotoxy(36,13); readln(Pend);
gotoxy(36,14); readln(Warna);
clrscr;
textcolor(0);
writeln('==============================================================');
writeln(' ++>>> RAMALAN ZODIAK <<<++ ');
writeln('==============================================================');
writeln;
writeln('==============================================================');
writeln('
');
writeln(' Nama : ',Nama);
writeln(' Tanggal Bulan Tahun Lahir : ',Tanggal,Bulan,Tahun);
writeln(' Jenis Kelamin : ',JK);
writeln(' Pendidikan Terakhir : ',Pend);
writeln(' Warna Favorit : ',Warna);
writeln(' ');
writeln('==============================================================');
IF bulan=01 then
begin
if tanggal<=20 then
writeln('Zodiak
Anda : Capricorn')
else
writeln('Zodiak Anda : Aquarius');
writeln;
writeln('Pasangan Serasi
: Leo');
writeln;
writeln('Pekerjaan cocok
: Penemu, jurnalis TV, refleksologis, dan');
writeln(' ahli komputer.');
writeln;
writeln('Ramalan
zodiak : Anda akan mempertanyakan arah
hidup saat');
writeln(' ini');
writeln(' pikiran, tentukan sikap
lalu bertindaklah.');
writeln(' Perubahan membawa hal baik,
jangan selalu');
writeln(' mengikuti kebiasaan.');
end;
IF bulan=02 then
begin
if tanggal<=19 then
writeln('Zodiak
Anda : Aquarius')
else
writeln('Zodiak
Anda : Pisces');
writeln;
writeln('Pasangan Serasi
: Sagitarius');
writeln;
writeln('Pekerjaan cocok
: Kurator seni, desainar lanskap, penerjamah');
writeln(' atau penulis.');
writeln;
writeln('Ramalan zodiak : Pikiran sedang bekerja demikian keras.');
writeln(' Pergunakan dengan baik dan
tulis semua');
writeln(' ide yang dihasilkan. Salah
satunya akan');
writeln(' mampu memberikan penghasilan
tambahan.');
writeln(' Cinta mengetuk pintu
anda.');
end;
IF bulan=03 then
begin
if tanggal<=20 then
writeln('Zodiak
Anda : Pisces')
else
writeln('Zodiak
Anda : Aries');
writeln;
writeln('Pasangan Serasi
: virgo');
writeln;
writeln('Pekerjaan cocok
: Bidang penerbitan, dunia hiburan, atau');
writeln(' menjadi pimpinan.');
writeln;
writeln('Ramalan
zodiak : Keterlibatan yang bersifat
rahasia tampaknya');
writeln(' dibutuhkan. Buat batasan
untuk menjaga kepentingan');
writeln(' dalam pekerjaan. Seorang
famili yang lebih tua');
writeln(' akan memebutuhkan bantuan
anda.');
end;
IF bulan=04 then
begin
if tanggal<=20 then
writeln('Zodiak
Anda : Aries')
else
writeln('Zodiak
Anda : Taurus');
writeln;
writeln('Pasangan Serasi
: Scorpio');
writeln;
writeln('Pekerjaan cocok
: Bankir, seni, akutansi, musik, dan');
writeln(' berkebun.');
writeln;
writeln('Ramalan
zodiak : Kebaikan hati membantu sesama
mengagumkan ');
writeln(' orang yang anda suka.
Rencanakan waktu untuk');
writeln(' melakukan sesuatu yang
menarik dan Anda akan');
writeln(' dapati sebuah hubungan yang
kuat terbentuk.');
end;
IF bulan=05 then
begin
if tanggal<=21 then
writeln('Zodiak
Anda : Taurus')
else
writeln('Zodiak
Anda : Gemini');
writeln;
writeln('Pasangan Serasi
: Cancer');
writeln;
writeln('Pekerjaan cocok
: Bidang teknologi komputer atau sutradara.');
writeln;
writeln('Ramalan
zodiak : Berhati-hati dalam apa yang
anda katakan');
writeln(' kepada teman atau keluarga.
Permasalahan');
writeln(' dalam pekerjaan akan
memenuhi pikiran.');
writeln(' Menyia-nyiakan waktu hanya
memperkeruh');
writeln(' masalah.');
end;
if bulan=06 then
begin
if tanggal<=21 then
writeln('Zodiak
Anda : Gemini')
else
writeln('Zodiak
Anda : Cancer');
writeln;
writeln('Pasangan Serasi
: Capricorn');
writeln;
writeln('Pekerjaan cocok
: Musisi, jurnalis, dekorator interior,');
writeln(' atau chef.');
writeln;
writeln('Ramalan
zodiak : aktifitas kreatif memberikan
hasil bagus.');
writeln(' Dapatkan wawasan baru dari
rekan tua maupun');
writeln(' muda. Pergunakan cara baru
dan anda tidak');
writeln(' akan dikecewakan.');
end;
IF bulan=07 then
begin
if tanggal<=22 then
writeln('Zodiak
Anda : Cancer')
else
writeln('Zodiak
Anda : Leo');
writeln;
writeln('Pasangan Serasi
: Capricorn');
writeln;
writeln('Pekerjaan cocok
: Sutradara film, arsitek, fotografer, atau');
writeln(' administrator olahraga.');
writeln;
writeln('Ramalan
zodiak : Buat perubahan di lingkungan
rumah. Renovasi');
writeln(' atau berpindah rumah akan
memberikan semangat');
writeln(' baru. Uang dapat dihasilkan
melalui investasi');
writeln(' dalam tempat tinggal.');
end;
IF bulan=08 then
begin
if tanggal<=22 then
writeln('Zodiak
Anda : Leo')
else
writeln('Zodiak
Anda : Virgo');
writeln;
writeln('Pasangan Serasi
: Pisces');
writeln;
writeln('Pekerjaan cocok
: Antropologis, polisi, agen rahasia,');
writeln(' atau editor majalah.');
writeln;
writeln('Ramalan
zodiak : Jangan menahan diri dari
pesan manis');
writeln(' yang anda terima dari
seseorang. Tenangkan');
writeln(' pikiran, tentukan sikap
lalu bertindaklah.');
writeln(' Perubahan membawa hal baik,
jangan selalu');
writeln(' mengikuti kebiasaan.');
end;
IF bulan=09 then
begin
if tanggal<=22 then
writeln('Zodiak
Anda : Virgo')
else
writeln('Zodiak
Anda : Libra');
writeln;
writeln('Pasangan Serasi
: Aries');
writeln;
writeln('Pekerjaan cocok
: Dokter hewan, mengajar, atau pengobatan.');
writeln;
writeln('Ramalan
zodiak : Pertimbangkan mencoba hal-hal
baru.');
writeln(' Usaha kecil baru akan
memberikan hasil.');
writeln(' Lihat serta renungkan arah
hidup anda');
writeln(' dan buat perubahan jika
diperlukan.');
end;
IF bulan=10 then
begin
if tanggal<=23 then
writeln('Zodiak
Anda : Libra')
else
writeln('Zodiak
Anda : Scorpio');
writeln;
writeln('Pasangan Serasi
: Taurus');
writeln;
writeln('Pekerjaan cocok
: Aktor, manajer hotel, atau pemilik');
writeln(' restoran');
writeln;
writeln('Ramalan
zodiak : Jangan sembunyikan bakat
anda, saat');
writeln(' yang tepat mencoba tempat
baru. Asmara');
writeln(' berada dalam benak anda.
Kegiatan yang');
writeln(' berbeda akan memberikan
kesenangan tak');
writeln(' terduga.');
writeln;
end;
IF bulan=11 then
begin
if tanggal<=22 then
writeln('Zodiak Anda : Scorpio')
else
writeln('Zodiak
Anda : Sagitarius');
writeln;
writeln('Pasangan Serasi
: Gemini');
writeln;
writeln('Pekerjaan cocok
: Jurnalis olahraga, pengacara, manager');
writeln(' personalia, atau pekerja
sosial.');
writeln;
writeln('Ramalan
zodiak : Keributan kecil di rumah akan
membawa');
writeln(' pada penyelesaian masalah
yg tertunda.');
writeln(' Terima segala yang ada dan
lanjutkan');
writeln(' hidup anda. Keuntungan
finansial mampu');
writeln(' dihasilkan.');
end;
IF bulan=12 then
begin
if tanggal<=21 then
writeln('Zodiak
Anda : Sagitarius')
else
writeln('Zodiak
Anda : Capricorn');
writeln;
writeln('Pasangan Serasi
: Aquarius');
writeln;
writeln('Pekerjaan cocok
: Mengajar, bercocok tanam, arsitektur,');
writeln(' atau perbankan.');
writeln;
writeln('Ramalan
zodiak : Anda akan memiliki minat yang
lebih');
writeln(' kuat terhadap sesuatu di
masa lalu.');
writeln(' Bersiap untuk bertemu
seseorang yang');
writeln(' menarik dalam acara yang
anda ikuti.');
writeln(' Cinta akan mekar di taman
anda.');
end;
writeln;
IF Warna=1 then
begin
writeln('Memiliki
sifat : Berani, semangat dan menyukai
tantangan.');
writeln;
end;
IF Warna=2 then
begin
writeln('Memiliki
sifat : Ceria, semangat dan senang
bercanda.');
writeln;
end;
IF Warna=3 then
begin
write('Memiliki
sifat : Misterius, bersahaja dan teguh
pendirian.');
writeln;
end;
IF Warna=4 then
begin
write('Memiliki
sifat : Berhati tulus, polos dan
anggun.');
writeln;
end;
IF Warna=5 then
begin
write('Memiliki
sifat : Pemaaf, tenang, dewasa dan
sopan santun.');
writeln;
end;
IF Warna=6 then
begin
write('Memiliki
sifat : Ramah, tidak emosian, serius
dan teguh aturan.');
writeln;
end;
IF Warna=7 then
begin
write('Memiliki
sifat : Ramah, berjiwa bebas dan
santai.');
writeln;
end;
IF Warna=8 then
begin
write('Memiliki
sifat : Lembut, penyayang, manja dan
suka menolong.');
writeln;
end;
IF Warna=9 then
begin
write('Memiliki
sifat : Tidak ragu, punya selera
tinggi dan romantis.');
writeln;
end;
IF Warna=10 then
begin
write('Memiliki
sifat : Jiwa muda, energik dan rasa
ingin tahu besar.');
writeln;
end;
IF Warna=11 then
begin
writeln('Memiliki
sifat : Setia, murah hati dan menyukai
kesederhanaan.');
writeln;
end;
Begin
Umur:=TS-Tahun;
writeln;
IF Umur<=12 then
Jodoh:='Maaf Anda Masih Bocah, Sekolah Dulu Sana :D wkwkwk'
else IF Umur<22 then
Jodoh:='Cieee.. Jodohmu sudah ada di depan Mata, Jangan mundur Bro ;)'
else IF Umur<32 then
Jodoh:='Ehhemm.. Tingkatkan Usahamu Bray, tetap optimis kesempatan tidak
datang hanya sekali :)'
else Jodoh:='Mungkin anda
akan di berikan yang terbaik oleh Tuhan, atau Anda belum beruntung..:D
wkwkwk';
writeln('Jodoh :
',Jodoh);
writeln;
End;
textcolor(4);
Write('Kembali Meramal
[Y/N] : '); readln(Jawab);
IF (Jawab='Y') or
(Jawab='y') then goto Home else exit;
readkey;
END.
|
Semoga dapat bermanfaat ya Kawan :D
malam pak
BalasHapuslisting pascal untuk mobil adan ga?