Arsip: [ask]membuat nilai infite dalam delphi

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

willbrig

nanti saya coba kirimin algoritma yang saya maksud... saya harapkan bantuannya... thx..
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com