用vf编写程序,计算一元二次方程的两个根(考虑判别式)

CLEARSETTALKOFFINPUT"请输入半径:"TORL=2*PI()*RS=PI()*R*R"半径为R的圆的周长为:",L"半径为R的圆的面积为:",SSETTALKON

clearsettalkoninput"请输入一个数:"tonifn%2=0?"这是一个偶数!"else?"这是一个奇数!"endifsettalkon

double x1 = 0;//解1double x2 = 0;//解2Console.WriteLine("求 ax^

s=0k=1whilei

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

clearinput"请输入x的值："toxdocasecasex=2andx10y=-3*xendcase"y的值是：",y

//Equation.h#ifndef_Equation_h#define_Equation_hclassEquation{private:doublea;doubleb;doublec;voidSh

s=0fori=1to100ifmod(i,5)=0s=s+iendif再问：能把源程序写出来吗？我是帮别人做的，我不会vf的语法，谢谢了……

简单,程序如下:cleam=0n=0sm=1sn=1s=0@4,4say'inputm'getmread@5,4say'inputn'getnreadfori=1tomsm=sm*iendforfor

clears=0fori=1to200step2s=s+iendfor"200以内所有奇数的和:",s

n=""@2,10say"计算n个数的平均值,先输入数值个数n"getnpicture"999999"readn=val(n)DIMENSIONx(n)store0toxs=0fori=1ton@4,

clears=0input"请输入N的值："tonfori=1tonk=2*i-1r=1forj=1tokr=r*jendforp=1/rs=s+pendfor?"1/1!+1/3!+1/5!+.+1

*1）有一个数列.前两个数是1,1,第三个数是前两个数之和,以后的每个数都是其前两个数之和.请编写程序,要求输出次数列的前30个数.CLEARDIMENSIONa(30)a[1]=1?"1",a[1]

我刚刚编的,可以.不知道是不是你所要的.#includevoidmain(){intn;printf("欢迎来到计算整数的三次方的程序!\n");printf("请输入您要计算的数:");scanf(

迭加,把前一次算得的和作为后一次运算的一个加数,如S=0+1算得S=1,下一步S=S+2=1+2=3再问：FORi=100TO1step-2麻烦解释一下嘛再答：S初值应该是0吧，(1)S=100+0=

clearinput"请输入三角形的底："toainput"请输入三角形的高："tohs=a*h/2"三角形的面积是：",s

;MOVAX,AANDAX,B;AX=aANDbMOVBX,AXORBX,B;BX=aXORbADDAX,BXADDAX,BX;AX=2*(aXORb)+aANDbADDAX,A;AX=a+2*(aX

clears=1fori=1to100s=s*iendfor"1x2x3x4x.x100=",s

#includevoidmain(){intn=1,N,i;scanf("%d",&N);if(N20)printf("shuruwuxiao!\n");else{for(i=1;i

clearinput"请输入圆的半径："torl=2*pi()*rs=pi()*r*r?"周长是：",l?"面积是：",s