Program[] :=Block[{},
z=Input["podaj liczbę zespoloną pierwiastki której chcesz obliczyć"];
n=Input["podaj jakiego stopnia pierwiastek chcesz obliczyć"];
kat=Arg[z];
zmd=Sqrt[Re[z]^2+Im[z]^2];
y=(zmd)^(1/n)*(Cos[(kat+2*x*Pi)/n]+I*Sin[(kat+2*x*Pi)/n]);
If[Im[z]!=0,For[x=0,x<=n-1,x++, Print[x," pierwiastek liczby zespolonej wynosi ", Simplify[y]]],Print["pierwiastek liczby naturalnej wynosi ",Re[z]^(1/n)]
]]
Program[]
Chciałbym dodać do tego rysunek.
Ostatnio zmieniony 26 sty 2023, o 23:38 przez Jan Kraszewski, łącznie zmieniany 1 raz.
Powód:Poprawa wiadomości.