Код: Выделить всё
REM ***** BASIC *****
Option Explicit
Sub Main
const u1="Ввод исходных данных"
const u2="Количество клетей"
const u3="Толщина полосы на входе в 1 клеть "
const u4="Радиус валка "
const u5="Толщина полосы на выходе из "
const u6="Ширина полосы "
const u7="Коэффициент "
const u8="Температура полосы перед "
const u9="Скорость валков в "
Dim n,i as integer
Dim r,b,k,q,s,w,a,c,dq,ds,dw,m as string
n=Val(inputbox(u2,u1,"1")
r=Val(inputbox(u4,u1,"600")
b=Val(inputbox(u6,u1,"1850")
k=Val(inputbox(u7+"k",u1,"6.94")
q=Val(inputbox(u7+"q",u1,"0.731")
S=Val(inputbox(u7+"S",u1,"-0.299")
w=Val(inputbox(u7+"w",u1,"0.567")
a=Val(inputbox(u7+"a",u1,"0.135")
c=Val(inputbox(u7+"c",u1,"-2.80")
dim h(n),t(n),v(n),dh(n),x(n),hsr(n),l(n),j(n),p(n) as string
h(0)=Val(Inputbox(u3,u1,"250")
For i=1 to n
h(i)=Val(Inputbox(u5+i+" клети",u1,"185")
t(i)=Val(Inputbox(u8+i+" клетью",u1,"1200")
v(i)=Val(Inputbox(u9+i+" клети",u1,"1.2")
Next i
For i=1 to n
l(i)=sqr(r*h(i))
dh(i)=h(i-1)-h(i)
hsr(i)=((h(i-1)+h(i))/2)
j(i)=(v(i)*30)/(3.14*r)
x(i)=l(i)/hsr(i)
IF 1.3<x(i)<5 then
dq=0.28
ds=-0.56
dw=0.28
m=1
p(n)=m*k*(dh(n)^(q+dq))*(h(0)^(s+ds))*(r^(w+dw))*(n^a)*b*((t(n)/1000)^c)
print p(n)
end if
next i
End Sub
