更多"阅读以下FORTRAN程序: READ(*,*)X IF(X,LE,0"的相关试题:
[单项选择]阅读以下FORTRAN程序:
READ(*,*)X
IF(X,LE,0)RHEN
Y=0.0
ELSEIF(X,LT,5,0),AND,(X,NE,2,0)THEN
Y=1/X
ELSEIF(X,LE,10,0)THEN
Y=1/(X+2)
ELSE
Y=10.0
ENDIF
WRITE
WRITE(*,*)Y
END
运行上述程序时,若由键盘输入:2,则程序输出结果为()。
A. 0.0
B. 0.5
C. 0.25
D. 10.0
[单项选择]
阅读以下FORTRAN程序
READ(*,*)M,N
K=MOD(M,N)
10 IF(K.GT.0)THEN
M=N
N=K
K=MOD(M,N)
GOTO 10
END IF
WRITE(*,*)N
END
若运行以上程序时,由键盘输入25,11,则程序输出为()。
A. 3
B. 2
C. 1
D. 0
[单项选择]
阅读以下FORTRAN程序:
READ(*,*)M,N
K=MOD(M,N)
10 IF(K.GT.0)THEN
M=N
N=K
K=MOD(M,N)
COTO 10
END IF
WRITE(*,*)N
END
若运行以上程序时,由键盘输入:25,11则程序输出为()。
A. 3
B. 2
C. 1
D. 0
[单项选择]阅读以下FORTRAN程序:
READ(“,”)M
IF(M.LT.100.ND.M.GT.999)STOP
K=M/100
L=(M-K*100)/10
N=M-K*1001-L*10
MM=K+N
WRITE(*,’(2X,13)’)MM
END
键盘输入600,则程序的输出结果是()。
A. 8
B. 3
C. 7
D. 6
[单项选择]阅读以下FORTRAN程序READ(*,*)M,N.K=MOD(M,N)10IF(K.GT.0)THENM=NN=KK=MOD(M,N)GOT010ENDIFWRITE(*,*)NEND若运行以上程序时,由键盘输入25,11,则程序输出为()。
A. 3
B. 2
C. 1
D. 0
[单项选择]阅读下列FORTRAN程序:
DIMENSION A(6)
READ(*,*)(A(I),I=1,6)
DO 10 K=1,3
S=A(K)
A(K)=A(7-K)
A(7-K)=S
10 CONTINUE
WRITE(*,20)(A(I),I=1,6)
20 FORMAT(1X,2I)
END
上述程序运行时,若由键盘输入1,2,3,4,5,6,则输出的结果为( )。
A. 1 2 3 4 5 6
B. 1 4 2 5 3 6
C. 6 5 4 3 2 1
D. 6 3 5 2 4 1
[单项选择]阅读FORTRAN程序:READ(*,*)I,J,KD010N=1,2I=I+J+KJ=I+K+JK=I+J+K10CONTINUEWRITE(*,20)I,J,K20FORMAT(2X,315)END键盘输入1,0,0,则程序运行后的输出结果是()。
A. 4713
B. 234
C. 112
D. 6915
[单项选择]阅读FORTRAN77程序:
READ(*,100)A,B,C,D
WRITE(*,*)D
100FORMAT(F2.1,3(1X,F3.1))
END
运行上述程序时,如果从键盘输入
1234567890123456<回车>
则最后输出的X值为()。
A. 1.2
B. 12.3
C. 2.3
D. 23.4
[单项选择]阅读下列FORTRAN程序:DIMENSIONA(6)READ(*,*)(A(I),I=1,6)D010K-1,3S=A(K)A(K)=A(7-K)A(7-K)=S10CONTINUEWRITE(*,20)(A(I),I=1,6)20FORMAT(1X,21)END上述程序运行时,若由键盘输入1,2,3,4,5,6,则输出的结果为()。
A. 123456
B. 142536
C. 654321
D. 635241
[单项选择]以下是计算N!(N的阶乘)的FORTRAN程序:
READ(*,*)N
______
DO 10 K=1,N
10 S=S*K
END
为使程序完整,应在横线处放入( )。
A. S=1
B. S=N
C. S=0
D. 什么都不放
[简答题]阅读以下程序,请写出该程序的输出结果。
class CurrentThreadDemo
public static void main(String args[])
Thread t=new Thread( );System. out. println("Current thread");
t.setName("My Thread");System. out. println("After name change");
try for(int n=3;n>0;n--)
System. out. println(n);Thread. sleep(1000);
catch(InterruptedException e)
System.out.prindn("Main thread interrupted");
[填空题]阅读以下程序,此程序的功能是 [8] 。
#include<iostream.h>
void main( )
int n, i, j;
for(i=100;i<999; i+100)
for(j=i/100:j<=99;j=j+10)
n=i+j;
cout<<" "<<n;
cout<<"/n";
[填空题]阅读以下程序,此程序的功能是 [8] 。
#include<iostream.h>
void main( )
{
int n, i, j;
for(i=100;i<999; i+100)
for(j=i/100:j<=99;j=j+10)
{
n=i+j;
cout<<" "<<n;
}
cout<<"/n";
}
[填空题]阅读以下程序:
Private Sub Form click( )
Dim k,n, m As integer
n=10
m=1
k=1
Do While k<=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【10】 。
[填空题]阅读以下程序:
Private Sub Form_click( )
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k <= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。
[填空题]阅读以下程序:
#include<iostream.h>
void main( )
{
static int a[][3]={9,7,5,3,1,2,4,6,8};
int i,j,s1=0,s2=0;
for(i=0;i<3;i++)
for(j=0;j<3;j++)
{
if(i==j)s1=sl+a[i][j];
if(i+j==2)s2=s2+a[i][j];
}
cout<<s1<<","<<s2<<endl;
}
则该程序的输出结果为 【15】 。
[单项选择]阅读以下程序
#include<fstream.h>
void main( )
ifstream infile;
ofstream outfile;
fstream iofile;
iofile.open("a.txt",ios::in);
iofile.close( );
iofile.open("b.txt",ios::out);
下列描述错误的是
A. 对象infile只能用于文件输入操作
B. 对象outfile只能用于文件输出操作
C. 对象iofile在文件关闭后,不能再打开另一个文件
D. 对象iofile可以打开一个文件同时进行输入和输出