ane setuju ama yg terakhir gan serius mode : on, kalu uda serius dan niatin buat ibadah insya Allah ga akan sulit
Procedure EMohon; {$I Mohon.Pas} Procedure EKend; {$I Kend.Pas} Procedure EBBN; {$I BBN-KB.Pas} Procedure EBiaya; {$I Biaya.Pas} Procedure KMohon; {$I KMohon.Pas} Procedure KKend; {$I KKend.Pas} Procedure KBBN; {$I KBBN-KB.Pas} Procedure KBiaya; {$I KBiaya.Pas} Procedure HMohon; {$I HMohon.Pas} ...
agan ane mw nanya, misalnya {$test.pas} sama #as gunanya buat apa ya (tanda kurung kurawal dolar sama tanda pager di pascal) gan..? plis bgt..
thx gan makasih infonya..:beer: tpi ane ga pke array jga bsa kq.. date:=(t.mm*30)+t.dd; \t\t if (date >= 51) and (date <= 79) then
t rcord bos.. gni awal nya.. type tanggal = record dd : integer; \t mm : integer; \t yyyy: integer; \t end; var t : tanggal; seleksi kondisi buat nentuin tanggal 21 Jan - 19 Feb dpet aquarius itu yg ane msi bingung..
gan ane mw buat program zodiak pke pascal.. seleksi kondisi untuk bikin 21 Jan - 19 Feb kya gni bukan? inputannya tanggal bulan (t.dd,t.mm) if ( (t.dd >= 21) and (t.dd <= 19) ) and ((t.mm >= 01) and (t.mm <= 02)) then
