aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Hier wird die n-te Wurzel des Argumetes zurückgeliefert.

Funktioniert auch bei nicht ganzzahligen Wurzeln !!!

Programm

uses crt,dos;
var  x,y,ergebnis,zahl:real; i,n:integer;
begin
writeln('Von welcher Zahl wollen Sie die Wurzel haben ?');
readln(x);
writeln('Die wieviel-te Wurzel ?  Dabei entspricht die normale Wurzel der 2-ten !');
readln(y);

ergebnis:=exp((1/y)*ln(x)); { =Umkehrfunktion der Rechnung für Potenzen }

write('Die ',y:2:2,'-te Wurzel von ',x:5:5,' = ',ergebnis:5:5);
readln;
end.

---

--Gastarbeiter 16:21, 27. Feb 2006 (CET)

---