progam regresi sederhana

progam regresi sederhana

uses wincrt;
type
data=array[1..50] of integer;
var
i, c, totx,toty,totxy,totx2,n: integer;
x,y,z,x2:data;
ratax,ratay,b,a: real;
begin
clrscr;

writeln('program persamaan regresi linear sederhana');
writeln('untuk maksimal 50 sampel');
writeln ('masukkan jumlah sampel (n) : ');
readln (n);
writeln ( 'masukkan data x : ');
for i:=1 to n do
begin
readln(x[i]);
totx:=totx+x[i];
end;
ratax:=totx/n;
writeln('ratarata X : ',ratax :3:2);
writeln('total x: ',totx);
readln;
writeln ( 'masukkan data y : ');
for c:=1 to n do
begin
readln (y[c]);
toty:=toty+y[c];
end;
ratay:=toty/n;
writeln('ratarata Y :',ratay :3:2);
writeln('total y: ',toty);
for i:=1 to n do
begin
z[i]:=x[i]*y[i];
writeln(z[i]);
totxy:=totxy+z[i];
end;
writeln('total xy : ',totxy);
for i:=1 to n do
begin
x2[i]:=sqr(x[i]);
writeln(x2[i]);
totx2:=totx2+x2[i];
end;
writeln('total X^2 :',totx2);
b:=((n*totxy)-(totx*toty))/((n*totx2)-(sqr(totx)));
writeln('b: ',b:3:2);
a:=ratay-(b*ratax);
writeln('a: ',a:3:2);
writeln('persamaan regresi : ',a:3:2,'+',b:3:2,'x');

readln;
end.