hm, irgednwie komm ich bei der expo nicht weiter, muss auch sagen das wir diese noch nicht weiter in der schule hatten
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
begin
a:=strtoint(edit23.Text);
b:=strtoint(edit24.Text);
for i:=-75 to 75 do
begin
x1:=457+i;
y1:=(round(272-a*50*exp(i))); //parameter b noch nicht eingearbeitet
x2:=457+i+1;
y2:=(round(272-a*50*exp(i+1))); //parameter b noch nicht eingearbeitet
Canvas.Pen.Style:=psSolid;
canvas.MoveTo(x1,y1);
canvas.LineTo(x2,y2)end;
end;
keine ahnung, aber zeichnet nix und gib nur ne fehlermeldung mit invalid floating point operation. kann mir wer helfen?
desweiteren hab ich keine ahnung wie ich mit delphi6 arcsin und arccos berechnen kann...