Homework help

program sederhana turbo pascal...^^

program semesteran;

uses wincrt;

var

nama,komentar:string;

tanggal,tahun,bulan,umur_anda_sekarang,bulanumur,tanggalumur:integer;

begin

writeln('silahkan masukkan data diri anda');

writeln('nama anda :');read(nama);

writeln('tanggallahir anda :');read(tanggal);

writeln('bulan boss dalam angka');read(bulan);

writeln('tahun berape lu lahir:');read(tahun);

begin

if ((tanggal>21) and( bulan=12))or((tanggal<20)and( bulan=1))

then komentar:='bintang anda capricorn'

else if((tanggal>21) and( bulan=1))or((tanggal<18)and( bulan=2))

then writeln('bintang anda aqurius')

else if((tanggal>19) and( bulan=2))or((tanggal<20)and( bulan=3))

then writeln('bintang anda pisces')

else if((tanggal>21) and(bulan=3))or((tanggal<19)and( bulan=4))

then writeln('bintang anda aries')

else if((tanggal>20) and( bulan=4))or((tanggal<20)and( bulan=5))

then writeln('bintang anda taurus')

else if((tanggal>21) and( bulan=5))or((tanggal<20)and( bulan=6))

then writeln('bintang anda gemini')

else if((tanggal>21) and( bulan=6))or((tanggal<18)and( bulan=7))

then writeln('bintang anda cancer')

else if((tanggal>21) and( bulan=7))or((tanggal<20)and( bulan=8))

then writeln('bintang anda leo')

else if((tanggal>21) and(bulan=8))or((tanggal<22)and( bulan=9) )

then writeln('bintang anda virgo')

else if((tanggal>23) and( bulan=9))or((tanggal<21)and( bulan=10))

then komentar:='bintang anda libra'

else if((tanggal>22) and( bulan=10))or((tanggal<20)and( bulan=11))

then komentar:='bintang anda sagitarius';

end;

writeln ('hasil penelitian kami maka :');

writeln (komentar);

umur_anda_sekarang :=2006-tahun;

writeln('umur_anda_sekarang :',umur_anda_sekarang);

begin

if tahun mod 12 =0 then writeln('shio anda adalah kauw (monyet) ')

else if tahun mod 12 =1 then writeln('shio anda adalah kee (ayam jago) ')

else if tahun mod 12 =2 then writeln('shio anda adalah kao (anjing)')

else if tahun mod 12 =3 then writeln('shio anda adalah ti (babi)')

else if tahun mod 12 =4 then writeln('shio anda adalah ci (tikus)')

else if tahun mod 12 =5 then writeln('shio anda adalah cu (kerbau)')

else if tahun mod 12 =6 then writeln('shio anda adalah houw (macan)')

else if tahun mod 12 =7 then writeln('shio anda adalah tou (kelinci)')

else if tahun mod 12 =8 then writeln('shio anda adalah liong (naga)')

else if tahun mod 12 =9 then writeln('shio anda adalah yo (kambing)')

else if tahun mod 12 =10 then writeln('shio anda adalah beh (kuda)')

else if tahun mod 12 =11 then writeln('shio anda adalah coa (ular)');

end;

end.