Programa Desviacion Estandar
Enviado por Programa Chuletas y clasificado en Informática y Telecomunicaciones
Escrito el en español con un tamaño de 764 bytes
Desviacion Estandar a Vector de 5 componentes:
Program DesEst;
Uses wincrt;
Type vector:array[1..5] of real;
Var i: integer;
SX,SX2,DS:real;
X:vector;
Const n:=5;
Begin
clrscr;
SX:=0;
SX2:=0;
DS:=0;
For i:=1 to 5 do
Begin
Writeln('X[i]= ');
Readln(X[i]);
End;
For i:=1 to 5 do
Begin
SX:=SX + X[i];
SX2:=SX2 + SQR(X[i]);
End;
DS:= SQRT((SX2/n) - SQR(SX/n));
Writeln('La Desviacion Estandar es = ',DS);
readkey;
End.
Program DesEst;
Uses wincrt;
Type vector:array[1..5] of real;
Var i: integer;
SX,SX2,DS:real;
X:vector;
Const n:=5;
Begin
clrscr;
SX:=0;
SX2:=0;
DS:=0;
For i:=1 to 5 do
Begin
Writeln('X[i]= ');
Readln(X[i]);
End;
For i:=1 to 5 do
Begin
SX:=SX + X[i];
SX2:=SX2 + SQR(X[i]);
End;
DS:= SQRT((SX2/n) - SQR(SX/n));
Writeln('La Desviacion Estandar es = ',DS);
readkey;
End.