Division nur mit FOR Schlaufe

[Weazy]

Ich habe folgendes Problem: x mod y mit einem LOOP programm berechnen. Dazu habe ich mir überlegt das x mod y = x - (x div y) * y ist, wobei x div y nur ein ganzzahliges ergebniss liefert. So weit so gut, doch wie kann ich x div y nur mit for Schlaufen berechnen? Mit while ist das kein Problem, aber mit for?!?

[mkinzler]

Wie würde die Where-Bedingung aussehen?

[nuclearping]

for-Schleifen haben eine bestimmte Anzahl an Durchläufen (for i := 0 to 9 -> 10 Durchläufe). Repeat und While-Schleifen können unendlich laufen, bis eine Abbruchbedingung erreicht ist.

[Weazy]

und genau das ist ja das problem!

[mkinzler]

Du könntest in einem ersten Schritt sie Grenzen berechnen. Ich sehe aber den Sinn gerade nicht.

[himitsu]

jupp, du müßtest dann vorher berechnen wieviele Schleifen nötig sind.

notfalls könnte man zwar auch ein For-Schleifchen vorzeitig abbrechen (mit Break), aber da könnte man dich auch gleich eine passendere While/Repeat-Schleife nutzen?

[Weazy]

und in einem Loop programm kann man die schleife ja auch nicht abbrechen...

[Weazy]

vielleicht kann man ja davon ausgehen dass man die genaue anzahl loops nicht kennt, aber es ein maximum gibt oder so?!?

[nuclearping]

Was ist ein "LOOP-Programm"?

Delphi-Quellcode:

repeat
  if AbbruchBedingung then
    break;
until FALSE;

[brechi]

LOOP = Schleife: also warum keine while schleife
Ansonsten:

Delphi-Quellcode:

divx := 0;
modx := 0;
for i := 1 to x do
begin
  inc(modx);
  if modx = y then
  begin
    inc(dix);
    modx := 0; 
  end;
end;

vill so?

[Klaus01]

Zitat:

Zitat von nuclearping

Was ist ein "LOOP-Programm"?

Das ist ein Loop-Programm.

Grüße
Klaus

[guidok]

Zitat:

Zitat von nuclearping

Was ist ein "LOOP-Programm"?

Das ist wohl zunächst mal die Kernfrage.

So etwas?

Da gibt es doch gar keine FOR Schleife, oder versteh ich das falsch (Nur kurz überflogen)?

[Klaus01]

Zitat:

Zitat von guidok

Da gibt es doch gar keine FOR Schleife, oder versteh ich das falsch (Nur kurz überflogen)?

In der Theoretischen Informatik gibt es nur Goto, while und loop als Schleifen/Wiederholungen.

Grüße
Klaus

[Weazy]

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