Arsip: Tanya : algoritma membuat akar pangkat ??

more 15 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 15 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 15 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 15 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 15 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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- DsgnIntf
by p2bf in OOT more 15 years ago - Write wave data .WAV dari array dinamik, simpan di pc.
by yadi in Hal umum tentang Pascal Indonesia more 15 years ago - Bagaimana Akses QuickReport dengan ClientDataset pada server
by bandit88 in Reporting more 14 years ago - gimana auto install delphi vcl package
by triasfahrudin in Tutorial & Community Project more 13 years ago - Hubungkan delphi dengan VB...???
by alvian_tc in Tip n Trik Pemrograman more 13 years ago - DBExpress - ExecSQL selalu commit ??
by mastoto in Hal umum tentang Pascal Indonesia more 16 years ago - google code search
by xerion in Tip n Trik Pemrograman more 16 years ago - Tolong dikoreksi...
by saladin in OOT more 14 years ago - Not Install
by muktaf in Tip n Trik Pemrograman more 15 years ago - Edit pada kolom tertentu saja pada DBGrid
by a_mrecoba in Tip n Trik Pemrograman more 13 years ago