hallo,
also wie atreju2000 schon gesagt hat, warum bildest du das produkt der elemente von wsk wenn du die summe haben willst, versuchs mal damit....
deinen algorithmus solltest du schon erklären...
Delphi-Quellcode:
zaehler := 0;
nenner := 0;
for i := 0 to High(wsk) do begin
zaehler := zaehler + wsk[i];
nenner := nenner + (1 - wsk[i]);
// ^
end;
rWSK := 100 * zaehler / (zaehler + nenner);
//... wenn das ^^^^ so sein soll, kannst du die zeile auch weglassen, da
// zaehler + nenner = 100, wenn nenner = 1- zaehler mit zaehler=wsk[i]
// somit berechnest du rwsk:=100*zaehler/100 !!! :wall:
rWSK := RoundTo(rWSK, -2);
gruß rene