widerstandsschaltung

[mic]

hab das jetzt mal so gelöst, nur stimmt die rechnung bei mir nicht, die fehler(in %) sind zu groß.. weiß wer wo der fehler liegt?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
   var R : array[1..6] of integer;
    Rp : double;
    Rs : double;
    Rx : double;
    E  : double;
    Ep : double;
    Es : double;
    m,n,i : integer;

begin
  Rx := StrToInt(Edit2.text);
  E  := 10000000.0;

   if pos(floattostr(Rx),ListBox1.Items.text)<> 0 then
      begin
        ShowMessage('Widerstand vorhanden!');
         Edit3.text := '0';
         Edit4.text := 'Vorhanden';
      end
  else begin
      for n:=0 to ListBox1.items.count-1 do
       begin
         for m := 0 to ListBox1.items.count-1 do
           begin
             Rp := (R[n] * R[m]) / (R[n] + R[m]);
             Rs :=  R[n] + R[m];
             Ep := (Rx - Rp) / Rx;
             Es := (Rx - Rs) / Rx;

             if Ep < E then
               begin
                 E := Ep;

                 Edit3.text := FloatToStr(100*(abs(Ep)));
                 Edit4.text := 'P';
               end;
             if Es > E then
               begin
                 E := Es;
                 Edit3.text := FloatToStr(100*(abs(Es)));
                 Edit4.text := 'S';
               end;
            end;
       end;
   end;

 end;

end.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]