اعجل مساعدة اطلبها: انا بحاجة ماسة لكتابة برنامج في لغة الفورترون

koryou · 2013-01-23, 15:55

السلام عليكم
اخوتي اخواتي انا بحاجة ماسة لكتابة برنامج في لغة الفورترون
يرحم والديكم اللي يسلكها مليح يتفضل يساعدني بالخصوص خلال هدين اليومين شكرا
انا في الانتظار

koryou · 2013-01-23, 21:18

هل من مجيب ؟

*ابو محمد الجزائري* · 2013-01-23, 21:55

و اين طلبك او استفسارك
فورترون واسع جدا و التطبيقات فيه حسب الطريقة الرياضية التي ستعالج مشكلة معينة
حدد مشكلتك لكي يتمكن من يستطيع مساعدتك من ذلك

koryou · 2013-01-24, 11:24

[QUOTE[/QUOTE]طيب شكرا عندي برنامج تمهيدي لقراءة وكتابة المصفوفات ثم حل المعادلات بطريقة قوص :
المهم هذا البرنامج compilation ماكانش اخطاء بصح في build.exe لقي خطأن إثنان أرجو من دوي الخبرة ايجادهما وكيفية تصحيحهما شكرا

koryou · 2013-01-24, 12:57

هدا البرنامج

koryou · 2013-01-24, 15:21

وينكم جاوبوني رجاء

CHAWKIALGERIE · 2013-01-24, 18:21

رايح نحاول ان شاء الله افيدك بما أستطيع

CHAWKIALGERIE · 2013-01-24, 18:27

أعطني نص التميرين بارك الله فيك وهل هذا تمرين نتاع مصفوفات

koryou · 2013-01-24, 20:47

هدا البرنامج مقدمة لحساب حلول المعهالات بطريقة قاوس
شوفلي برك علاش ماهوش يمشي وين راهم الخطان
انا انتظر الاجابة الان

*ابو محمد الجزائري* · 2013-01-26, 23:24

كود:

     subroutine saisie (mat,nbl,nbc,diml,dimc)
      implicit none
      integer i,j
      integer nbl,nbc,diml,dimc
      real mat(diml,dimc)
      print*,'Définissez la dimension réelle de la matrice'
      print*,'Nombre de lignes (',diml,' maxi) : '
      read*,nbl
      print *,'Nombre de colonnes (',dimc,' maxi) : '
      read*,nbc
      if(nbl.gt.diml.or.nbc.gt.dimc.or.nbl.lt.1.or.nbc.lt.1)then
      print *,'Erreur dimension'
      stop
      endif
      print*,'Entrez votre matrice :'
      do 10 i=1,nbl
      print*,'ligne' ,i
      do 20 j=1,nbc
      print*,' (',i,'-',j,') ?' 
      read*,mat(i,j)
20    continue
10    continue
      end subroutine saisie

الا ينقصك قبل آخر سطر
enddo
enddo
و الله اعلم
للاسف البرنامج ليس مثبتا على جهازي لكي اجرب البرنامج
لكن اليس فورترون يخبرك بالسطر الذي فيه الخطا و نوع الخطا

CHAWKIALGERIE · 2013-02-12, 11:20

https://www.4shared.com/office/ZBMCfR...ran_cours.html