Fortran 90 konusunda yardımcı olabilecek bir üye?

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Fortran 90 konusunda yardımcı olabilecek bir üye?

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

1
Cevap 968
Tıklama 0
Öne Çıkarma

1. sayfa

Fortran 90 konusunda yardımcı olabilecek bir üye?

Cevap Yaz

pozitiveday

13 yıl (339 mesaj)

Yüzbaşı

Konu Sahibi

şimdi programı yazıyorum start run diyorum siyah ekran çıkıyor ve oraya değerleri yazdıktan sonra ne yapmam gerektiğini bilmiyorum

PROGRAM Projectile 
  IMPLICIT NONE 
  REAL, PARAMETER :: g = 9.8 
  REAL, PARAMETER :: PI = 3.1415926 
  REAL :: Angle 
  REAL :: Time 
  REAL :: Theta 
  REAL :: U  
  REAL :: V 
  REAL :: Vx 
  REAL :: Vy 
  REAL :: X 
  REAL :: Y 
   
  READ(*,*) Angle, Time, U 
  Angle = Angle * PI / 180.0 
  X     = U * COS(Angle) * Time 
  Y     = U * SIN(Angle) * Time - g*Time*Time / 2.0 
  Vx    = U * COS(Angle) 
  Vy    = U * SIN(Angle) - g * Time 
  V     = SQRT(Vx*Vx + Vy*Vy) 
  Theta = ATAN(Vy/Vx) * 180.0 / PI 
   
  WRITE(*,*) 'Horizontal displacement : ', X 
  WRITE(*,*) 'Vertical displacement   : ', Y 
  WRITE(*,*) 'Resultant velocity      : ', V 
  WRITE(*,*) 'Direction (in degree)   : ', Theta 
  END PROGRAM Projectile

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

mmarass

13 yıl (1767 mesaj)

Yüzbaşı

quote:

Orijinalden alıntı: pozitiveday

şimdi programı yazıyorum start run diyorum siyah ekran çıkıyor ve oraya değerleri yazdıktan sonra ne yapmam gerektiğini bilmiyorum

PROGRAM Projectile 
  IMPLICIT NONE 
  REAL, PARAMETER :: g = 9.8 
  REAL, PARAMETER :: PI = 3.1415926 
  REAL :: Angle 
  REAL :: Time 
  REAL :: Theta 
  REAL :: U  
  REAL :: V 
  REAL :: Vx 
  REAL :: Vy 
  REAL :: X 
  REAL :: Y 
   
  READ(*,*) Angle, Time, U 
  Angle = Angle * PI / 180.0 
  X     = U * COS(Angle) * Time 
  Y     = U * SIN(Angle) * Time - g*Time*Time / 2.0 
  Vx    = U * COS(Angle) 
  Vy    = U * SIN(Angle) - g * Time 
  V     = SQRT(Vx*Vx + Vy*Vy) 
  Theta = ATAN(Vy/Vx) * 180.0 / PI 
   
  WRITE(*,*) 'Horizontal displacement : ', X 
  WRITE(*,*) 'Vertical displacement   : ', Y 
  WRITE(*,*) 'Resultant velocity      : ', V 
  WRITE(*,*) 'Direction (in degree)   : ', Theta 
  END PROGRAM Projectile

Siyah ekranda değerleri gireceksin işte. Atış hesaplıyor bu program. Sen değerleri gireceksin sonra sonuçları gösterecek. Bu kadar

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Fortran 90 konusunda yardımcı olabilecek bir üye?