Einzelnen Beitrag anzeigen

Benutzerbild von rawsoul
rawsoul

Registriert seit: 29. Okt 2006
Ort: Düsseldorf
249 Beiträge
 
Delphi 2005 Personal
 
#1

Modulo manuell

  Alt 13. Feb 2008, 11:05
Moin =)

Ich stehe vor dem Problem, einen Modulo manuell zu berechnen. Probiere seit gestern rum, mir ist leider bisher nichts funktionstüchtiges gelungen. Das Ziel ist es, herauszufinden, ob eine Zahl gerade oder ungerade ist, und abhängig davon eine andere Variable auf 1/0 zu setzen.

Es handelt sich hierbei um Brainfuck, falls es wem ein Begriff sein sollte.

Ich kann Variablen nutzen, darf allerdings nur folgende Operationen durchführen:

Code:
solange(zahl!=0){ ... };
incrementiere(zahl);
decrementiere(zahl);
Eine Division duch 2 bei geraden Zahlen gelang mir so:
Code:
Zahl2 = Ausgangszahl;
Ausgangszahl = 0;
solange(Zahl2!=0){
  Ausgangszahl++;
  Zahl2--;
  Zahl2--;
}
Der Nebeneffekt dabei wäre, dass Zahl 2 auf 0 gesetzt wird. Bei ungeraden Zahlen liegt das Problem vor, dass Zahl2==0 nie eintreffen wird, und das ganze somit in einer Endlosschleife resultiert.

Für jeden Tipp bin ich dankbar.

Gruß,
Frank.
Frank Dumont
  Mit Zitat antworten Zitat