فوری ::درخواست کمک برای برنامه نویسی

[sobhan91]

دوستان من از زبان برنامه نویسی فرترن اصلا سر در نمیارم...واسه هفته اینده هم یه پروژه دارم که نمیدونم چیکارش کنم
نوشتن برنامه برای تقریب ریشه های معادله:x[SUP]3[/SUP]​-3x+1 از طریق روش نیوتن
توروخدا کمکم کنید ...

 

[straxico]

http://faculty.washington.edu/rjl/classes/am583s2013/notes/fortran_newton.html
دوست عزیز توی لینک بالا یه برنامه نسبتا سطح بالا واسه سوالت هست
نری همینو کپی کنی بدی به استاد
شاخ و بالاشو بزن اگه نتونستی بگو خودم واست بنویسم

 

[ghazaleh_heidari]

دوستان من از زبان برنامه نویسی فرترن اصلا سر در نمیارم...واسه هفته اینده هم یه پروژه دارم که نمیدونم چیکارش کنم
نوشتن برنامه برای تقریب ریشه های معادله:x[SUP]3[/SUP]​-3x+1 از طریق روش نیوتن
توروخدا کمکم کنید ...

حتما بايد فرترن باشه؟
من با مطلب ميتونم كمكت كنم و برنامه را بهت بدم

 

[sobhan91]

حتما بايد فرترن باشه؟
من با مطلب ميتونم كمكت كنم و برنامه را بهت بدم

ممنون دوست عزیز...

 

[ghazaleh_heidari]

ممنون دوست عزیز...

الان اين ممنون يعني چي دقيقا دوستم؟
كمك ميخواي؟نميخواي؟با مطلب ميشه؟حتما بايد فرترن باشه؟.... چي آيا؟

 

[sobhan91]

الان اين ممنون يعني چي دقيقا دوستم؟
كمك ميخواي؟نميخواي؟با مطلب ميشه؟حتما بايد فرترن باشه؟.... چي آيا؟

حتما باید فرترن باشه "دوستم"

 

[straxico]

program raveshe_nioton
real::x,f,fprim
print*,"adade avalie va tedade tekrar ra vared konid"
read*,x,n
do i=1,n
f=x**3-3*x+1
fprim=3*x**2-3
x=x-f/fprim
print*,x
end do
print*,"risheye taghribi barabare",x,"ast."
end


این کارتو راه میندازه؟

 

[مهندس بدبخت]

خویهمنم مینونم با مطلب كمكتون كنم.

 

[sobhan91]

خیلی ممنون.خودم تونستم بنویسمش
اینه:
program newton
implicit none
real::a,b,x1,x2,k,p,r,s
print*," lotfan hodood baze ra vared konid"
1 read*,a,b
k=(a**3)-(3*a)+1
p=(b**3)-(3*b)+1
if((k*p)<0) then
x1=(a+b)/2
else
print*,"dar in baze rishee vojod nadarad.dobare say konid"
go to 1
end if
2 r=(x1**3)-(3*x1)+1
s=(3*x1**2)-3
x2=x1-(r/s)
if(abs(x2-x1)<0.001) then
print*,x1
print*,x2
else
x1=x2
go to 2
end if
end

 

[straxico]

Re: فوری ::درخواست کمک برای برنامه نویسی

ولی الان کسی از go to استفاده نمیکنه ها. Do شرطی مینوشتی بهتر بود

Sent from my MK16i using Tapatalk 2

 

[straxico]

Re: فوری ::درخواست کمک برای برنامه نویسی

من هم تین ترم فرترن دارم.
پروژمم خودم انتخاب کردم.
برنامه ای بنویسید که تمام ماتریس هاژ جادویی ۳*۳ را چاپ کند.
ماتریس جادویی ماتریسی هست که مجموع سطر و ستون هاش برابره و با اعداد ۱ تا ۹ پر شده.


Sent from my MK16i using Tapatalk 2

 

[sobhan91]

من هنر کردم همینم نوشتم....
پروژت مخ زنه..!!!!

 

[محمودپور]

من هم تین ترم فرترن دارم.
پروژمم خودم انتخاب کردم.
برنامه ای بنویسید که تمام ماتریس هاژ جادویی ۳*۳ را چاپ کند.
ماتریس جادویی ماتریسی هست که مجموع سطر و ستون هاش برابره و با اعداد ۱ تا ۹ پر شده.

آفرین کار بسیار زیباییه، هر چند نیاز به کدنویسی سطح بالایی نداره ولی زیباست. در آینده در زیر برنامه نویسی نرم افزار های تحلیلی خیلی کمکت خواهد کرد.
سعی کن زمان اجرای برنامه رو با حذف یک سری از جواب های غلط بدیهی به کمک یک الگوریتم کاهش بدی چون احتمال می دم بالای 3 ساعت حالا بسته به شرایط مختلف برنامت طول بکشه.