Arsip: [ask]membuat nilai infite dalam delphi

more 13 years ago
willbrig
saya ingin membuat program dengan nilai infinite...
tapi dengan bahasa pemrograman apapun saya rasa tidak mungkin bisa...
jadi apa yang harus saya lakukan??
apakah mungkin apabila saya menggunakan tipe data single, yang mempunyai nilai antara 1.5x10^-45 sampai 3.4x10^38, kemudian dalam delphi,jika saya menuliskan:
a:=3.41x10^38
apakah akan dibaca infinte????
mohon bimbingannya...[/code]

more 13 years ago
ndenkltop
var
i : integer;
a: DOUBLE;
begin
a:=1;
for i:= 1 to 38 do // pangkat 38
a:=a (3.41 10);
caption:= floattostr(a);//liat hasilnya
end;
tipe double masih bisa, tapi seberapa besar sih nilainya? coba pilih type datanya di bawah. sesuaikan kebutuhan
data type range akurasi ukuran(byte)
Real48: 2.9 x 10^-39 .. 1.7 x 10^38 11-12 6
Single: 1.5 x 10^-45 .. 3.4 x 10^38 7-8 4
Double: 5.0 x 10^-324 .. 1.7 x 10^308 15-16 8
Extended: 3.6 x 10^-4951 .. 1.1 x 10^4932 19-20 10
Comp: -2^63+1 .. 2^63 -1 19-20 8
Currency: -922337203685477.5808.. 922337203685477.5807 19-20 8

more 13 years ago
willbrig
thanks buat bantuannya...
sebenernya saya ga tau berapa besar nilainya....
jadi...saya mempunyai algoritma dimana semua nilai awal harus didefinisikan tak hingga...
nanti setelah melalui proses...baru nilai tak hingga itu diganti dengan angka...
jadi sebenernya nilai tak hingga itu cuma buat inisialisasi saja...
klo seandainya tipe data dari a itu kan double....
trus klo saya masukin ke dalam variabel lain dengan tipe data single ato real48 apakah mungkin???soalnya nilai tersebut kan sudah berada di luar ukuran mereka...

more 13 years ago
ndenkltop
ntar pesannya floating point overflow klo dipaksain diluar range. itu angka buat dihitung atau cuman ditampilkan? klo gak ada proses perhitungan.. dijadikan tipe string ato pchar aja. klo buat looping mendingan pake repeat until atau while do. ato kamu kirim aja algoritmanya biar jelas maksud tujuan algoritmamu itu.

more 13 years ago
willbrig
iya saya tahu....
algoritmanya masih dalam bentuk kata2....blon dalam bahasa pemrograman...
klo mo dibuatin seh terima kasih...heheheheh.... :mrgreen:
btw...klo mo buat pangkat itu gmn ya???
misnya 1.6x10^6....
saya membaca ada fungsi power....tapi saya kurang paham mengenai variabel yang ada sprt base, exponent,dll...
apakah harus memakai fungsi itu???adakah alternatif lain...

more 13 years ago
ndenkltop
function pangkat(bilangan:double;pangkat:integer) : double;
var
i:integer;
hasil : double;
begin
hasil :=0;
for i:=1 to pangkat do begin
hasil :=hasil + (bilangan*bilangan);
end;
result:=hasil;
end;
ini contoh fungsi pangkat tapi fungsi ini belum pake validasi

more 13 years ago
cyber_hecker
Example code : Assign Infinity to a number and then test using IsInfinite
var
float : Double;
begin
// Set the number to infinity
float := Infinity; // Equivalent to 1.0/0.0
// Although infinite, we can still display it
ShowMessage('float = '+FloatToStr(float));
// And we can test to see if it is infinite
if IsInfinite(float)
then ShowMessage('float is infinite')
else ShowMessage('float = '+FloatToStr(float));
end;

more 13 years ago
willbrig
nanti saya coba kirimin algoritma yang saya maksud...
saya harapkan bantuannya...
thx..
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 4 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 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
- Menampilkan data terakhir
by kepiss in Lain-lain more 9 years ago - KONEKSI database INFORMIX di delphi
by DeulleDo-X in Hal umum tentang Pascal Indonesia more 14 years ago - reset code program??
by akudana in Hal umum tentang Pascal Indonesia more 11 years ago - disable restart
by yufan in Delphi.NET more 9 years ago - nanya tutorial dan open source?
by aptho in OpenSource dan Gratis more 14 years ago - Problem akses .net web services via BDS 2006 for win32
by andipurwito in Tip n Trik Pemrograman more 13 years ago - menghitung sub total di quick rep delphi 7
by waones in Tip n Trik Pemrograman more 12 years ago - error pake dbexpress
by hobohobo in Tutorial & Community Project more 14 years ago - Mengetahui System dir
by ho2sly in Tip n Trik Pemrograman more 13 years ago - Other FORM ???
by octavian1972 in Hal umum tentang Pascal Indonesia more 15 years ago