Simplificateur de racine -énième

Voilà un programme qui simplifie les racines -énième (un algo que j'ai trouvé moi-même )

Code:: print "Simplificateur de racine de différents degrées"
print " Version 2.00"
print
print " Par Ferdinand PIETTE."
print
[deg]
input "Degrée : ";p
if p < 2 then
print "Degrée > 1"
goto [deg]
end if
print "(";p;")";chr$(215)+"racine(";
input "";g
if g < 0 then
g = -1*g
cpx$ = "i"
else
cpx$ = ""
end if
z = g
v = 1
w = 1
[bcl]
v = v + 1
if v^p>g then
goto [fin]
else
[mid]
u = z/v^p
if int(u) = u then
w = w* v
z = u
else
goto[bcl]
end if
goto [fin]
end if
[fin]
print "(";p;")"+chr$(215)+"racine(";g;")=";
print w;cpx$;
if z <> 1 then print "*((";p;")"+chr$(215)+"racine(";z;"))"
print

Voila.

racine carré de 8 s'écrit (2)¤racine(8) = 2*(2)¤racine(2)

Le chiffre entre parenthèse avant le symbole ¤ de la racine indique le degrée de la racine exemple :

3^2 = 9 <=> (2)¤racine(9) = 3

3^3 = 27 <=> (3)¤racine(27) = 3