15
y9=a+b*x(l)
ep=0.2*y9
if abs (y9-y(l))> ep then 88
next 1
a1=a
b1=b
n31=n3
if n3>1 then 118
‘построить угол
goto 1189
118 n3=n3-1
goto 99
88 a=a1
b=b1
n3=n31
y8=0
y7=y(1)
for l=1 to n3+1
y8=y8+y(l)
if y7<y(l) then
y7=y(l)
x7=x(l)
end if
next l
print y7, x7
555 a$=inkey$: if a=" " then 555
y9=y8/n3
ep=0.2*y9
for i=l to n3
if abs(y9-y(l))>ep then 186
next l
‘построение
1189 screen 0
x9=(y9-a)/b
n1=n3
n2=n4
goto 3333
186 y9=y7
x9=x7
goto 1189
‘***расчет ур и d***
3333 syу=0
for i =n1 to n2
yp=a+b*x(i)
syy=syy+(y(i)-ур)^2/ур^2
next
d=sqr(syy/(n2-n1))
sl=0
for i=n2+l to m
sl=sl+y(i)
next
f1=s1/(m-n2)