Visibility of Luna and Lunar Crescent

,
t
)
{
i(ho!P-24.0)
iqhoul<0.0)
ni.{hou'double(loneGou)))160.0;
s.c=(min-donble(lone(min)))r60.0;
min=double(lons(min));
*c=double(lonc(s*));
houFdolble(lonc(hou));
sun_$o; non *(1;
brim=rGs+4.0.(lr,ns-hssy9.0:
Soroxy(2,5);cout<<"(LT) olSun s.t : ";conve'l hms{ltss);
goroxr(52,5)i@ut<<", Bel Tine : ;convcn hn<bl'n):
gorox(30.5);@ul<<', Moon S€t :'iconven-hm(lrnti
goloxy(2,6)icour<< (LT) orsun Rkc : "ponven_hns(hsti
sotoxy(10,6);cout<<. M@nRi* :';.on!en hms(lrfrti
goloxy{2,3)rcour<< Lar-';
soroxy(8,3);coNert dms(fabs(pla0)r
i(plat<o.o) pinr('s'); dse
gobiy(20,3)cout<< t ns. ":eoloxy(2?,1)i@nved-dns{fabs(!long));
ifulonc>00) pnnt( E ); dF
goloxy(40,1):cout<< TZon€ ":
sobr'(48,);
i(enrim<o.o) cout<<"i; €le
sotoxy(49,1);prinq %2.01f,fab(2ontim))i
Eotoxy(2,4);p.int('LMT vo2d:%2d:%2d,int(hou).int{nin).inr(sc);
8otoxy(]5,4)jprin( (%2d l2dl%4d) UT",in(date).in(month),in(yed))i
soroxy(31,4)roNed_hns(lhout;
soroxr{42,4);print( (%2dl%2d7o4d), JD = ",in(ldal€),ii(looftn),int(lyeat);
sotoxr(60,4)iprint( %.61f jd€)i
sotoxy(6s,3)rcour<< TDr iconve _hm((lhour);
Sotoxy(22,8)rout<< s u n":soroxy(40,8 ) rcour<< Moon j
Soloxy(2,Io);cour<< Geoc. rong, ;
goroxt{2,l l )imur<< Ged- Iilir.'i
aotoxy(2,12);@ur<<"Cee. Disi.";
go!oxy(2,14);@uK<'Gc@. RA:";
sotoxy(2,15);couK< c€e. DELT ;
soroxy(2,I6):@ur<< Hou Anelc:"i
Soroxy(2,IE)Fout<< Top. RA:":
goloxy(2,19)i6ur<< Top. DEL|"i
gotoxy(2,2o);coul<<"Top- HAf ;
8otory(2.22)tcout<<"AIfi udel';
2t0