potenz = 1;
(* aktuelle 8er Potenz *)
dezimal = 0;
(* Ergebnis / Dezimal *)
while (x>0) {
x = x / 10;
(* letzte Ziffer abspalten*)
digit = 10
* (x - int(x)); (* int()= größtes Ganzes *)
dezimal =
dezimal + (digit * potenz);
x = int(x);
potenz =
potenz * 8;
}
Ausgabe(dezimal);
(* gib das Ergebnis aus *)