Variablen Verwendung

[cruiser]

Stimmt abziehen war ja auch noch.. Am besten wieder per Funktion...

Delphi-Quellcode:

function substVektor(const from, vek: TVektor):TVektor;
begin
  Result.a := from.a - vek.a;
  Result.b := from.b - vek.b;
  Result.c := from.c - vek.c;
end;

Sähe dann wohl so aus (hast da bissel was durcheinandergebracht, laut der Aufgabenstellung), ich hab mal die Variablen laut Aufgabe benannt, dann wird das klarer:

Delphi-Quellcode:

uVek := Vektor(1, 0, 160);
vVek := Vektor(0, 1, 7);
// statt 160 und 7 dann später die validierten
// Werte für a und b

while (vVek.c <> 0) do
begin
  q := uVek.c div vVek.c;
  tVek := substVektor(uVek, multiVektor(vVek, q));
  uVek := vVek; // records einfach nur zuweisen reicht!
  vVek := tVek;
end;