Pierwiastek

Jak zrobić pierwiastek 3 stopnia np. z dowolnej liczby?

nie wiem czy zadowoli cie pascalowy kod, ale na wszelki wypadek podam go ponizej

uses crt;
var a:integer;
randomize;
a:=random(100)
writeln (aaa);
end.

nie wiem czy dokladnie o to ci chodzi ale cos mi to mowila tak wiec SPRoBOWALEM cos pomoc...
{hello} pozdrawiam {hello}

Mily napisał:
nie wiem czy zadowoli cie pascalowy kod, ale na wszelki wypadek podam go ponizej
&gt
&gtuses crt;
&gtvar a:integer;
&gtrandomize;
&gta:=random(100)
&gtwriteln (aaa);
&gtend.
&gt
&gtnie wiem czy dokladnie o to ci chodzi ale cos mi to mowila tak wiec SPRoBOWALEM cos pomoc...
&gt {hello} pozdrawiam {hello}

To jest potega a nie pierwiastek!!!--Pawel

Delphi6

ojj... racja.. pomylilo mi sie... :]
spalam sie ze wstydu {wstyd} {wstyd} {wstyd}
{hello} pozdrawiam {hello}
i sorka za pomylke :]

W Delphi zozna uzyc funkcji Power (potega) z modulu Math

uses Math;

function Pierwiastek(Base : Extended; Exponent : Extended):Extended;
begin
Result:=Power(Base,1/Exponent);
end;--Pawel

Delphi6