Schleifen Problem :-(

[peeff]

hallo leute,
könnt ihr einem anfänger mal nen tip geben?
weiß nicht warum die schleife nicht funktioniert.
ich möchte eine sinuskurve in einem fenster(y= höhe 400) ausgeben.
zum testen zeige ich ,Amplitude und a in einem label an.
die schleife läuft aber nur bis a=2 und dann geht nixmehr.
vielleicht wißt ihr wo ich noch suchen kann.
vielen dank.
Peter

Delphi-Quellcode:

//Versuch einer Sinusanzeige :-((((

          a:=1;
           repeat
              begin
                if a <= 360 then
                a:= a+1
                else
                a:= 1;
                Amplitude:= trunc(sin(pi*a/180)*Y/2+Y/2);
                Label1.Caption := FloatToStr(Amplitude) ;
                Label3.Caption := IntToStr(a);
              end;
           until a<361;

[sirius]

until=bis

"bis a<361" ist ziemlich schnell erreicht :mrgreen: wenn man bei 1 anfängt

[fwsp]

das problem liegt an der stelle:

Delphi-Quellcode:

until a<361;

a ist nach dem ersten durchlauf 2 und damit ist es kleiner als 361. deswegen wird die schleife nicht nochmal wiederholt.

vllt solltest du das mal mit

Delphi-Quellcode:

until a = 361;

probieren.

[peeff]

ups--- ist ja logisch.
werd ich gleich mal testen.
vielen dank :-)

[peeff]

hab es getestet(until a=361) aber es geht trotzdem noch nicht.
a erreicht nun den wert 361, aber laut schleife dürfte er diesen wert doch nie erreichen????
wo hab ich noch nen denkfehler??

[fwsp]

das liegt an dieser zeile

Delphi-Quellcode:

if a <= 360 then

wenn a = 360, geht er noch einmal in die schleife. dann wird a = 361.
a wird nicht 362.

wenn du das verhindern willst schreib:

Delphi-Quellcode:

if a < 360 then

[peeff]

vielen dank
daran lag es
super daß es euch gibt.
peter.