برنامه نویسی

[fafaa]

با سلام و احترام اگر امکان دارد برنامه نویسی واریانس در ویژورال بیسیک را برای من بنویسی

[آبجی]

با سلام و احترام اگر امکان دارد برنامه نویسی واریانس در ویژورال بیسیک را برای من بنویسی

سلام اگه منظور شما واریانس ،انحراف از معیار این چیزهاست که این میتونه بهتون کمک کنه :



v=0;
for (i=0;i<n;++i)
{
v= pow(ave[i]-m,2) + v;
}
v=v/n;


این فرمول واریانس هست که اگه ازش جذر بگیری میشه انحراف از معیار .

[آبجی]

این سورس کدش هست


program f1_for;

CONST
MAXARY=10;
VAR
ARYX:ARRAY [1..MAXARY] OF INTEGER;
I,J,TEMP ,MOD1,MOD2,CountMod1,CountMod2,CountMod3:INTEGER;
SUM:LONGINT;
S,AVG:REAL;
begin
WRITELN('>> Enter ',MAXARY,' number <<');
WRITELN;
FOR I:=1 TO MAXARY DO
READLN(ARYX[I]);
(*------------- SORT -----------*)
FOR I:=1 TO MAXARY-1 DO
FOR J:=I+1 TO MAXARY DO
IF ARYX[I]>ARYX[J] THEN BEGIN
TEMP:=ARYX[I];
ARYX[I]:=ARYX[J];
ARYX[J]:=TEMP;
END;
(*------------- SHOW -----------*)
WRITELN;
WRITELN;WRITE(' The sort array is :');
FOR I:=1 TO MAXARY DO WRITE(' ' ,ARYX[I]);
(*------------- MIANGIN -----------*)
SUM:=0; WRITELN; WRITELN;
FOR I:=1 TO MAXARY DO
SUM:= SUM+ ARYX[I];
AVG:=SUM/MAXARY;
WRITELN(' The average of array is : ', AVG:0:2);
WRITELN;
(*------------- MOD -----------*)
TEMP:=ARYX[1];
FOR I:=1 TO MAXARY DO Begin
J:=0;
WHILE (ARYX[I]=TEMP) AND (I<>MAXARY) DO BEGIN
I:=I+1;
J:=J+1;
END; { WHILE }
IF J>COUNTMOD1 THEN BEGIN
COUNTMOD1:=J;
MOD1:=TEMP;
END;
TEMP:=ARYX[I];
END; { FOR }
TEMP:=ARYX[1];
FOR I:=1 TO MAXARY DO Begin
J:=0;
WHILE (ARYX[I]=TEMP) AND (I<>MAXARY) AND (ARYX[I]<>MOD1) DO BEGIN
I:=I+1;
J:=J+1;
END; { WHILE }
IF J>COUNTMOD2 THEN BEGIN
COUNTMOD2:=J;
MOD2:=TEMP;
END;
TEMP:=ARYX[I];
END; { FOR }
TEMP:=ARYX[1];
FOR I:=1 TO MAXARY DO Begin
J:=0;
WHILE (ARYX[I]=TEMP) AND (I<>MAXARY)
AND (ARYX[I]<>MOD1) AND (ARYX[I]<>MOD2)DO BEGIN
I:=I+1;
J:=J+1;
IF J>COUNTMOD3 THEN COUNTMOD3:=J;
END; { WHILE }
TEMP:=ARYX[I];
END; { FOR }
IF (COUNTMOD1<>COUNTMOD2)AND(COUNTMOD2<>COUNTMOD3)THEN
WRITELN(' MOD = ',MOD1,', The number of apear : ',COUNTMOD1+1)
ELSE IF (COUNTMOD3<>COUNTMOD2) THEN
WRITELN(' MOD = ',(MOD1+MOD2) / 2:0:4)
ELSE WRITELN(' This array haven''t any MOD');
(*------------- VARIANS -----------*)
WRITELN;
FOR I:=1 TO MAXARY DO
S:= SQR(ARYX[I]-AVG) + S;
S:=S/MAXARY;
WRITELN(' VARIANSE = ',S:0:4);
WRITELN;
WRITELN(' ENHERAFE MIARE = ',SQRT(S):0:4);
READLN;
end