Arsip: Tanya : algoritma membuat akar pangkat ??

more 17 years ago
whs-84
Saya mau tanya kpd rekan2 semua, bagaimana cara saya buat perintah untuk menghitung akar pangkat, misalnya 2 = akar pangkat 3 dari 8.
terima kasih atas bantuannya

more 17 years ago
BLie2000
mau usul nih...apa nda lebih baik dicoba dulu buat algoritmanya. Kalo sudah ada lalu di running dan bila ada kesalahan baru di perbaiki
daripada minta langsung. Kesannya malas mikir gitu :-)

more 17 years ago
danieljun
program Akar;
{$APPTYPE CONSOLE}
{ compiler directive dibawah harus diset supaya programnya bisa di compile }
{ $JADUL = ON}
uses SysUtils;
var hasil, bilangan, pangkat: real;
begin
write('Bilangan:'); Readln(bilangan);
write('Pangkat:'); Readln(pangkat);
if pangkat > 1 then
begin
hasil := ln(bilangan) / ln(pangkat);
Writeln(FloatToStr(pangkat), ' pangkat ', FloatToStr(hasil), ' = ', FloatToStr(bilangan));
end;
end.

more 17 years ago
ivan
@whs-84
Ada cara mudahnya kalau mau dan gak perlu bikin program untuk akar pangkat secara khusus, cukup manfaatkan function dari delphi dan sedikit logika matematika tingkat SMU :mrgreen:
Pertama:
-----------
Mari kita kembali ke masa SMU pada pelajaran matematika (Semoga masih ingat dan tidak salah hehehe..)
Deskripsi
4² = akar dari 16 = 16 pangkat 1/2 = 4² Betullll (License by Zainudin MZ) :mrgreen:
2³ = akar pangkat 3 dari 8 = 8 pangkat 1/3 = 2³ Betullll (License by Zainudin MZ lagi)
bilangan pangkat n = hasil perhitungan perpangakatan pangkat 1/n[/b:1aad66bb09] Betulll
Intinya:
[b:1aad66bb09]m pangkat n = (m pangkat n) pangkat 1/n
Kedua:
--------
Mari kita implementasikan dalam program.
Kita bisa memanfaatkan function perpangkatan dari delphi namanya
POWER(nilai, pangkat: Extended): Extended;
function ini harus menyertakan unit Math, jadi tambahkan uses Math pada aplikasi kamu
siap kan 2 input yaitu nilai dan pangkat
maka hasilnya adalah:
procedure TForm1.HitungAkarPangkatClick(Sender: TObject);
var hasil: real;
begin
hasil := Power(StrToFloat(EditNilai.Text), (1/StrToFloat(EditPangkat.Text)));
EditHasil.Text:=FloatToStr(hasil);
end;
Semoga benar hehehehe :mrgreen:
more 17 years ago
_aa_
@ivan: @whs-84 ... Semoga benar hehehehe :mrgreen:ya betul, tapi.. (ada tapinya) coba anda lihat fungsi Power di Math.pas tidak lain merupakan extension yang (pada dasarnya) cuma menggunakan fungsi Exp dan Ln (keduanya sudah built-in di System) Power = Exp(Exponent * Ln(Base)) PowerSquare = Exp(Ln(Base) / Exponent) -> kecuali jika Exponent = 0.0, maka Result = 1 Math unit adalah sebuah unit powerful yang penuh dengan fungsi2 transedental floating point. jadi kalau cuma perlu fungsi Power atau PowerSquare tidak usah pakai unit Math (tidak perlu pake meriam untuk membunuh lalat).
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
- Cek KOneksi AdoConection
by supermuam in Hal umum tentang Pascal Indonesia more 14 years ago - output ke Serial Port(RS232) pd aplikasi Web delphi...????
by okki in Web Programming more 15 years ago - Tanya : Cara buat shortcut keyboard untuk button di delphi
by venomz in Tip n Trik Pemrograman more 17 years ago - marhaban ya ramadhan
by LuriDarmawan in OOT more 15 years ago - Delay Pada Delphi ?
by umarbakri in Hal umum tentang Pascal Indonesia more 18 years ago - Penngecekan Karakter bukan di keypress
by titi3 in Tip n Trik Pemrograman more 16 years ago - Tigor's Antivirus (WORO-WORO)
by n3o_cybertech in Tutorial & Community Project more 18 years ago - koneksi dua tabel...???
by coacoac in Tip n Trik Pemrograman more 18 years ago - Fungsi Aritmatika Untuk waktu
by die_yarn in Tip n Trik Pemrograman more 18 years ago - Mengambil Nilai Terbesar Dari 2 Colom Pada Tabel Yang Sama
by isoke in MsSQL more 16 years ago