Понятно, что проблемы с делением. Как исправить?В 6.5 версии такой проблемы не возникает.
Посмотрите, скажите, может синтаксис изменился и поэтому не правильно. А то я не вижу совсем ошибки
Операторы подпрограммы итерации 2007
(определение длин рёбер №№ 2,3,...,ir)
2007:
dim b1[5000],h[5000],d[5000],al[300],al1[300],rad[300],x[5000],y[5000],z[5000]
a1=sur
a2=cur
a3=dx
a4=dy
a5=dz
a6=u
a6=0
ro=sqr((sqr(a2**2-a6**2)-a5)**2+(a6-a4)**2+a3**2)
a6=-a2
rm05=sqr((sqr(a2**2-a6**2)-a5)**2+(a6-a4)**2+a3**2)
c=a4**2*a2**2
c1=a5**2+a4**2
armin=sqr(c/c1)// строка ошибки
if a4<0 goto 55
goto 6
55:
armin=-armin