mas..mbak.. mo tanya ttg fungsi gcd --> Euclidian.. klo d bhs C codingnya kyk gini : ------------------------------------------- int gcd(int a, int b) { int t; while (b != 0) { t = b; b = a % b; a = t; } return a; } ----------------------------------------------- klo coding d delphinya gimn?klo pk function? trs gimn cr manggil fungsi n ditampilin ke Editbox?? maap ya klo nanya nya kebangeten?? coz aq dah mentok nihh..n hrp maklum aq newbie d delphi.. makasihh..

aq coba jawab, tapi mohon maaf kalo gak jalan coz aq lagi error beberapa hari ini :

function gcd(const a,b: integer):integer;
var t: integer;
begin
while not(b=0) do
 begin
  t:=b;
  b:=a mod b;
  a:=t
 end;
result:=a;
end;

nampilinnya :

Edit1.Text:=IntToStr(gcd(12,10));

sekali lagi kalo salah maapin aq ya...ini perkiraanku doank(gak ada delphi nih di warnet), mungkin temen2 ada yang ingin ngasih jawaban yang laen???

Result itu apakah fungsi dari return value?? bukannya Result itu nampilin hasil a?? ini contoh algoritma umumnya: Choose a small number, e coprime to m e coprime to m, means that the largest number that can exactly divide both e and m (their greatest common divisor, or gcd) is 1. Euclid's algorithm is used to find the gcd of two numbers e = 2 => gcd(e, 108) = 2 (no) e = 3 => gcd(e, 108) = 3 (no) e = 4 => gcd(e, 108) = 4 (no) e = 5 => gcd(e, 108) = 1 (yes!) ________________________ function gcd(a, b) if b = 0 return a else return gcd(b, a mod b) _________________________ maklum masi newbie..... aq bingung bgt!! :cry:

di C atau php, return adalah sebuah nilai pengembalian (hasil).. begitu juga function di delphi menggunakan result...

function gdc(a,b: Integer):Integer;
begin
  if (b mod a) = 0 then
    Result := a
  else
    Result := gdc(b, a mod b);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  e : Integer;
begin
  e := 5;
  Edit1.Text := IntToStr(gdc(e,108));
end;

makasi makasi akhirna jalan JUGA!!! skalian tanya juga.... Convert bilangan pecahan ke Integer gmn ya?? perintahnya, sama convert Int to Hexa maklum bingung banget aq...:oops: :cry: :cry: terima kasi atas jawabanya

1. pecahan --> integer pake trunc i := trunc(p); 2. Int --> Hex pake IntToHex