Witam
Czy komuś z grupowiczów coś takiego się zdarzyło? CZy ktoś już naprawiał
SDI?
Pewnie nikt, bo terminal SDI masz wypożyczony od TPSA. Jak nie działa to
zgłaszasz do BOKu i dalej to ich problem.
| "Hubert Świerczewski" <micro@klub.chip.plwrote in message
| | Pewnie nikt, bo terminal SDI masz wypożyczony od TPSA. Jak nie działa to
| zgłaszasz do BOKu i dalej to ich problem.
Też prawda :-)
Jak jest po gwarancji to już chyba jest problem :(
Radek S.
Newsgroups: pl.misc.elektronika
Sent: Friday, January 18, 2002 8:18 PM
Subject: Spójżcie na tą stronę!
Może nie na temat, ale spójżcie na tą stronę: http://www.chdrp.org.pl
Na jej górę.
Dobre, co nie?!
Przeczytaj wszystkie posty z tego wątkuMam problem, z ktorym nie moge sobie poradzic.
Kompilator/interpreter jezyka Visual BASIC wer. 5 ile dziala,
a mi nie chce sie w to wierzyc!
czy ktos moglby mi to wytlumaczyc
Option Explicit
Private Sub Form_Load()
'---------------------------------------------------
' Przykladowa postac programu
' (Et1, Et2 - label controls)
'---------------------------------------------------
Dim x As Single 'lub Double
x = 44271.30625
Et1.Caption = "x=" + Format$(44271.30625, "0.00000")
Et2.Caption = "y=" + Format$(x, "0.00000")
'---------------------------------------------------
' Tablica wynikow dzialania programu
'
' Dim x As Single Double
' x= y= y=
'
' 71.30625 71.30625 71.30625
' 271.30625 271.30624 271.30625
' 4271.30625 4271.30615 4271.30625
' 44271.30625 44271.30469 44271.30625
' 544271.30625 544271.31250 544271.30625
'---------------------------------------------------
' To po prostu jest niemozliwe!
End Sub
prosze o odpowiedz do grupy albo na adres
micro@klub.chip.pl
"microart" <micro@klub.chip.plwrote in message
|
| Mam problem, z ktorym nie moge sobie poradzic.
| Kompilator/interpreter jezyka Visual BASIC wer. 5 ile dziala,
| a mi nie chce sie w to wierzyc!
| czy ktos moglby mi to wytlumaczyc
|
| Option Explicit
|
| Private Sub Form_Load()
|
| '---------------------------------------------------
| ' Przykladowa postac programu
| ' (Et1, Et2 - label controls)
| '---------------------------------------------------
| Dim x As Single 'lub Double
| x = 44271.30625
| Et1.Caption = "x=" + Format$(44271.30625, "0.00000")
| Et2.Caption = "y=" + Format$(x, "0.00000")
|
| '---------------------------------------------------
| ' Tablica wynikow dzialania programu
| '
| ' Dim x As Single Double
| ' x= y= y=
| '
| ' 71.30625 71.30625 71.30625
| ' 271.30625 271.30624 271.30625
| ' 4271.30625 4271.30615 4271.30625
| ' 44271.30625 44271.30469 44271.30625
| ' 544271.30625 544271.31250 544271.30625
| '---------------------------------------------------
|
| ' To po prostu jest niemozliwe!
Dlaczego?! To chyba zupełnie normalne.
Wynika to ze sposobu zapisu liczb zmiennoprzecinkowych w pamięci komputera.
Single ma po prostu mniejszą precyzję i przy większej ilości cyfr (tutaj
powyżej siedmiu) nastepują przekłamania (zaokrąglenia) na ostatnich pozycjach.
W to wszystko miesza się jeszcze system binarny. "Okrągła" liczba w zapisie
dziesiętnym wcale nie jest "okrągła" w zapisie binarnym.
Gdybyś kontynuował zabawę, to by się okazało, że typ Double też w którymś
momencie osiąga kres swoich "możliwości".
Użytkownik "Hubert Świerczewski" <micro@klub.chip.plnapisał w
wiadomości
Może nie na temat, ale spójżcie na tą stronę: http://www.chdrp.org.pl
Na jej górę.
Dobre, co nie?!
Przeczytaj wszystkie posty z tego wątku© 2009 Najlepszy miesiąc kawalerski w Polsce !!! - Ceske - Sjezdovky .cz. Design downloaded from free website templates