Monday, December 23, 2013

PROGRAM RAMALAN DARI TANGGAL LAHIR (PASCAL)

Assalamualaikum wr wb..
Oke kali ini saya akan share lagi tentang program pascal yaitu program "ramalan dari  tanggal lahir dan bulan lahir " anda.

program ramalan_boongan;
uses wincrt;
var
nama,hasil:string;
tglskr,tgllhr,bulanlhr:integer;
ramalan:real;
begin
writeln('RAMALAN ZODIAK HARIAN (CUMAN PERMAINAN / BOONGAN)');
writeln('_________________________________________________');
writeln;
write('MASUKAN NAMA ANDA : ');readln(nama);
writeln;
write('TANGGAL SEKARANG  : ');readln(tglskr);
write('TANGGAL LAHIR     : ');readln(tgllhr);
write('BULAN LAHIR       : ');readln(bulanlhr);

ramalan:=(tglskr+tgllhr+bulanlhr)/3;

if (ramalan<=5) then
hasil:='RAJINLAH MANDI SUPAYA TIDAK JOMBLO'
else if (ramalan<=10) then
hasil:='RAJINLAH BELAJAR AGAR DISAYANG MIMIH PIPIH'
else if (ramalan<=15) then
hasil:='RAJINLAH LIHAT TRUK GANDENG SUPAYA BISA MENGGANDENG TANGAN    WANITA/LAKI2'
else if (ramalan<=20) then
hasil:='HARUS BANYAK-BANYAK TERAKTIR TEMAN KELAS AGAR KAYA ONET'
else if (ramalan<=24.667) then
hasil:='RAJINLAH BERKACA AGAR ANDA TAU BAHWA ANDA MIRIP DENGAN TEMAN  ANDA DI RAGUNAN'
else
hasil:='TERJADI KESALAHAN PADA INPUTAN';

writeln;
writeln('RAMALAN         : ',hasil);

end.



LAYOUT :

Catatan :
Program ini adalah program permainan , yaitu program ramalan dari tanggal lahir dan Bulan lahir, kenapa saya buat program ini karena ini adalah salahsatu dari tugas kuliah saya dan dengan senang hati saya share buat temen-temen semua, semoga program ini dapat bermanfaat bagi  sobat-sobat semua.. sekian dulu postingan saya kali ini Wassalamualaikum....

1 comment: