用fortran程序统计1-1000能被15整除的数

如果EA是数组,则表示：令CA等于EA数组,第N+1列,第2行的数值.如果EA是函数,则表示：调用EA函数,第一个参数是N+1,第二个参数是2,返回值赋值给CA这些基本的语句,请自己多翻书,系统的学习

请参考http://fcode.cn/code_gen-71-1.html

我想本题的关键在于理论的分析.由于炮弹的轨迹为二次曲线方程,因次炮弹在二次曲线对称轴x=0.07/(2*0.0000125)处上升最大高度.另外炮弹发射时和落地时距地面的高度均为0.因此令f(x)=0

我知道这个很简单

这是求素数的一个程序,k是为了减少循环次数,因为只要能被开方以前的整除,就能被后面的所有数整除.如果j>k,说明上面的do循环全部执行完了,也就说明没被任何数整除,即该数未素数.j=2,k,如果全部循

if(f

inta,sum,count;doubleavg;sum=0;count=0;while(1){printf("请输入正整数（输入0结束输入）:");scanf("%d",&a);if(a==0){b

用一个变量就可以了.输出6个文件还是一个文件?这个数据按一行10个数输出不方便,可以一行输出22个数或者11个数.再问：在一个文件里输出，分成6小组数据，每组都是924个，再将每组924个按一行10个

代码如下,供参考：      program test      im

functionrelation(a,b,n)!本程序计算两列向量的相关系数!a,b分别是待计算的向量!n是向量的长度,要求两列向量等长implicitnoneinteger,intent(in)::

ealh,cc=0open(unit=10,file='C:\soft\Drag\Drag.dat')read(10,*)hif(h

length(find(isprime(1:32765)))再问：还有，isprime的源程序是什么啊，感觉一句话就解决了有点简单，呵呵，有源程序就更好了。第二个绘图的大侠做出来了没啊，第一个按照你的

不知道你的三维网格需要建成什么形状?如果告诉tecplot需要读的文件的具体格式的话是挺好编写的.再问：三维网格形状是六面体，tecplot读取文件格式貌似是.F90谢谢再答：tecplot可以调用f

现在计算机产生的随机数都是伪随机数.random_number(x)产生一个0到1之间的随机数（x可以是向量）,但是每次总是那几个数.用了random_seed()后,系统根据日期和时间随机地提供种子

请告知,你的I,J在什么情况下,出现什么错误?你预期的结果是什么?在什么情况下,是符合你预期的计算的?发散,这个词一般用于迭代过程.你这样简单的计算结果,要么是正确的,要么是不符合你的预期的,要么是N

35.d0表示35.0的双精度版本.75.d4表示75.0E4的双精度版本,即750000.0

执行a(i,j)=1这一句的时候,刚跳出j的循环,j应该等于6的,给a(i,j)赋值应该会有问题另外输出的时候((a(i,j),i=1,5),i=1,5),两个都是i,没问题么?

programex1implicitnonereal::a,b,abwrite(*,*)'请分别输入a、b的值'read(*,*)a,bab=a+bwrite(*,*)abpausestopend这仅

代码：program data_sum    implicit none    integer&nb

函数是由用户自行书写的,其参数的含义也是用户自行定义的.就好像,你拿着几个文件名,去问这些文件的含义一样.这些文件如果不是操作系统自带的文件,则没人能帮助你.如果该函数是某个函数库内的,那么查阅该函数