Arsip: menghitung invers cos...???

 
user image
more 15 years ago

alvian_tc

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..!!!
user image
more 15 years ago

alvian_tc

klo di excel, fungsi untuk, invers cosnya, =acos(nilainya), berhasil, tpi di delphi tdk bisa, apanya yg salah ya...
user image
more 15 years ago

mas_kofa

@alvian_tc: invers cosnya, =acos(nilainya),
apakah anda yakin bahwa range nilainya berkisar 0 s/d pi
user image
more 15 years ago

alvian_tc

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...???
user image
more 15 years ago

mas_kofa

@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...........
user image
more 15 years ago

alvian_tc

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...???
user image
more 15 years ago

n3o_cybertech

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

alvian_tc

terima kasih atas jawabannya, program sudah berhasil...
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com