Länge eines Vektors verändern

[Khabarakh]

Delphi-Quellcode:

procedure TVektor.setzeLaenge(laenge:double);
begin
  x1:= (x1/giblaenge) * laenge;
  x2:= (x2/giblaenge) * laenge;
end;

So wird das nix . Du musst den Vektor-Betrag in einer Variable speichern, bevor die einzelnen Komponenten zugewiesen werden.