|
Registriert seit: 7. Apr 2005
Ort: Bern (Schweiz)
414 Beiträge
Delphi 2007 Enterprise
|
Re: Division nur mit FOR Schlaufe
11. Mär 2009, 11:55
Also mit while geht es ja nicht, dann währe es ja ein while programm! Aber ich galube ich habe die Lösung:
r:=x mod y
==========
r:=0;
LOOP x DO //maximal x durchläufe, da 1<=y<=x
a:=0;
LOOP x-r-y DO a:=1 END // if x-r > y then ...
LOOP a DO r:=r+y END // ... r:=r+y
END
LOOP 1 DO r:=x-r END
Glaube so klappt es
Philippe Wechsler
|