对如下程序x=y=0 while True: x+=1 if not(x%2):continue elif x>100:break else:y+=x print("y=",y)描述正确的是()。
A.该程序是死循环
B.该程序用于求1到100之间整数的和
C.该程序用于求1到100之间奇数的和
D.该程序用于求1到100之间偶数的和
A.该程序是死循环
B.该程序用于求1到100之间整数的和
C.该程序用于求1到100之间奇数的和
D.该程序用于求1到100之间偶数的和
求解隐式微分方程组
求解的Mallab程序应该如下:
的数值解,其中初值条件为x(0)=0,x(0)=1,y(0)=0。
程序代码为:
Public sub proc(a%())
Static I%
Do
A(i)=a(i)+a(I+1)
I=I+1
Loop while I<2
End sub
Private sub command1_click()
Dim m%,I%,x%(10)
For I=0 to 4 : x(i)=I+1 : next I
For I=1 to 2 : call proc(x) : next I
For I=0 to 4 : print x(i); : next I
End sub
程序运行后,单击命令按钮后,在窗体显示的结果是()。
阅读下列程序,请写出程序的运行结果。
import java.applet.*;
import java.awt.*;
public class C extends Applet implements Runnable
{
Thread redBall,blueBall;
Graphics redPen,bluePen;
int blueSeta=0,redSeta=0;
public void init()
{
setSize(250,200);
redBall=new Thread(this);
blueBall=new Thread(this);
redPen=getGraphics();
bluePen=getGraphics();
redPen.setColor(Color.red);
bluePen.setColor(Color.blue);
setBackground(Color.gray);
}
public void start()
{
redBall.start();
blueBall.start();
}
public void run()
{
intx,y;
while(true)
{
if(Thread.currentThread()==redBall)
{//以下代码为顺时针画圆
x=(int)(80.0*Math.cos(3.1415926/180.0*redSeta));
y=(int)(80.0*Math.sin(3.1415926/180.0*redSeta));
redPen.setColor(Color.gray);
redPen.fillOval(100+x,100+y,10,10);
redSeta+=3;
if(redSeta>=360)redSeta=0;
x=(int)(80.0*Math.cos(3.1415926/180.0*redSeta));
y=(int)(80.0*Math.sin(3.1415926/180.0*redSeta));
redPen.setColor(Color.red);
redPen.fillOval(100+x,100+y,10,10);
try{redBall.sleep(20);}
catch(InterruptedException e){}
}
elseif(Thread.currentThread()==blueBall)
{//以下代码为顺时针画圆
x=(int)(80.0*Math.cos(3.1415926/180.0*blueSeta));
y=(int)(80.0*Math.sin(3.1415926/180.0*blueSeta));
bluePen.setColor(Color.gray);
bluePen.fillOval(150+x,100+y,10,10);
blueSeta-=3;
if(blueSeta<=-360)blueSeta=0;
x=(int)(80.0*Math.cos(3.1415926/180.0*blueSeta));
y=(int)(80.0*Math.sin(3.1415926/180.0*blueSeta));
bluePen.setColor(Color.blue);
bluePen.fillOval(150+x,100+y,10;10);
try{blueBall.sleepp(40);}
catch(InterruptedException e){}
}
}
}
}
用二分法求函数f(x)=x^3-6x-1=0在x=2~5范围内的x=2附近的一个实根,其计算误差为|xl-x2|<10^(-6)。完善下列程序。
Private Sub Command1 _Click ()
Dim V0 As Singke, v As Single, s As String
Dim x As Single, t As Single, x1 As Single, x2 As Single
x1 =0: x2=5
Do While()
x = (x1 +x2)/2
If Sgn(f1 (x)) = 1 Then
x2 = x
Else
x1 = x
End If
Loop
Print "x = "; x
End Sub
Private Function f1 (x As Single) As Single
f1 = x * x * x -6 * x-1
End Function
Private Sub Command1 _Click()
Dim i As Integer
For i = 0 To 1 2
Print();Space(2)
Next i
End Sub
A.publicvoidA(intx1,inty1,intz1){a=x1;b=y1;c=z1;}
B.publicvoidB(intx1,inty1,intz1){a=x1;b=y1;c=z1;}
C.publicvoidB(intx,inty){a=x;b=y;c=0;}
D.publicB(intx,inty,intz){a=x;b=y;c=z;}
求函数返回值,输入x=9999;
int func (x )
{
int countx = 0;
while (x )
{
countx ++;
x = x&(x-1);
}
return countx;
}
结果呢?