一个fortran程序无法成功运行subroutine start1(j0,j1,x)implicit nonereal*16 j0,j1,xreal*16 b,c,d,e,f,gg=3/xb=x/3if(x=3)thenc=0.79788456-0.00000077*g-0.00552740*g**2-0.00009512*g**3+0.00137237*g**4-0.00072805*g**5+0.00014476*g**6d=x-0.78539816

一个fortran程序无法成功运行subroutine start1(j0,j1,x)implicit nonereal*16 j0,j1,xreal*16 b,c,d,e,f,gg=3/xb=x/3if(x=3)thenc=0.79788456-0.00000077*g-0.00552740*g**2-0.00009512*g**3+0.00137237*g**4-0.00072805*g**5+0.00014476*g**6d=x-0.78539816 我运行一个程序无法启动显示了这个failed creating the direct3D device请问这是什么意思 简单的一个fortran程序为什么运行不出正确答案啊.program pra0201implicit noneinteger salary,taxwrite(*,*) salary:read(*,*) salaryif(salary1000 .and.salary=5000) thentax=salary*0.15else salary 求fortran大神帮我编一个Fortran程序计算无理数π的1-100的小数位, 求相关系数fortran程序~求相关系数的fortran程序~. fortran程序求矩阵特征值, xiexie在窗体上画两个文本框和一个命令按扭,然后程序如下:Private Sub Command1_Click()Dim x As Integer,n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str(x)Text2.Text = Str(n)End Sub程序运行后,单击 用fortran语言编一个矩阵相乘的通用程序 急用 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程：Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) End If Print y End Sub 程序运行后,单击命令按钮,窗体上显示的是 A 我用vb6编写一个计算物理中加速度的程序,可是在运行阶段说：实时错误：6溢出.Dim a,b,c,x As IntegerPrivate Sub Command1_Click()Text1.Text = aText2.Text = bText3.Text = cx = (a - b) / cText4.Text = xEnd Sub 怎样添加curl/curl.hvs2013运行一个程序的时候提示无法打开 源 文件 curl/curl.h该怎么添加这个源文件 用Delphi设计一个程序,从键盘输入a,b,c3个整数,将它们按照从大到小的次序输出请用Delphi编写,运行成功后请截下图. 怎么编写如下程序作业题private SUB Conmmd1_CLICK()___________A=_________FOR I =1TO5PRINT SPACE(6-I): ______________NEXTIEND SUB程序运行后,单击命令按钮 输出结果为 5 456 34567 2345678123456789 6.分析下列程序,单击窗口时,程序运行结果.Private Function Fac() As StringFac = “,”End FunctionPrivate Sub Form_Click()Dim I as IntegerFor I=1 to 5Command1_ClickPrint Fac();Command2_ClickNext IEnd SubPrivate Sub Command1_Click()Prin fortran会的进,fortran计算器程序怎么写?我想做一个fortran计算器,就是键盘输入a和b两个数,然后回车,就输出a+b 的结果, 求fortran编程从来没学过 现在时间紧迫 需要编一个能自动运行 显示原始数据x,y轴坐标 同时转换坐标,并总结原始数据的一些基本信息如编号,物质成分,成分比例等的一个程序 该怎么写啊 !谢 求大神讲解下C语言基础题【题5】下面程序的运行结果是 15 main(){int i=5;printf(“%d ”,sub(i));}int sub(int n){ int a; if(n==1) return 1;a=n+sub(n-1);return(a);}请问下a=6+sub(5)a=2+sub(1) 联立不是解得sub(5)=-3么?【 一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF