Kopf- und Fußgesteuerte Schleifen [Verständnisfrage]

[Popov]

Zitat von xSkuLL KiiDx:

habt ihr vllt noch ein paar Sachen die man noch in die PP einbauen kann ? zB ein Schaubild ? hab bisher kein geeignetes gefunden

Um DadyH nicht wieder zu übergehen, er hat im Beitrag #11 auf Wikipedia verlinkt, und da finden sich paar nette Bilder, in etwa:

http://upload.wikimedia.org/wikipedi...0/EinfAusw.png

Zitat:

ahh ja vllt hat noch einer ne Idee für das Programm ... hab ihn heut nochmal gefragt und er meinte man muss eins haben ausm Alltag was es aber noch net irgendwie gibt....

Wenn es kein technisches sein muss, das Beispiel mit Cola war durchaus ernst gemeint

Delphi-Quellcode:

const
  DosenInhalt = 330; //ml
  NormSchluck = 20; //ml
var
  GetraenkInhalt, SchluckInhalt, AnzahlSchlucke: Integer;
begin
  GetraenkInhalt := DosenInhalt;
  AnzahlSchlucke := 0;

  ShowMessage('In der Getränkedose befinden sich ' + IntToStr(GetraenkInhalt) + ' ml.');
  while GetraenkInhalt > 0 do
  begin
    if GetraenkInhalt > NormSchluck then SchluckInhalt := NormSchluck else SchluckInhalt := GetraenkInhalt;
    GetraenkInhalt := GetraenkInhalt - SchluckInhalt;
    AnzahlSchlucke := AnzahlSchlucke + 1;
    ShowMessage('In der Getränkedose befinden sich noch ' + IntToStr(GetraenkInhalt) + ' ml.');
  end;
  ShowMessage('Die Getränkedose ist leer.' + #13#10 +
    'Es wurden ' + IntToStr(AnzahlSchlucke) + ' Schlucke getrunken.');
end;

So in der Art auch das mit mit Repeat Until und der Arbeit