SKy Scripter
2007-12-18 01:14:22
Lol, Got Bored and made a Sqrt function….
its pretty accurate… i would like it to be more dead on.. but yea XD
its pretty cool
not much its just fun XD, you can use this method if you don't have a calculator i guess
its pretty accurate… i would like it to be more dead on.. but yea XD
its pretty cool
program new;
var Pn: array [1..1000] of Extended;
procedure LoadSqrt;
var i: Integer;
begin
for i := 1 to 1000 do pn[i] := Sqr(I);
end;
function sqrt2(x: Extended): Extended;
var I, N: Integer;
e1, e2, e3: extended;
begin
for i:= 1 to 1000 do
if (pn[i] > x) then
begin
n := i;
break;
end;
e1 := x / n;
e2 := (e1 + n) div 2;
while (abs(sqr(e2) - x) > 0.0000001) do
begin
e3 := (x / e2)
e2 := (e2 + e3) / 2;
end;
Result := e2;
end;
var k: Integer;
begin
LoadSqrt;
for k:= 1 to 100 do
Writeln(Floattostr(sqrt2(k)));
end.not much its just fun XD, you can use this method if you don't have a calculator i guess
