انجمن علمی مکانیک دانشگاه شهید مدنی

با عرض خسته نباشید به همه بچه های مکانیک

از تمرین این جلسه برنامه نویسی یه کم سخت بود و بیشتر بچه ها نتونستن بنویسن و چند تا از بچه ها خواستن کمکشون کنم تصمیم گرفتم بزارمش تو بلاگ که همه استفاده کنن.

فقط چند تا نکته هست که خواستم اول بدونید

۱:اول یه اسم درست حسابی برا برنامه پیدا کنید من چیزی به ذهنم نرسید

۲:کد هارو وقتی کپی کردم جای پارانتز هایی که اخر سطر بود اومد اول سطر هرکار کردم نتونستم درستش کنم ولی شما اگه کپی کنید تو ورد راحت می تونید درستش کنید.

۳:این همون برنامه ای هست که خودم می خوام بدم اگه می بینید بیشتر از دو صفحه نیس شک نکنید درست هست فقط چند تا  print ش رو حذف کردم به طور مثال فقط *print هاش بیشتر از 30 تا بود و یه کم زیبا سازی کرده بودمش و به قول خودمون یه کم دست مال کشی که شده بود 11 صفحه

4:یه چیز دیگه نظر یادتون نره کلا کم نظر می دین بلاگمون خیلی متروکه شده یه کم کامنت بزارید تا یه کم داغ تر بشه مخصوصا به اپ های من

5: انقدر ذوق کردین که متوجه نشدین سه تا شماره اخر همه شون 4 هست

6:برگشتین دیدین شماره ها درسته؟؟؟؟این یعنی به خودتون هم اعتماد ندارین واقعا جای تاسف داره

7:دیگه پر رو نشید کافیه دیگه هههه

بریم سراغ کد های برنا مه مون:

program khoshgl_moshgl
implicit none
real a(4,4),determinan
integer i
do i=1,3
read*,a(i,1:4)
end do
determinan=(a(1,1)*a(2,2)*a(3,3)+a(1,2)*a(2,3)*a(3,1)+a(2,1)*a(3,2)*a(1,3))-(a(1,1)*a(3,2)*a(2,3)+a(2,1)*a(1,2)*a(3,3)+a(3,1)*a(2,2)*a(1,3))
print*,"determinan:",determinan
if(determinan==0)stop
if(a(1,3)==0)then
a(4,1:4)=a(1,1:4)
a(1,1:4)=a(2,1:4)
a(2,1:4)=a(4,1:4)
end if
if(a(1,3)==0)then
a(4,1:4)=a(1,1:4)
a(1,1:4)=a(3,1:4)
a(3,1:4)=a(4,1:4)
end if
a(2,1:4)=a(2,1:4)-a(2,3)*a(1,1:4)/a(1,3)
a(3,1:4)=a(3,1:4)-a(3,3)*a(1,1:4)/a(1,3)
if(a(2,2)==0)then
a(4,1:4)=a(2,1:4)
a(2,1:4)=a(3,1:4)
a(3,1:4)=a(4,1:4)
end if
a(3,1:4)=a(3,1:4)-a(3,2)*a(2,1:4)/a(2,2)
a(3,4)=a(3,4)/a(3,1)
a(1:2,1)=a(1:2,1)*a(3,4)
a(2,4)=(a(2,4)-a(2,1))/a(2,2)
a(1,2)=a(1,2)*a(2,4)
a(1,4)=(a(1,4)-(a(1,1)+a(1,2)))/a(1,3)
print*,"x=",a(3,4)
print*,"y=",a(2,4)
print*,"z=",a(1,4)
print*,"tahie konande : akbar agaiy"
end