السلام عليكم
اخوتي اخواتي انا بحاجة ماسة لكتابة برنامج في لغة الفورترون
يرحم والديكم اللي يسلكها مليح يتفضل يساعدني بالخصوص خلال هدين اليومين شكرا
انا في الانتظار
*ابو محمد الجزائري*
2013-01-23, 21:55
و اين طلبك او استفسارك
فورترون واسع جدا و التطبيقات فيه حسب الطريقة الرياضية التي ستعالج مشكلة معينة
حدد مشكلتك لكي يتمكن من يستطيع مساعدتك من ذلك
[QUOTE[/QUOTE]طيب شكرا عندي برنامج تمهيدي لقراءة وكتابة المصفوفات ثم حل المعادلات بطريقة قوص :
المهم هذا البرنامج compilation ماكانش اخطاء بصح في build.exe لقي خطأن إثنان أرجو من دوي الخبرة ايجادهما وكيفية تصحيحهما شكرا
CHAWKIALGERIE
2013-01-24, 18:21
رايح نحاول ان شاء الله افيدك بما أستطيع
CHAWKIALGERIE
2013-01-24, 18:27
أعطني نص التميرين بارك الله فيك وهل هذا تمرين نتاع مصفوفات
هدا البرنامج مقدمة لحساب حلول المعهالات بطريقة قاوس
شوفلي برك علاش ماهوش يمشي وين راهم الخطان
انا انتظر الاجابة الان
*ابو محمد الجزائري*
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.l t.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
http://www.4shared.com/office/ZBMCfR...ran_cours.html (http://www.4shared.com/office/ZBMCfRRa/IDRIS_Fortran_cours.html)