Курсовая работа: Метод Стрілянини

end;

for i:=0 to n-1 do

y[i]:=1/(beta1-beta2)*((1-beta2)*y1[i]+(beta1-1)*y2[i]);

with Memo1.Lines do begin

clear;

Add('Результатиобчислень: ');

Add(' Крок: '+FloatToStrF(h,ffFixed,8,10));

Add(' X | Y ');

Add(' ----------- ');

for i:=0 to n-1 do

Add(' '+FloatToStrF(h*i,ffFixed,3,3)+'|'+FloatToStrF(abs(y[i]),ffFixed,8,10));

Add(' Похибка не б_льше: '+FloatToStrF(h*h/2,ffFixed,8,10));

end;

except

on EConvertError do

Application.MessageBox('Неправильно введен_ дан_', 'Увага');

end;

end;

end.