Rabu, 25 Desember 2013

Asalamu alaikum Wr.Wb

     Selamat siang kawan-kawan, pada kesempatan kali ini saya akan berbagi contoh listing program untuk membuat program Ramalan Bintang Di Pascal  Dan Didalam program ini anda haya tinggal masukan NAMA kemudian masukan TANGGAL LAHIR lalu kemudian BULAN LAHIR dan kemudian program akan menunjukan ZODIAK ANDA,,,Dari pada penasaran langsung aja ke TKP

Listing Program Ramalan Bintang Oleh : Anggi Nur Ependi

program zodiak;
uses wincrt;
var
nama : string;
t,bl,tl,z,j : integer;
ulang : char;
begin
repeat
clrscr;
write ('Masukan nama Anda            : ');
readln(nama);
write ('Masukan Tanggal Lahir Anda   : ');
readln(tl );
write ('Masukan Bulan Lahir Anda     : ');
readln(bl);
writeln ('===============================================');


case bl of
01 : begin t := 31; j := 0 end;
02 : begin t := 29; j := 1 end;
03 : begin t := 31; j := 0 end;
04 : begin t := 30; j := 0 end;
05 : begin t := 31; j := -2 end;
06 : begin t := 30; j := -1 end;
07 : begin t := 31; j := -2 end;
08 : begin t := 31; j := -2 end;
09 : begin t := 30; j := -3 end;
10 : begin t := 31; j := -2 end;
11 : begin t := 30; j := -1 end;
12 : begin t := 31; j := -2 end;
else writeln (' Bulan yang anda Maksud Tidak Tersedia');
end;
begin
if ( tl <= t) = true then
begin
write ('Zodiac Anda Adalah ');
z := ((bl * 31) + ((tl + j) - 21)) div 31 ;
case z of
1 : writeln ('Aquarius : Time Is The Money');
2 : writeln ('Pisces : Jangan Pernah Sia-siain Waktu');
3 : writeln ('Aries : Jangan Terlalu Terburu - Buru Mengambil Keputusan');
4 : writeln ('Taurus : Uang Saku Mu Selalu Bertambah Setiap harinya Tapi Jangan Terlalu                                                   Boros');
5 : writeln ('Gemini : Jomblo Ga Jadi Masalah Sob');
6 : writeln ('Cancer : Kalau lo Suka Ama Dia Buruan Tembak Dari Pada Di Duluin Orang                                                     Lain');
7 : writeln ('Leo : Keseimbangan Dalam Mentukan Keputusan Menjadi Modal Utama');
8 : writeln ('Virgo : jodoh Selalu Datang Dengan Sendirinya Tapi tetep Harus Usaha');
9 : writeln ('Libra : Jangan Telat Makan Bisa Lo Jatuh Sakit Sob');
10 : writeln ('Scorpio : jangan Seperti Kacang Lupa Kulitnya');
11 : writeln ('Sagitarius : Jangan Boros Ah');
else writeln ('Capricon : Jangan Terlallu Ikutin Ego Lo');
end;
end
else writeln ('Tanggal Tidak Tersedia');
end;
writeln('===============================================');
write ('Mau Mencoba lagi ? (y/t) : ');
readln(ulang);
until (ulang = 't' ) or (ulang = 'T')
end.

Tidak ada komentar: