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;