Bikin Fungsi Pangkat dalam Delphi

[JagoVB]

Pas lagi musim UTS di STMIK El Rahma. Kali ini ujian Pemrograman Delphi. Semua mahasiswa puyeng dibuatnya, termasuk aku. Ujiannya membuat operasi aritmatika. Kalo cuma penjumlahan, pengurangan, perkalian, atau pembagian sih gampang. Lha ini disuruh bikin pangkat dan akar pangkat. Mending lah kalo pangkat dua atau akar pangkat dua, tinggal pake sqr dan sqrt untuk akar pangkat. Kalo harus bikin pangkat atau akar pangkat 3 gimana?? Nah, dari hasil browsing dan mikir, aku dan temen yang bantuin aku nemuin caranya. Logikanya gini :

2^2 = 4 (baca: 2 pangkat 2).

akar pangkat 2 dari 4 bisa juga ditulis 4^(1/2) (baca: 4 pangkat setengah).

Jadi, kalo mo bikin akar pangkat 3 dari 8 misalnya, ya 8^(1/3) = 2, dimana 2^3=8.

sekarang tulis dalam program delphi:

Qta gunakan fungsi power yaitu fungsi perpangkatan dalam delphi.


Spoiler for :






procedure TForm1.HitungAkarPangkatClick(Sender: TObject);

var hasil: real;

begin

hasil := Power(StrToFloat(EditNilai.Text), (1/3));

EditHasil.Text:=FloatToStr(hasil);

end;











kode program diatas cuma untuk akar pangkat 3. Gimana kalo Qta pengen bikin A pangkat B = C, atau C akar pangkat B = A?? Ga' usah bingung, gini caranya untuk pangkatnya :


Spoiler for :






procedure TForm1.HitungPangkatClick(Sender: TObject);

var A,B,C: real;

begin

A := StrToFloat(EditNilai1.Text);

B := StrToFloat(EditNilai2.Text);

C := Power(A, B);

EditHasil.Text:=FloatToStr(C);

end;











Nah, untuk akar pangkatnya :


Spoiler for :






procedure TForm1.HitungPangkatClick(Sender: TObject);

var A,B,C: real;

begin

A := StrToFloat(EditNilai1.Text);

B := StrToFloat(EditNilai2.Text);

C := Power(A, (1/B));

EditHasil.Text:=FloatToStr(C);

end;











Jadi intinya : POWER(nilai, pangkat);

Semoga bener dan temen" semua bisa coba .. Owh ya, jangan lupa menambahkan uses math yah ..




Spoiler for kunjungi blog-ku:






http://e-rara4mystudy.blogspot.com












Spoiler for melon donk:






boleh minta melonna? aku masih newbie nih .. hehe