Showing posts with label Tutorial Pascal. Show all posts
Showing posts with label Tutorial Pascal. Show all posts

Dec 24, 2012

Cara Membuat Ramalan Zodiak Sendiri Menggunakan PASCAL


tool : pascal for win

program tanggal ;
uses wincrt;
var
nama,tgllhr : string;
jkl : char;
bintang, karir, asmara, keuangan, luckyday : string ;
j : char;

function caritgl(a:string):string;
var
tg, bl, th : string; begin
tg:=copy(a,1,2);
bl:=copy(a,4,2);
th:=copy(a,7,4);
if bl='01' then bl :='januari' else
if bl='02' then bl :='februari' else
if bl='03' then bl :='maret' else
if bl='04' then bl :='april' else
if bl='05' then bl :='mei' else
if bl='06' then bl :='juni' else
if bl='07' then bl :='juli' else
if bl='08' then bl :='agustus' else
if bl='09' then bl :='september' else
if bl='10' then bl :='oktober' else
if bl='11' then bl :='nopember' else bl :='desember';
caritgl := tg + ' - ' + bl + ' - ' + th;
end;
procedure ramalan (nm : string; jk:char; tglh:string; var btg, krr,cnt,keu,lck : (string);
var
tg, bl, i : integer;
tgl, bln : string;
begin
tgl := copy(tglh,1,2);
bln := copy(tglh,4,2);
val(tgl,tg,i);
val(bln,bl,i);
if( (tg<21 and="and" bl="1))" or="or" tg="tg">=21) and ( bl=12))then
begin
btg := 'capricorn';
if jk = 'l' then
begin
karir:='mau ada promosi tuch....';
cnt :='putusin aja, nyari lagi';
keu :='terancam bokek';
lck :='kamis,sabtu';
end else
begin
karir:='agak mandek....';
cnt :='jual mahal dikit lah';
keu :='cape deeeeeeeech:)';
lck :='malam jumat kliwon';
end;
end else
if( (tg<21 and="and" bl="2))" or="or" tg="tg">=21) and ( bl=1))then
begin
btg := 'sagitarius';
if jk = 'l' then
begin
karir:='mau ada promosi tuch....';
cnt :='anda disarankan selingkuh';
keu :='terancam bokek';
lck :='malam selasa pahing';
end else
begin
karir:='agak mandek....';
cnt :='putusin aja kalo bikin rese';
keu :='lumayan,banyak pemasukan... ';
lck :='senin,selasa';
end;
end else
begin
end;
end;
begin
repeat
clrscr;
write ('nama anda : ');readln(nama);
write ('jenis kelamin(l/p) : ');readln(jkl);
write ('tanggal (dd/mm/yyyy) : ');readln(tgllhr);
writeln;writeln;
ramalan (nama,jkl,tgllhr,bintang,karir,asmara,keuangan,luckyday);
writeln('lahir pada tanggal :',caritgl (tgllhr));
writeln('bintang anda :',bintang);
writeln('karir/kesempatan :',karir);
writeln('asmara :',asmara);
writeln('keuangan :',keuangan);
writeln('haribaik :',luckyday);
write ('coba lagi (y/t)?');readln(j);
until upcase(j)<>'y';
end.


nah outputnya adalah berupa layer yang meminta user mengisi data yang dibutuhkan, program ini belum tuntas artinya hanya sampai zodiak tertentu saja, jenis kelamin laki saja, jadi silahkan kembangkan saja disesuaikan dengan kepentingannya.
(sumber : denbayan)