Arsip: mo tanya fungsi return

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..

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???
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:

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;

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

more 13 years ago
mas_kofa
1. pecahan --> integer pake trunc
i := trunc(p);
2. Int --> Hex pake IntToHex
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- nanya menghubungkan ADODatabase, TDBComboBox, TDBGrid
by b3g1n312 in MsSQL more 14 years ago - Pindah Ke edit lain jika di enter
by listia in Hal umum tentang Pascal Indonesia more 13 years ago - Re:count data per page di report...?
by nickqin in OOT more 13 years ago - Teks recognation
by tamara in Delphi.NET more 11 years ago - Print Pake Epson TMU 300
by wati in Hal umum tentang Pascal Indonesia more 10 years ago - koneksi dan transaksi
by belajaraja in Delphi.NET more 13 years ago - tanya query di delphi
by budi_sleman in Hal umum tentang Pascal Indonesia more 11 years ago - Input DateTimePicker ke Db Paradok?
by adit4it in Hal umum tentang Pascal Indonesia more 14 years ago - kode generator..tanya.?
by dm.adoconnx in Tip n Trik Pemrograman more 12 years ago - QUICK LAUNCH
by ImanD in Enginering more 14 years ago