Курсовая работа: Разработка приложений на С Pascal Delphi

x[i]:=strtofloat(t1.cells[0,i]);

y[i]:=strtofloat(t1.cells[1,i]);

k:=k+ln(x[i]);

l:=l+ln(y[i]);

m:=m+ln(x[i])*ln(y[i]);

v:=v+sqr(ln(x[i]));

w:=w+ln(sqr(x[i]));

a:=fa0(i,k,l,m,v,w);

b:=fb(i,k,l);

yp[i]:=b*exp(ln(x[i])*a);

r:=r+yp[i];

t1.cells[2,i]:=floattostr(a);

t1.cells[3,i]:=floattostr(b);

t1.cells[4,i]:=floattostr(yp[i]);

end;

min:=yp[1];

max:=yp[1];

for i:=1 to n do begin

d:=abs((r/n-yp[i])/yp[i]);

t1.cells[5,i]:=floattostr(d);

if d<min then min:=d;

if d>max then max:=d;

end;

label1.Caption:= label1.Caption+' '+floattostr(min);

label4.Caption:= label4.Caption+' '+floattostr(max);

button3.enabled:=true;

button4.enabled:=true;

end;

Выводы

Компьютеры стали неотъемлемой частью нашей жизни. Но без хороших программ компьютер – это просто груда железа. Поэтому так важно осваивать языки программирования, чтобы не оказаться за бортом жизни и цивилизации.