Graphics 1024,768,16,1


AppTitle "Heron-Algorithmus"


Local z

Local aa, bb
Local cc, dd
Local ee, ff
Local gg, hh
Local ii, jj
Local kk, ll
Local mm, nn
Local oo, pp
Local qq, rr
Local s, tt
Local uu, vv
Local ww, xx
Local yy, zz




eingabe()


Function eingabe()

Zahl# = Input("Gib die Zahl ein, dessen Wurzel wir uns nähern sollen  ")

If Zahl# <= 0 Then
Cls
Text 0,0,"Falsche Eingabe!!!"
Eingabe()
End If

If Zahl# > 9999999999999999 Then
Cls
Delay 500
Text 0,0,"Erm... eine kleinere Zahl bitte !?"
Eingabe()
End If


End Function





z = Zahl#
aa = z / 10
bb = z / aa

cc = (aa + bb) / 2
dd = z / cc

ee = (cc + dd) / 2
ff = z / ee

gg = (ee+ff) / 2
hh = z / gg

ii= (gg+hh) / 2
jj= z / ii

kk=(ii+jj) / 2
ll= z / kk

mm=(kk+ll) / 2
nn= z / mm

oo=(mm+nn) / 2
pp= z / oo

qq=(oo+pp) / 2
rr= z / qq

s =(qq+rr) / 2
tt= z / s

uu=(s +tt) / 2
vv= z / uu

ww=(uu+vv) / 2
xx= z / ww

yy=(ww+xx) / 2
zz= z / yy



While Not(KeyHit(1))

If yy < zz Then
Text 512, 334, "Die Wurzel aus "+z+"liegt zwischen"+yy+" und"+zz+ " . "
End If

If zz < yy Then
Text 512, 334, "Die Wurzel aus "+z+"liegt zwischen"+zz+" und"+yy+ " . "
End If

Wend

<?
function wurzel($zahl)
{
 $min = 1;
 $max = $zahl;
 
 while (($i<=100) || ($min==$max))
 {
    $min = mittelwert($zahl,$min);
    $max = $zahl/$min;
 }
 
 $ret = mittelwert($min,$max);
 return $ret;
}
function mittelwert($x,$y)
{
 $ret = ($x+$y)/2;
 return $ret;
}
?>

Function wurzel%(zahl%)
 min% = 1
 max% = zahl
 
 While ((i<=100) Or (min=max))
                i=i+1
 	min = mittelwert(zahl,min)
 	max = zahl/min
 Wend
 
 ret% = mittelwert(min,max)
 Return ret
End Function 

Function mittelwert%(x%,y%)
 ret% = (x+y)/2
 Return ret
End Function 

AppTitle "Heron-Algorithmus"



wurzelaus% = Input("Wurzel aus  ")


eingabe(wurzelaus%)





Function eingabe(waz)



xnull# = waz / 10
ynull# = waz

While ((xnull = ynull) Or (St<=100))
St = St+1
   xnull = mittelwertvon(waz, xnull)
   ynull = waz / xnull
   
   
   
If xnull < ynull
   Text 200,200,"zwischen       "+xnull+" und   "+ynull+"      .     "
End If

If xnull > ynull
   Text 700,700,"zwischen       "+yNull+" und   "+xNull+"      .    "
End If



Wend

ret = mittelwertvon(xnull, ynull)

Return ret

End Function


Function mittelwertvon(x, y)
ret% = (x+y) / 2
Return ret
End Function




While Not(KeyHit(1))

If xnull < ynull
   Text 200,200,"zwischen "+xnull+" und "+ynull+" . "
End If

If xnull > ynull
   Text 200,200,"zwischen "+yNull+" und "+xNull+" . "
End If


Wend