58问答库 > Error: Syntax error, found END-OF-STATEMENT when expecting one of: , )

Error: Syntax error, found END-OF-STATEMENT when expecting one of: , )

2025-05-18 04:55:32

推荐回答（3个）

回答（1）：

似乎你并没有给全程序所有的语句，单就你给的部分，的确是在a(i,j),
b(i,j)处少了两个右括号；应该是：
a(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*s(j)/((i*pi*(l+d(32)))
$ *(1-(j*thita(1)*l/(i*pi*v(1))))**2)
b(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*u(j)/((i*pi*(l+d(32)))
$ *(1-(j*thita(1)*l/(i*pi*v(1))))**2)
而且问题并不仅仅如此，你的多个数组缺少声明和初始化语句；似乎有些数组需要你自己输入或给出的。进行修改之后我给出的补充部分（仅是建议：）
Program main4
real *8 wsin(7,32),fcos(7,32),a(7,32),b(7,32),s(1:7),u(1:7)
c***初始化数组****
wsin=0.d0
fcos=0.d0
a=0.d0
b=0.d0
s=0.d0
total=0.0
tot=0.0
c****你的程序主体****
do j=1,7
do i=1,32
wsin(j,i)=p*cos(j*thita(1)*(t(1,i)+l/(2*v(1))))
fcos(j,i)=p*sin(j*thita(1)*(t(1,i)+l/(2*v(1))))
total=total+wsin(j,i)
tot=tot+fcos(j,i)
end do
s(j)=total
u(j)=tot
end do

do i=1,7,2
do j=1,7
a(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*s(j)/((i*pi*(l+d(32)))
$ *(1-(j*thita(1)*l/(i*pi*v(1))))**2) !加个右括号
b(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*u(j)/((i*pi*(l+d(32)))
$ *(1-(j*thita(1)*l/(i*pi*v(1))))**2) !加个右括号
end do
end do
end

回答（2）：

在程序开头有PROGRAM　****　，程序结尾处应有 End PROGRAM ****

回答（3）：

那两行少右括号了。。。