Lista de Exercicios

4. Faça um programa que calcule o Coeficiente de Correlação de Pearson entre duas amostras de tamanho N.

program P4;
uses crt;
var
n : integer;
Ex, Ey, Exy : real;
Ex2, Ey2 : real;
procedure tela;
begin
repeat
clrscr;
highvideo;
gotoxy(20,1);
write('PROGRAMA FEITO POR KARINE E MARIA DA GLORIA');
highvideo;
gotoxy(23,3);
write(' CÁLCULO DO COEFICIENTE DE CORRELAÇÃO');
lowvideo;
gotoxy(10,5);
write('Entre com o número amostras => ');
readln(n);
until n in [1..20];
end;
procedure entrada;
var
i : byte;
x, y : real;
begin
clrscr;
gotoxy(20,1);
writeln('Entre com as amostras...');
gotoxy(10,2);
write('X Y');
Ex:=0; Ey:=0; Exy:=0; Ex2:=0; Ey2:=0;
for i:=1 to n do
begin
gotoxy(10,i+2); read(x);
gotoxy(18,i+2); read(y);
Ex := Ex + x;
Ey := Ey + y;
Exy := Exy + (x * y);
Ex2 := Ex2 + sqr(x);
Ey2 := Ey2 + sqr(y);
end;
end;
procedure calcula_e_mostra;
var
cc : real;
begin
cc := ( Exy - (Ex*Ey/n) ) / sqrt( (Ex2-(sqr(Ex)/n)) * (Ey2-(sqr(Ey)/n)) );
clrscr;
gotoxy(10,2);
write('O coeficiente de correlação entre as ',n,' amostras ‚ =>',cc:4:8);
end;
{Programa Principal}
begin
tela;
entrada;
calcula_e_mostra;
repeat until keypressed;
end.

Para retornar a tela principal clique aqui.