widerstandsschaltung

[ibp]

...
- was steht in R und wo schreibst du das rein?
- nimmst du nun ein array oder die listbox?
- wo steht die entgültige auswahl der widerstände?

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,anz : integer;

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

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

        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; // for
    end; // for
  end; // if
end;