1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

function TForm1.equal : boolean;
var i,j,k,l,m,n, is_equal : integer;
var var_r, var_s : real;
var ergebnis: array[1..3] of real;
begin
var_r:= 0;
var_s:= 0;
is_equal:= 0;

for i:= 1 to 3 do
  ergebnis[i]:= stzvek[2,i] - stzvek[1,i];   // Die beiden Stützvektoren auf eine Seite bringen

for j:= 1 to 3 do
  if (rvek_r[1,j] = 0) and (rvek_s[1,j] <> 0) then   // prüfen, ob "r" in einer der 3 Gleichungen nicht vorkommt
    var_s:= ergebnis[j] / rvek_s[1,j];               // und gegebenenfalls "s" daraus berechnen

if var_s = 0 then  // wenn "s" nicht berechnet werden konnte
  begin
  for k:= 1 to 3 do
    if (rvek_s[1,k] = 0) and (rvek_r[1,k] <> 0) then // prüfen, ob "s" in einer der 3 Gleichungen nicht vorkommt
      var_r:= ergebnis[k] / rvek_r[1,k];             // und gegebenenfalls "r" daraus berechnen
  for l:= 1 to 3 do
    if (rvek_s[1,l] <> 0) and (rvek_r[1,l] <> 0) then
      var_s:= (ergebnis[l] - (var_r * rvek_r[1,l])) / rvek_s[1,l];   // "r" aus "s" berechnen
  end
  else   // wenn "s" berechnet wurde
  for m:= 1 to 3 do
    if (rvek_s[1,m] <> 0) and (rvek_r[1,m] <> 0) then
      var_r:= (ergebnis[m] - (var_s * rvek_s[1,m])) / rvek_r[1,m];   // "s" aus "r" berechnen

if (var_s = 0) and (var_r = 0) then   //wenn "r" und "s" auf diese Weise nicht berechnet werden konnten, dann
  begin
  var_s:= ((ergebnis[1] * rvek_r[2]) - (ergebis[2] * rvek_r[1])) / ((rvek_s[1] * rvek_r[2]) - (rvek_s[2] * rvek_r[1]));
  var_r:= (ergebnis[1] - (var_s * rvek_s[1])) / rvek_r[1];
  end; 


for m:= 1 to 3 do
  if ((rvek_r[m] * var_r) + (rvek_s[m] * var_s)) = ergebnis[m] then 
    is_equal:= is_equal + 1;

if is_equal = 3 then
  equal := true;

end;                    

1:
2:
3:

  ..
  if (rvek_r[1,j] = 0) and (rvek_s[1,j] <> 0) then 
..                    

1:
2:
3:
4:
5:

if (var_s = 0) and (var_r = 0) then   //wenn "r" und "s" auf diese Weise nicht berechnet werden konnten, dann
  begin
  var_s:= ((ergebnis[1] * rvek_r[2]) - (ergebis[2] * rvek_r[1])) / ((rvek_s[1] * rvek_r[2]) - (rvek_s[2] * rvek_r[1]));
  var_r:= (ergebnis[1] - (var_s * rvek_s[1])) / rvek_r[1];
  end;