Parallel ????
Achso, jetzt ist der Groschen gefallen.....
Ja, natürlich, das war es. Ich danke Dir nochmal ganz herzlich.
Siro
Grad mal in Lazarus (Delphi Pascal) probiert.
passt....const U1 : Double = 12;
const U2 : Double = 5;
const R1 : Double = 1000;
const R2 : Double = 2000;
const R3 : Double = 3000;
var Ux : Double;
var Rx : Double;
var UR2 : Double;
procedure TForm1.FormCreate(Sender: TObject);
begin
Ux := U1 / (R1+R2) * R2;
Rx := R1 * R2 / (R1+R2);
UR2 := U2 + (Ux - U2) * R3 / (R3 + Rx);
caption:=FloatToStr(UR2);
end;
Lesezeichen