Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Przyblizenie dziesietne
anonim




Typ: Nie zarejestrowany
Przyblizenie dziesietne

Siema!
Mam problem: mam napisac program do obliczania przyblizenia pierwiastkow liczb. Niestety nie mam pomyslu na algorytm. Moze ktos z was ma? [Oczywiscie nie mozna uzyc funkcji Sqr() ]

02-10-2004 08:36
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

http://www.wsipnet.pl/oip/matematyka_3/uczen/ciekawe1.htm


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

02-10-2004 10:37
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004

nie wiem czy to moze byc tak..ale jezeli nie mozesz uzyc funkcji sqr() to przeciez zeby otrzymac to samo
potegując dana liczbe np.pierwiastek kwadratowy  - do potęgi 1/2
sqr(2) = 2^0.5
jest to samo,a zeby zaokraglic wystarczy uzyc funkcji  z działu TIPS
=========================
Function Round (X as Double, DP as integer) as Double

Round = Int((X * 10 ^ DP) + 0.5) / 10 ^ DP

End Function

==========================
gdzie x to liczba a DP ilosc liczb po przecinku
np. Round(2 ^ 0.5, 2) da wynik 1.41 czyli przyblizony pierwiastek z 2.
nie wiem czy o to ci chodzi.ale pisze
pozdro

02-10-2004 11:34
Pokaż profil deywid  Wyślij email do deywid        5625009
anonim




Typ: Nie zarejestrowany

juz napisalem.. chodzilo o cos takiego... na wszelki wypadek, jakby ktos byl zainteresowany podaje zrodlo

a = Text1.Text      ' liczba z textboxa
X0 = 1              ' wartosc poczatkowa
temp = X0


For i = 0 To 100 Step 1

X1 = 0.5 * (temp + a / temp)

temp = X1

Next

DP = Text2.Text
aRound = Int((temp * 10 ^ DP) + 0.5) / 10 ^DP 'dp - liczba miejsc po przecinku

MsgBox aRound, , "Wynik"

05-10-2004 17:04
  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1