Tüm Forumlar

Tüm Forumlar
İşletim Sistemleri ve Yazılımlar
Yazılım Genel
Bu Konuda

Şimdi Ara

fortran yardim pls

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Victorinox 0.7250.13 Smart Card Cüzdan, Siyah : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B092ZNM5J1 10 sa. önce paylaşıldı

45x90 Cm XXL Gaming Oyuncu Mousepad Masa Matı Laptop Altlığı Sümen Su Geçirmez Kaymaz Taban : Amazon.com.tr: Ofis ve Kırtasiye https://www.amazon.com.tr/dp/B0CN4PPTKR 10 sa. önce paylaşıldı

Einhell TP-CD 18/50 Li-i BL - Solo, Akülü Darbeli Vidalama : Amazon.com.tr: Yapı Market https://www.amazon.com.tr/dp/B084K15LGY 8 sa. önce paylaşıldı

Viko Multi-Let 5li Anahtar-Topraklı Ç.K Klemens : Amazon.com.tr: Yapı Market https://www.amazon.com.tr/dp/B07DKFXDG1 10 sa. önce paylaşıldı

Broadlink SP4L Ab Wifi Soket Fiş 16A Çıkış Zamanlayıcısı Fiyatı https://www.hepsiburada.com/broadlink-sp4l-ab-wifi-soket-fis-16a-cikis-zamanlayicisi-pm-HBC00002TX5CV 10 sa. önce paylaşıldı

Fairy Platinum 72 Yıkama Bulaşık Makinesi Deterjanı Kapsülü/TabletiLimon Kokulu : Amazon.com.tr: Sağlık ve Bakım http://www.amazon.com.tr/dp/B07MG11RK6/ref=asc_df_B07MG11RK61709674440000 15 sa. önce paylaşıldı

Tık Hızı Kupon Kampanyası - n11.com https://www.n11.com/kampanyalar/tik-hizinda-indirim 6 yıl önce paylaşıldı

{{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}}

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

6
Cevap

0
Favori

260
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konudaki Resimler

Mesaj Tarihine Göre En Beğenilen Son Ekleneneler

Seçimimi Hatırla

Mesaj Tarihine Göre

Mesaj Tarihine Göre
En Beğenilenler
Son Eklenenler

Konuya Özel

Favorilerime Ekle
Konuyu Açandan
Popüler Mesajlar
Linkli Mesajlar
Yazdır
E-Posta Aboneliği
Konuyu Gizle

0 oy

Öne Çıkar

x İlgini çekti mi?
Öne çıkar, anasayfada
daha üstte görünsün.
Daha Fazla Bilgi

Cevapla

Tüm Forumlar >> İşletim Sistemleri ve Yazılımlar >> Yazılım Genel >> fortran yardim pls | DonanımHaber Forum

Sayfa: 1

Giriş

Mesaj

dreamer1983

Çavuş

58 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

23 Aralık 2004 21:36:57 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

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