程序
character*(*)name
name=’apple’
L=len(name)
Do10I=1,L
10name(I:I)=char(Ichar(name(I:I))+I
print*,name
end
程序运行后输出结果为()

程序gramtraparea
dataa,b/10,5/
y(x)=1*x+1
S=(y
B．+yA．)*abc(b-a)/2
write(*,*)’S=’,S
end
执行程序后,最接近S的值为()

当输入10，20时，下列程序执行后的输出结果为()。
READ(*，*)IX，IY
A=100.0
IF(IX／IY.GT.0)THEN
A=1.0
ELSEIF(IX／IY.LT.0)THEN
A=-1.0
ELSE
A=0.0
ENDIF
WRITE(*，*)A
END

下列程序执行后的输出结果为()。
CHARACTER9*C
C=’1234567890’
CALLSS(C)
END
SUBROUTINESS(X)
CHARACTERX*2
WRITE(*，*)X
END

当输入1.5，2.5，3.5，4.0下列程序执行后的输出结果为()。
DIMENSIONA(2，2)
READ(*，*)A
SUM=0
DO10I=1，2
DO20J=I，2
K=A(I，J)*I*J
10A(1，2)=K
WRITE(*，*)A(2，1)
END