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;