Şifremi/Kullanıcı Adımı Unuttum
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Şimdi Ara

fortran yardim pls

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir Kullanıcı, 1 Masaüstü Kullanıcı
4
Cevap
0
Favori
239
Tıklama
Cevapla
Sayfaya Git:
Sayfa:
1
Giriş
Mesaj
  • Çavuş
    58 Mesaj
    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



    |
    |




  • Süresiz olarak uzaklaştırıldı.
    a ben fortran ı öldü sanıyordum 77 ve 90
    |
    |
    _____________________________
  • Süresiz olarak uzaklaştırıldı.
    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
    |
    |
    _____________________________
  • Süresiz olarak uzaklaştırıldı.
    bak www.sourceforge.com burda tonla kod var
    burda da omg.org uml ler
    |
    |
    _____________________________
  • Çavuş
    58 Mesaj
    eyw
    |
    |
HızlıCevap
Sayfaya Git:
Sayfa:
1
Reklamlar
Masal
SEO
haberler
son dakika
Kurumsal Web Tasarım Şirketi
Bu sayfanın
Mobil sürümü
Mini Sürümü

DHBR1
0,201
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.