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

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 :-)

@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:

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