---------------------------------------------------------------------------------------------------------------------------------------- PROGRAM jacobi IMPLICIT NONE INTEGER::i,j,i1,i2,j1,n,j2,k,k1,t1 REAL::s,e REAL,ALLOCATABLE::a(:,:),x(:),y(:),t(:) PRINT* PRINT* PRINT*," 1

---------------------------------------------------------------------------------------------------------------------------------------- PROGRAM gauss IMPLICIT NONE INTEGER::n,i,j,j1,i2,i3,j3,i4,k REAL::landa,s REAL,ALLOCATABLE::a(:,:),x(:),b(:) PRINT* PRINT*,"matrix n dar n+1 zir ra dar nazar begi

گروه پژوهشی - آموزشی بنیان دانش توس در اسفند 1390 با همکاری تعدادی از دانشجویان تحصیلات تکمیلی دانشگاه های معتبر تهران و مشهد شروع به کار کرد و توفیقات زیادی کسب نمود که به تدریج در وبلاگ بارگزاری خواهد شد. در همین راستا شاخه آموزشی گروه اقدام به راه اندازی سایت moomsan.blog.ir نمود تا ضمن ارائه آمو

------------------------------------------------------------------------------------------------------------------------------------- PROGRAM mabna_m_be_n IMPLICIT NONE INTEGER::a,m,n,k,s1,s2,j,i,r,a10,am PRINT* PRINT*," (a) = (?)" PRINT*," m n" PRINT* PRINT*," a ra vared konid : " RE

-------------------------------------------------------------------------------------------------------------------------------------- PROGRAM bisection IMPLICIT NONE INTEGER::k REAL::x,xo,a,b,e,e1,a1,x1,t1,t2 !y=x**2-e**x DO PRINT*,"baze [a,b] ra vared konid : " PRINT*,"a = " READ*,a PRINT*,"b =

-------------------------------------------------------------------------------------------------------------------------------------- PROGRAM gauss_sidel IMPLICIT NONE INTEGER::i,j,i1,j1,k,t1,n,j2,k1 REAL::s,e REAL,ALLOCATABLE::a(:,:),x(:),y(:),t(:) PRINT* PRINT* PRINT*," 1

گروه پژوهشی - آموزشی بنیان دانش توس در اسفند 1390 با همکاری تعدادی از دانشجویان تحصیلات تکمیلی دانشگاه های معتبر تهران و مشهد شروع به کار کرد و توفیقات زیادی کسب نمود که به تدریج در وبلاگ بارگزاری خواهد شد. در همین راستا شاخه آموزشی گروه اقدام به راه اندازی سایت moomsan.blog.ir نمود تا ضمن ارائه آمو

در اغلب برنامه ها نیاز داریم که اطلاعات ورودی را از صفحه کلید یا فایل بخوانیم و اطلاعات خروجی را در صفحه نمایش نشان دهیم یا آنها را در فایل خروجی ذخیره کنیم.دستور READ این دستور برای دریافت ورودی از صفحه کلید بکار می رود و ساختار آن به شکل زیر است. READ *, {input list} or RAED([UNIT=] unit type, [FM

دستور OPEN این دستور یک فایل را باز می کند و یک عدد به فایل اختصاص می دهد. این امکان وجود دارد که فایل را ایجاد کرد. ساختار این دستور به این شکل است: OPEN(UNIT= number, FILE= ’Name of file’, STATUS= status, ACCESS= access…) number عددی است که شما به فایل اختصاص می دهید (این عدد را بین 0 تا 255 انتخا

گروه پژوهشی - آموزشی بنیان دانش توس در اسفند 1390 با همکاری تعدادی از دانشجویان تحصیلات تکمیلی دانشگاه های معتبر تهران و مشهد شروع به کار کرد و توفیقات زیادی کسب نمود که به تدریج در وبلاگ بارگزاری خواهد شد. در همین راستا شاخه آموزشی گروه اقدام به راه اندازی سایت moomsan.blog.ir نمود تا ضمن ارائه آمو

PROGRAM nabejayi IMPLICIT NONE INTEGER::k REAL::a,b,fa,fb,x,e,c,y !F(x)=x^2 - 2^x PRINT* PRINT*," F(X) = X^2 - 2^X X = ? " PRINT* PRINT*," Baraye baze [a,b], a & b ra vared konid : " READ*,a,b PRINT*," Nerkhe hamgarayi ra vared konid : " READ*,c x=0 k=0 DO k=k+1 y=x fa=(a**2)-(2**

--------------------------------------------------------------------------------------------------------------------------------------- PROGRAM dIF IMPLICIT NONE REAL::x,fp,y1,y2,n,e,yp !f(x)=(x**3)-2x+1 PRINT* PRINT*," F(x) = x^3 - 2x + 1" PRINT* PRINT*," input n :" READ*,n PRINT*,"

-------------------------------------------------------------------------------------------------------------------------------------- PROGRAM keramer IMPLICIT NONE INTEGER::i,n,j REAL::detnet,det REAL,ALLOCATABLE::a(:,:),b(:),x(:),c(:) PRINT* PRINT* PRINT*," 1 | X(1)a(1,1) + X(2)a(1,2) + ...

------------------------------------------------------------------------------------------------------------------------------------ PROGRAM deterMINan IMPLICIT NONE INTEGER::i,j,g,f,r,j1,k,s,n REAL::landa,t REAL,ALLOCATABLE::a(:,:),b(:) PRINT* PRINT*," for matrix(n,n) input n : " READ*,n ALLOCAT

------------------------------------------------------------------------------------------------------------------------------------- PROGRAM tekrar_sade IMPLICIT NONE !f(x)=(e**x)-x-4 !x=(e**x)-4 !g(x)=(e**x)-4 INTEGER::k REAL::x,y,e,c,t,r1,r2,a,b PRINT*,"baze [a,b] ra vared konid : " PRINT*,"a =

------------------------------------------------------------------------------------------------------------------------------------- PROGRAM toomas IMPLICIT NONE INTEGER::n,i,j,k,l REAL::landa REAL,ALLOCATABLE::a(:,:),r(:),x(:) PRINT* PRINT*," _

---------------------------------------------------------------------------------------------------------------------------------------- PROGRAM daraje_2 IMPLICIT NONE REAL::a,b,c,x1,x2,delta PRINT* PRINT*," 2 " PRINT*," aX + bX + c = 0 ===>> a , b , c = ?" P

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

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

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