level 1
小熊B天下
楼主
1.给出程序运行的结果
NOTE程序名为PPP.PRG
SET TALK OFF
SET PROC TO PPP
PUL1CI,J
I=1
DO PP1
?'I='+STR(1,2)
J=1
K=1
DO PP2
?'J='+STR(J,2)
?'K='+STR(K,2)
STE TALK ON
程序运行结果是?
2.给出程序运行的结果
var="1234567890"
do while.t
? right(var,1)+var
exit
?var
Enddo
3.给出程序运行的结果
SET TALK OFF
CLEAR
N=0
J=1
DO WHILE N<=4
J=J+N*(N+1)
N=N+1
ENDDO
??N,J
RETURN
4.给出程序运行的结果
set talk off
x=15
y=7
do sub with x,(y)
?x,y
return
procedure sub
paramenter a,b
a=a+b
b=a-b
return
2019年06月09日 02点06分
1
NOTE程序名为PPP.PRG
SET TALK OFF
SET PROC TO PPP
PUL1CI,J
I=1
DO PP1
?'I='+STR(1,2)
J=1
K=1
DO PP2
?'J='+STR(J,2)
?'K='+STR(K,2)
STE TALK ON
程序运行结果是?
2.给出程序运行的结果
var="1234567890"
do while.t
? right(var,1)+var
exit
?var
Enddo
3.给出程序运行的结果
SET TALK OFF
CLEAR
N=0
J=1
DO WHILE N<=4
J=J+N*(N+1)
N=N+1
ENDDO
??N,J
RETURN
4.给出程序运行的结果
set talk off
x=15
y=7
do sub with x,(y)
?x,y
return
procedure sub
paramenter a,b
a=a+b
b=a-b
return