Wie kann ich mir den schnittp. zweier lin. funk. berechnen

[ichbins]

Delphi-Quellcode:

//Bsp:
//
//f(x) = ax+b  |   g(x) = yx+z
//
//
//--> 
//var xresult,yresult:real;
//
//solve(a,b,y,z,xresult,yresult);
//
//jetzt ist in xresult der x-Wert des Schnittpunktes gespeichert.
// 
procedure solve(f1a,f1b,f2a,f2b:real;out x,y:real);
begin
  x:=(f2b-f1b)/(f1a-f2a);
  y:=f1a*x+f1b;
end;

//Funktion nicht getestet, nur gerade schnell selbst geschrieben.