Asagidaki fortran kodunu C koduna cevirebilecek vey kodda neler oldugunu alnlatabilecek varsa cok tesekkurler simdiden...
program simpson real :: top,top1,top2,top3,top4,top5,alan,h,moment,merkez real , dimension(500) :: f , ara ! ara ordinatın (0,0) konumundan uzaklığı integer::n,m,i open(unit=7,file="c:\data.txt",action="read",status="old") read(unit=7,fmt=*) h ! aralıklar arasındaki mesafe read(unit=7,fmt=*) n ! aralık sayısı m=n/2 do i=0,n read(unit=7,fmt=*) f(i),ara(i) end do top1=0.0 top2=0.0 top3=0.0 top4=0.0 do i=2,m top1=f(2*i-2)+top1 top3=ara(2*i-2)*f(2*i-2)+top3 end do do i=1,m top2=f(2*i-1)+top2 top4=ara(2*i-1)*f(2*i-1)+top4 end do top=f(0)+2.0*top1+4.0*top2+f(n) top5=f(0)*ara(0)+2.0*top3+4.0*top4+f(n)*ara(n) alan=(h/3.0)*top moment=(h/3.0)*top5 merkez=moment/alan write(unit=6,fmt="(a5,1x,f8.4)") "alan=",alan write(unit=6,fmt="(a5,1x,f8.4)") "moment=",moment write(unit=6,fmt="(a5,1x,f8.4)") "merkez=",merkez end program simpson
a ben fortran ı öldü sanıyordum 77 ve 90
bu program bu kadarsa çalışmaz bu e haliyle de bir işe yaramaz. birileri moment ten yola cıkıp agırlık merkezi bulmaya çalışmış gibi