y = √(∑x²-(∑x²)/n)/(n-1) en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Un grupo de datos tiene N valores para x, lea estos valores y calcule, donde:
∑x = suma de los valores de x
∑x² = suma de los cuadrados de lo valores de x

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Proceso YSx2Sx2NN1

    sumatoria_2 <- 0;

    sumatoria_x <- 0;

    _y <- 0;

    Escribir Sin Saltar "Ingresa el valor de n:";

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de x:";

        Leer x;

        sumatoria_x <- sumatoria_x+x;

        sumatoria_2 <- sumatoria_2+x*x;

        Escribir "";

    FinPara

    y <- RC((sumatoria_2-sumatoria_x*sumatoria_x/n)/(n-1));

    Escribir "Valor de sumatoria 2: ", sumatoria_2;

    Escribir "Valor de sumatoria x: ", sumatoria_x;

    Escribir "Valor de  y: ", _y;

FinProceso