Programm für Umrechnung von dezimalen Zahlensystem in das "siebener Zahlen System.

Ich hab mal die Vorgabe von GerdW erweitert.
Damit sollte es funktionieren.

Code:

Code:
count :=0
boolen :=true
WHILE boolen
  dividend := dividend - divisor
  count++
  IF dividend < divisor
     char string:= char ( int dividend) + char string
     dividend:= count
     IF count = 0
        boolen := true
     ELSE
        boolen := fals
     END IF
     count:=0
   END IF
WEND
remainder := int (char string)

Gruß Freddy

Wie Ralf schon sagte, kann man die "verbotene" Funktion "Quotient und Rest" sehr einfach mit 4 elementaren Funktionen nachbauen. Dazu braucht man keine while-Schleife mit Shift-Registern.
   
Die Nachbildung ist, im Unterschied zum Original, nicht polymorph. Von Fall zu Fall sind noch Konvertierungen einzufügen.

Nachtrag:

Zitat: Freddy schrieb:
Damit kann man vom 10er System in jedes andere System wandeln.
Jens antwortete:
Nicht so ganz, nur in jedes System <= 10..., bei >10 stimmt die String-Darstellung nicht.

In der Aufgabenstellung wird verlangt, daß als Ergebnis die einzelnen Ziffern als Byte-Array, und nicht als String, dargestellt werden sollen . Damit ist man universell - und der Lehrer war schlau.