Arsip: mo tanya fungsi return

 
user image
more 13 years ago

NggotMan

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..
user image
more 13 years ago

n3o_cybertech

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???
user image
more 13 years ago

NggotMan

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:
user image
more 13 years ago

pradhana

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;
user image
more 13 years ago

NggotMan

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
user image
more 13 years ago

mas_kofa

1. pecahan --> integer pake trunc i := trunc(p); 2. Int --> Hex pake IntToHex
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com