Forum: Sonstige Fragen zu Delphi
Delphi
by Go2EITS,
1. Nov 2006
So, ich habe ein wenig experimentiert, um Zahlen zu bekommen, die den "Zahlen" näher kommen:
//Gewichteter Mittelwert:
n:=1;
for i:=5 to 20 do
begin
n:=1-(20/100);
n:=n+(i/100);
Writeln('Durchlauf i: ',i,' n: ',n:0:2);
Forum: Sonstige Fragen zu Delphi
Delphi
by Go2EITS,
1. Nov 2006
Hallo ipb:
Ich habe mir Deine Antwort genau angesehen und versucht umzusetzen. Ich glaube, es müsste die Lösung sein:
//Gewichteter Mittelwert:
for i:=5 to 20 do
begin
for x:=i-4 to i do
begin
n:=1; //Darauf muss man erst mal kommen
n:=n*i; // nenner:=nenner+GEW
GMW:=GMW+(Zahlen/5)*n;//zaehler:=zaehler+Zahlen*GEW