Usar array y funcion mean?
Hola
Tengo este programita que muy gentilmente el señor Federico (delphi.com.ar) me ayudo programar:
procedure TForm1.BotSumarClick(Sender: TObject);
var
R: integer;
D, L: extended;
begin
L:= StrToFloat (Edit1.Text);
D:= StrToFloat (Edit2.Text) ;
Randomize;
R:= 0;
repeat
inc(R);
until randg(D,1)>L;
Beta.Text := FloatToStr (R);
end;
El problema es que soy nuevo programando y no se como obtener cierta cantidad de esas variables R (un array?) para calcular el promedio de R (con la función mean?) ,
Lo quiero hacer generando una nueva variable N que será la cantidad de R´s para calcular la media:
Es decir
MEDIA= (R1+R2+ … +RN)/N
Donde N será en el programa:
N:= StrToInt(Edit3.Text) ;
De antemano muchas gracias.
|