Arsip: menghitung invers cos...???

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..!!!

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...

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

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...???

more 15 years ago
mas_kofa
@alvian_tc: nilainya berkisar antra 0 s/d pi, tapi itu di excel, klo di delphidi mana2 fungsi acos ya sama gak di excel gak di delphi, gak di VB, gak di calculator...........

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...???

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
more ...
- Pages:
- 1
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Firebird di sebuah network
by wati in FireBird more 12 years ago - DBGrid masking??
by adokonax in Tip n Trik Pemrograman more 19 years ago - delphi untuk ubuntu??
by coco7seven in Hal umum tentang Pascal Indonesia more 17 years ago - SOLUSINYA DONG !
by umarbakri in Hal umum tentang Pascal Indonesia more 18 years ago - project setelah di run, berhenti
by yadi in Hal umum tentang Pascal Indonesia more 17 years ago - Buat Downloader
by mas_kofa in Network, Files, I/O & System more 17 years ago - Trigger FIFO di Mysql
by elektra_3328 in MySQL more 14 years ago - Nanya Thread
by sanmila in OOT more 13 years ago - AGAIN "Access Violation" pake directmysql .. Help
by detox in MySQL more 18 years ago - Tanya format date di DBGrid ?
by gold3n_b0y in Hal umum tentang Pascal Indonesia more 19 years ago