Pertama-tama saya ucapkan terima kasih bagi yg bisa mnyelesaiknnya, sya ingn mmbuat progrm kalkulator u/ mnghitung jrak, slh satunya mnghtung nilai invers cos, akn tetapi setelah sya ketikkan perintah: var A,B,C,D,E,F:real; A1,B1,C1,D1,E1,F1:real; menlat1,detlat1,menlong1,detlong1,menlat2,detlat2,menlong2,detlong2:real; begin //konversi menlat1:=StrToFloat(menitLat1.Text); detlat1:=StrToFloat(detikLat1.Text); menlong1:=StrToFloat(menitLong1.Text); detlong1:=StrToFloat(detikLong1.Text); menlat2:=StrToFloat(menitLat2.Text); detlat2:=StrToFloat(detikLat2.Text); menlong2:=StrToFloat(menitLong2.Text); detlong2:=StrToFloat(detikLong2.Text); //rumus A:=menlat1+(detlat1/60); A1:=5+(A/60); B:=menlong1+(detlong1/60); B1:=119+(B/60); C:=menlat2+(detlat2/60); C1:=5+(C/60); D:=menlong2+(detlong2/60); D1:=119+(D/60); //pengisian derajatLat1.Text:=FloatToStr(A1); derajatLong1.Text:=FloatToStr(B1); derajatLat2.Text:=FloatToStr(C1); derajatLong2.Text:=FloatToStr(D1); //rumus jarak E:=cos((sin(A1)sin(C1))+(cos(A1) cos(C1)cos(B1-D1))); E1:=ArcCos(E); F:=6378.137 (E1); hasil.Text:=FloatToStr(F); F1:=1.852*(F); hasilMil.Text:=FloatToStr(F1); end; :( :( terdapt error pda arccos,sbnarnya fungsi matematika apa yg akan digunkn u/ mnyelesaikn fungsi arccos (invers cos) di delphi, apakh kesalhnnya pda tipe data ato mmg fungsi lainnya yg salah..???sya sudah googling tpi yg diusulkn hanya arccos,cos-1,acos, tapi smuanya ttp error. Sya haturkan banyak terima kasih..!!!

klo di excel, fungsi untuk, invers cosnya, =acos(nilainya), berhasil, tpi di delphi tdk bisa, apanya yg salah ya...

@alvian_tc: invers cosnya, =acos(nilainya),

apakah anda yakin bahwa range nilainya berkisar 0 s/d pi

nilainya berkisar antra 0 s/d pi, tapi itu di excel, klo di delphi bgmna yah menghitung nilai invers cos, klo nilai cos, sin, tan, mmg bisa, tapi ketika coba invers cos (arccos), tdk bisa mengetahuinya, fungsinya apa yah...???

@alvian_tc: nilainya berkisar antra 0 s/d pi, tapi itu di excel, klo di delphi

di mana2 fungsi acos ya sama gak di excel gak di delphi, gak di VB, gak di calculator...........

sya sudah coba, cth: e1:=arccos(E);, tidak mau run, bgtu gnti acos, sama juga, sya kemudian buka delphi help dan menemukan bhwa u/ invers cos hrus diberikan function dulu yaitu function ArcCos(const X: Extended): Extended; tapi ttp juga tidak bisa run, kira-kira apa ya salahnya...???

dah tambahin uses Math ??? biasakan googling dlu, dengan 1x tancap keyword saya menemukan link http://www.delphibasics.co.uk/RTL.asp?Name=ArcCos

terima kasih atas jawabannya, program sudah berhasil...