procedure TForm4.Button10Click(Sender: TObject);
begin
a:= strtofloat (edit2.Text);
b:= strtofloat (edit3.text);
c:= exp(b*ln(a));
edit4.Text:= floattostr (c);
end;
Coding Pangkat (Delphi)
procedure TForm4.Button10Click(Sender: TObject);
begin
a:= strtofloat (edit2.Text);
b:= strtofloat (edit3.text);
c:= exp(b*ln(a));
edit4.Text:= floattostr (c);
end;
Popular Posts
-
Piaget dan Inhelder (dalam Tambunan, 2006) menyebutkan bahwa kemampuan spasial sebagai konsep abstrak yang di dalamnya meliputi hubungan sp...
-
Pada era globalisasi ini, teknologi informasi dan komunikasi berkembang dengan sangat pesat. Salah satu teknologi informasi dan komunikasi ...
-
Sistem numerasi ini berkembang sekitar abad ke-3 sebelum masehi yang dikenal dengan Angka Akroponik karena lambangnya adalah huruf pertama d...
0 Comments