تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱
منبع : عمران
برچسب‌ها: برنامه نویسی, روش تكرار ساده, زبان فرترن, مهندس حسن فراهانی
برنامه نویسی روش تكرار ساده به زبان فرترن
F(X)=EXP(-X)-SIN(X)
G(X)=X+ EXP(-X)-SIN(X)
READ (*,*) X0,EPS
X = G(X0)
N=1
10 IF (ABS(F(X)) .LT. EPS) THEN GOTO 20
X0 = X
X=G(X0)
N=N+1
GOTO 10
20 WRITE(*,*) "ROOT=",X
WRITE(*,*) "ITERATION=",N
END
بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)
برچسب‌ها: برنامه نویسی, روش تكرار ساده, زبان فرترن, مهندس حسن فراهانی
ارسال توسط حسن فراهانی
آخرین مطالب
