مقاله تحقیقی پیرامون زبان برنامه نویسی فرترن

توضیحات

  مقاله تحقیقی پیرامون زبان برنامه نویسی فرترن دارای 22 صفحه می باشد و دارای تنظیمات در microsoft word می باشد و آماده پرینت یا چاپ است

فایل ورد مقاله تحقیقی پیرامون زبان برنامه نویسی فرترن  کاملا فرمت بندی و تنظیم شده در استاندارد دانشگاه  و مراکز دولتی می باشد.

توجه : در صورت  مشاهده  بهم ریختگی احتمالی در متون زیر ،دلیل ان کپی کردن این مطالب از داخل فایل ورد می باشد و در فایل اصلی مقاله تحقیقی پیرامون زبان برنامه نویسی فرترن،به هیچ وجه بهم ریختگی وجود ندارد

بخشی از متن مقاله تحقیقی پیرامون زبان برنامه نویسی فرترن :

تحقیقی پیرامون زبان برنامه نویسی فرترن
) FORmula TRANslation ( FORTRAN

فرترن اولین زبان سطح بالا است که تولید آن در سال 1954 به سرپرستی جان باکوز به منظور ایجاد یک زبان علمی در شرکت IBM شروع و در سال 1957 روی IBM 704 معرفی گردید که بالغ بر 5/2 میلیون دلار هزینه برداشت. با استفاده از این زبان حل معادلات ریاضی بسیار آسان گردید و بسیار مورد استقبال قرار گرفت. این زبان در اکثر کامپیوترهای بزرگ و کوچک مورد استفاده قرار می گیرد و همین استقبال فوق العاده سبب شد تا کار تهیه استاندارد در سال 1

962 برای آن شروع شود که یکی از آن ها را نسخه

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

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

که دنبال کردن منطق برنامه مشکل تر از سایر زبان های سطح بالا می باشد و این زبان برای پردازش فایل ها نمی باشد، لذا برای پردازش فایل ها و استفاده در امور تجاری زبان سطح بالای دیگری بوجود آمد به نام کوبول.
فرترن 90 زبان برنامه نویسی ای طبق استاندارد جهانی است كه امكان دارد برای كاربرد های علمی و مهندسی فراگیر شده و به طور گسترده برای پردازش اطلاعات عمومی مورد استفاده قرار می گیرد .
هرچند نام صحیح زبان جدید فرترن90 است اما اغلب به فرترن خلاصه می شود . شكل قبلی زبان FORTRAN 77 بود كه طبق قرارداد با حروف بزرگ لاتین نوشته می شد . كلمه FORTRAN در اصل از مخفف دو كلمه formula translation ساخته شد . سالهای زیا

دی است كه زبانهای برنامه نویسی مسئله غامضی را پیش روی تعیین كنندگان استراتژی و تعلیم دهندگان صنعت انفورماتیك قرار داده اند . فرترن خانواده ای از زبانهاست كه حال 30 سال قدمت دارد و هرچند بسیار رایج است ، اما تنها بصورت استاندارد قدیمی فرترن 77 و یا به شكلهای غیراستاندارد موجود بوده است .
بنابراین در دهه 1980 بسیاری از افرادی كه می خواستند از زبان برنامه نویسی مدرنتر و
بهتری استفاده كنند از فرترن روی گردان شدند . درضمن به هر حال مشخص شد كه زبانهای مشتری جمع كن دیگر مانند پاسكال و ادا (Ada) كاستیهای خود

را دارند و آن طور كه انتظار می رفت متداول نشدند .
در دهه 1980پیشرفت دیگر ، ازدیاد نسل چهارم ، زبانهای سطح بالا ، سیستمهای بانك اطلاعاتی و سایر بسته های نرم افزاری بود كه اغلب به شیوه صفحه گزینش عمل كرده و تسهیلات نیرومندی را برای اجرای كارهای ویژه ای عرضه می كنند . این نرم افزارها به یقین بسیار سودمند هستند اما هر كدام حوزه محدودی مسائل را خطاب می كنند . به طور معمول در اجرا به نسبت كند بوده و در نهایت استفاده از آنها می تواند بسیار پیچیده باشد.
برای مثال نمونه مدرنی از نرم افزار صفحه گسترده قادر است محاسبات پیچیده ای را انجام دهد و می تواند داده ها را در شكلهای زیادی پردازش كند . اما به احتمال زیاد سربار سنگینی روی سیستم كامپیوتری می گذارد و باید مجموعه فرامینی دا

شته باشد كه چندان هم ساده تر از زبان فرترن نیست ، در حالیكه كارهای بیشماری وجود دارد كه صفحه گسترده ، به دلیل ساختار اختصاصی اش نمی تواند انجام دهد .
با سپری شدن زمان ، لازم شد كه استفاده كنندگان همه جانبه كامپیوتر با صفحه گسترده ، بسته های آماری ، واسطه های گرافیكی و واژه پردازان پیچ

یده ، سیستمهای نشررومیزی و خیلی چیزهای دیگر آشنا شوند . اما لزوم استفاده از زبانی به شیوه فرترن برای حل مسائل عمومی و به روشی مستقیم و بدون محدودیت باقی مانده است . در سالهای اخیر زبان c به تدریج نسبت به فرترن 77 محبوبیت بیشتری كسب كرده و محاسنی از قبیل سادگی ، حكمهای مختصر و مفید و قابلیت حمل خوبی دارد . اما c مشكلاتی دارد كه آن را برای خیلی از افراد غیر جذاب می سازد .
سادگی آن ، وقتی كه به آن كتابخانه پردازه استاندارد افزوده شده و یا زبان به شكل قدرتمندتر آن یعنی ++c توسعه داده شود ، بسیار كاهش می یابد .
بعد از c به چه می توانیم رو آوریم ؟
این سؤال ما را به فرترن 90 رهنمون می كند . فرترن 90 برای راه تازه پیشرفت طراحی شده است . زبان به طور كامل مدرن ، نیرومند ، همه جانبه برای پردازش بالقوه تمام مفاهیمی كه استفاده كنندگان از پاسكال و c انتظار داشتند می باشد . فرترن 90 زبان مفصلی ، تمام خصیصه های استانداردهای قبلی فرترن را حفظ كرده است . اما این قیمتی است كه باید برای سازگاری با گذشته پرداخت شود . از طرف دیگر برای استفاده كنندگان كه برنامه های جدید می نویسند و آزاد هستند كه گذشته را نادیده بگیرند . فرترن 90 هسته ا

ی برازنده و توانمند دارد كه از نظر ذهنی و آموزشی بسیار جذاب است.
فرترن 90 به جهتی بیش از یك زبان برنامه نویسی است . این زبان دربردارنده مفاهیم و اصطلاحاتی است كه دردنیای حرفه ای مهندسی نرم افزار استاندارد شده است و اصطلاحاتی مانند اشاره گر ، نویسه و آرگومان در تمام زبانها به كار گرفته م

ی شوند .
این اصطلاحات معنی دقیق فنی دارند و قسمتی از فرهنگی است كه برنامه نویسها برای مطرح كردن كارشان به آن نیازمندند .
تا چند سال قبل ، كتاب برنامه نویسی به فرترن روی تسهیلات و تكنیك محاسبات ، تاكید می كرد . بیشتر كاربردهای پیشرفته برنامه نویسی شامل ریاضیات پیشرفته بود .كارهای غیر ریاضی محدوده زبانهای ساده تری بود ، مانند كوبال برای كاربردهای تجاری .
امروزه وضع عوض شده است : كاربرد های كامپیوتری پیچیده ای خارج از علوم ریاضی وجود دارد و فرترن روی داده های غیرعددی می تواند به طورموثر و با سهولت عمل كند فرترن 90 را در محدوده كاربردها یی ازتحلیل زبان تا پردازش تصویر با نتایج كمی و نیز كیفی می توان به كار برد . در یك زمان محاسبات را نه تنها روی یك مجموعه از اعداد بلكه روی آرایه های بزرگی می توان انجام داد و مترجمها می توانند از پردازنده های جدید موجود از

نوع موازی ( یا برداری ) بهره برداری كنند .
فرترن بیش از سی سال به اشكال مختلف مورد استفاده بوده وحال سرمایه گذاری عظیمی در برنامه های موجود نهفته است . در نتیجه ، قا بلیت حمل در زمان به همان اهمیت قابلیت حمل در مكان است ، وفرترن 90 سازگار با گذشته ، یعنی استاندارد فرترن 77 طراحی شده است . این به این معناست كه همانطور كه قبلا گفته شد

فرترن 90 حاوی تعدادی از خصیصه های كهن است كه اینها بدون بار مسئولیت گذشته در طراحی زبان پیش بینی نمی شد .
برنامه نویسی فرترن (مقدماتی)
فرترن نخستین زبان علمی می باشد که برای کامپیوتر طراحی شده است . این زبان در مو ضوعات علمی و مهندسی کاربرد فراوان دارد . با وجود گذشت بیش از سی سال از اولین نسخه های این زبان برنامه نویسی به سبب ارتقای قابلیت های آن توسط طراحان آن همواره کاملترین زبان علمی و مهندسی به شمار رفته است . پیشرفت علمی فرترن در دهه های گذشته را می توان از فرترن 77 به فرترن 90 نام برد . اما با وجود پیشرفت هایش هنوز راحتی کاربردش در برنامه های گرافیکی میسر نگردیده . با به میان آمدن نرم افزار Fortran Power Station 4.0 (F.P.S.4) توانایی های فرترن پیشرفت چشمگیری یافت .این نسخه سازگار با سیستم عامل های Windows 95\98.NT و نگارش های بالاتر می باشد . همچنین شامل تابع های پیشرفته ی گرافیکی ، کتابخانه های گسترده ی ریاضی و ابزار برنامه نویسی Visual است.شرکت مایکروسافت این زبان را به عنوان مهمترین گزینه برای مهندسان و دانشمندان پیشنهاد نموده زیرا افزودن بر قابلیت های عنوان شده ، از دقت محاسباتی بالا و سرعت اجرای زیادی برخوردار است ، به طوری که در سایر نرم افزار های علمی مانند MATLAB نیز برای افزایش سرعت اجرای برنامه (حتی تا 25 برابر) برخی از اجزای آن (مانند حلقه ها) را به زبان فرترن می نویسند .

برنامه نویسی با فرترن :متغیر ها : برای نوشتن یک برنامه به زبان فرترن و انجام یک سری عملیات باید از نام های مختلفی تحت عنوان متغیر استفاده کرد (اسامی متشکل از حروف ، ارقام و کاراکتر (-) که با حروف شروع می شوند)
متغیر ها در فرترن به چهار دسته صحیح (Integer) ، حقیقی (Real) حقیقی دقت مضاعف(Double Precision) ، رشته ای (Character) و منطقی (Logical) تقسیم می شوند .
به عنوان یک قاعده ی کلی متغیر ها را باید در اول برنامه تعریف نمود که از چه نوعی می باشند . در فرترن به صورت پیش فرض متغیر هایی

که حرف اول نام آنها یکی از حروف I,J,K,L,M,N باشد به عنوان متغیر صحیح و در غیر این صورت حقیقی (اعشاری) به شمار می رود . با رعایت این اصل دیگر نیازی به تعریف متغیر های صحیح و حقیقی در ابتدای برنامه نیست ، مگر آنکه بخواهیم متغیری را که حرف اول آن یکی از این حروف است عمدا متغیر حقسقس (بر خلاف پیش فرض) در نظر بگیریم .
نکته :
متغیر های رشته ای که شامل یک کلمه یا جمله می شوند حتما باید در ابتدای برنامه از نوع Char تعریف گردند .
طول متغیر های رشته ای (متنی) باید بر حس

ب کاراکتر در جلوی دستور Char بعد از علامت * درج شود
Char*10 name
فرترن اولیه محدودیت شش کاراکتری داشت .
چنانچه جمله ای طولانی تر از10به name اختصاص دهیم فقط تا کاراکتر دهم آن در متغیر ذخیره خواهد شد
چنانچه ظرفیت متغیر های رشته ای با یکدیگر تفاوت داشته باشد
Char name*10,text*,sum*15
انتساب یک مقدار یا عبارت به متغیر ها سا از طریق خواندن (دستور Read) انجام می گیرد و یا با علامت
“=”
Char*10 name
Name = “Ali”
متغیر های منطقی نیز فقط می توانند دو ارزش درست (.True.) یا نا درست (.False.)را به خود اختصاص دهند
Logical var1,var2
Var1=.True
گفتیم متغیر هایی که با حروف I-N شروع می شوند صحیح و بقیه حقیقی اند.
با استفاده از دستور IMPLICIT می توان این قاعده را عوض کرد
Implicit integer (A-Z)
اگر این دستور در ابتدای زیر برنامه ای بیاید تمام متغیر هایی که اعلان شده اند از نوع صحیح منظور می شوند

دستور Parameter

می دانیم که مقدارمنتسب به متغیر ها در طول اجرای برنامه قابل تغییر است . اما اگر بخواهیم از نام هایی استفاده کنیم که در طول اجرای برنامه قابل تغییر نباشد باید آنها را در مقابل دستور Parameter در ابتدای برنامه نوشت
PARAMETER (num=12)
R

eal, PARAMETER (PI=3.141592)
اگر متغیر ها غیر عددی باشند (مانند character) باید قبل از دستور Parameter نوع آنها را تعریف نمود
ساختار برنامه ها در فرترن :
Program نام برنامه
Real…
Integer…
Read(*,*)a,b,c
d=b**2+c*c
Write (*,*)
Stop توقف بر نامه
End پایان برنامه
نکته:
دستورات می توانند در یک سطر و پشت سر هم با درج علامت, بین هم نوشته شوند.
از نظر سبک نوشتن برنامه دو نوع ساختار وجود دارد:
1) فایل های با پسوند.For
2) فایل های با پسوند .F90
فایل های با پسوند.For
برنامه های قدیمی که به زبان فرترن نوشته می شدند دارای این پسوند بودند.چنانچه ازاین پسوند استفاده شود رعایت موارد زیر الزامی است:
1) دستورات باید از ستون هفتم به بعد نوشته شوند(نحو فرمت ثابت)در F.P.S.4 برای راهنمایی کاربر ستون ششم پرونده های با پسوند .For به رنگ سبز در می آید و برنامه نویس باید لز ستون هفتم به بعد برنامه ها را بنویسد.
2) شماره گذاری برای دستورات در صورت لزوم از ستون اول تا پنجم می باشد.
3) هر سطر دارای 72 ستون است. در نوشتن دستورات طولانی (بیش از 72 کاراکتر) برای ادامه خط باید در ستون ششم سطر بعد و ادامه دستور را از ستون هفتم به بعد نوشت.
4) برای نوشتن توضیحات (مستند سا

زی برنامه) باید در ابتدای آن سطر (ستون یکم) حرف C را تایپ نمود.
فایل های با پسوند .F90
پرونده های جدید در فرترن بهتر است با این پسوند نوشته شوند. موارد زیر را در این پرونده ها باید مد نظر داشت:

1) نوشتن دستورات از ستون 1 تا حداکثر ستون 255 هر سطر. در صورت داشتن شماره دستور حداقل یک فضای خالی بین شماره و دستور الزامی است.
2) در صورت ادامه دستور از یک سطر باید در انتهای این سطر علامت & درج شود و ادامه دستور در سطر بعدی نوشته شود.
3) برای نوشتن جملات توضیحی باید ! در ابتدا یا هر جایی از متن (با رعایت یک فاصله از آخرین حرف) درج شود.
ورودی و خروجی:
Read(*.*) دستور خواندن از صفحه کلید
Write(*.*) چاپ اطلاعات روی صفحه نمایش
بین متغیرهایی که قرار است چاپ شوند باید علامت “,” گذاشته شود
Write(*.*) a,b
برای آنکه عبارتی عینا چاپ شود باید آن را داخل گیومه قرار داد
Write(*.*) ‘Result=’,a
Result=5.000000 a=5با فرض اینکه
می توان نتایج برنامه را با ترتیب خاصی مانند مشخص بودن میدان قرار گرفتن اعداد، تعداد اعشار آنها و; چاپ نمود. برای این کار از دستور Format استفاده می شود.
دستور Format :

دستور Write(*.*) خروجی را مطابق با نوع و دقت تعین شده برای متغیر ها (اعم از ساده یا مضاعف) و با فاصله ی کافی از یکدیگر چاپ

می کند.
در واقع علامت * دوم داخل دستور Write نشانگر فرمت آزاد (یا بدون یک ترتیب خاص) می باشد.
در صورتی که بخواهیم خروجی با یک ترتیب خاص چاپ شود باید به جای علامت * یک عدد گذلشتو در سطر دیگری ابتدا شماره و سپس دستور Format را برای آن نوشت.
Write(*,شماره فرمت) خروجی
شماره فرمت Format( مقاله تحقیقی پیرامون زبان برنامه نویسی فرترن,nIm,nFw.d,nAw,nH, مقاله تحقیقی پیرامون زبان برنامه نویسی فرترن,/,\)
در این صورت n (ضریب عملگر ها) تعداد میدان می باشد (مثال 2I5 دو میدان صحیح با طول 5 کاراکتر)
x جای خالی
Im خروجی عدد صحیح با طول میدان m
Fw.d خروجی عدد اعشاری با طول میدان w و مقدار اعشار d
F12.3=-1234567.891
Ew.d خروجی عدد توانی با طول میدان w و مقدار اعشار d
E10.2=-12.34E+02

Aw خروجی رشته ای با طول میدان w
nH n کاراکتری که پس از حرف H نوشته می شوند عینا در خروجی چاپ می شوند
nX مکان نما را n ستون به جلو می برد

/ مکان نما را به سطر بعدی می برد
\ سبب می شود تا دستور Read بعدی داده های ورودی از ادامه آخرین سطر چاپ شده (نه سطر جدید) خوانده شود
Write(*,"(A,\)’) ‘Enter L1,L2:’
Read(*,*) L1,L2
مثال:
Write(*,12) M,N,a,b
12 Format(2I3,2F12.4)
این دستور باعث می شود تا دو متغیر صحیح اول در یک میدان 3 کاراکتری و دو متغیر حقیقی بعدی در یک میدان 12 کاراکتری ولی هر یک با 4 رقم اعشار چاپ شوند.
فرض کنیم
M=3 , N=51 , a=18.25946 , b=0.3569
چاپ به صورت زیر خواهد بود: (متغیر ها در میدان مربوط از راست به چپ چیده می شوند)
351182594.3569
نکته:
(I به جای نوشتن دستور Format می توان عملگرهای آنرا در خود دستور چاپ و داخل پرانتز نوشت
Write(*,"(عملگرها)’) خروجی ها
(II برای جلوگیری از نوشتن میدان های اندازه میتوان آنها را داخل پرانتز و با ضریب تکرار مربوطه قرار داد.
شماره فرمت Format(I4,5X,2(F12.4,2X,I10)
(III دقیقا مشابه دستور Write به هنگام استفا

ده از دستور Read نیز می توان داده ها را با فرمت خاص خواند. البته توصیه می شود برای جلوگیری از اشتباه در خواندن داده ها و حساسیت آنها از همان فرمت آزاد استفاده شود.
دستور های تکرار عملیات:
:Do

برای تکرار یک یا چند دستور پیاپی از فرمان Do با ساختار زیر استفاده می شود
1)
کنترل کننده حلقه Do
دستورات
End Do
2)
کنترل کننده حلقه،شماره دستور پایان Do
دستورات
Continue شماره دستور پایان
Sum=0
Do 10 i=1,8
Write(*,*)’Enter number:’
Read(*,*)number
Sum=sum+number

10 continue

Write(*,*)’sum=’,sum
End

Sum=0
Do i=1,8
Write(*,*)’Enter number:’
Read(*,*)number
Sum=sum+number
End Do
Write(*,*)’sum=’,sum

دستور Exit موجب خروج از حلقه می شود و دستور CYCLE موجب انتقال کنترل از دستور جاری به دستور آخر و شروع تکرار بعدی حلقه می شود.
دستورات شرطی:
به کمک دستورهای شرطی می توان اجرای بخشی از برنامه را منوط به برقرار بودن شرطی انجام داد.

if (یک عبارت منطقی) فرمان اجرایی
در زبان فرترن از علائم زیر برای کاربرد شرط استفاده می شود:
> .GT.
>= .GE.

< .LT.
<= .LE.
== .EQ.
!= .NE.
می توان چند شرط را با یکدیگر به کمک عامل های زیر ترکیب کرد
.AND. معادل «و» به معنی برقرار بودن دو شرط
.OR. معادل «یا» به معنی برقرار بودن حداقل یکی از شرط ها
.NOT.
چنانچه با برقرار بودن یک شرط نیاز به اجرای چندین دستور باشد از ساختار زیر استفاده می شود
if (عبارت منطقی) THEN
دستورات اجرائی
End if
می توان دستور IF را به گونه ای نوشت که در صورت نبودن شرط هم دستوراتی اجرا شوند
IF (عبارت منطقی) THEN
دستورات 1
ELSE
دستورات 2
END IF

IF(a.GE.1) THEN
S=a**2-b
ELSE
S=0
END IF

دستور پرش (Go To) :
برای فرستادن کنترل خط به یک سطر مشخص از برنامه (که شامل دستورات اجرایی باشد) به کار می رود:
Go to شماره سطر
…
شماره سطر دستورات اجرائی

If (a.GT.b) Go to 10
Write(*,*)’a<=b’

Go to 20
10 Write(*,*)’a>b’
20 …
آرایه ها:
آرایه ها متغیر هایی هستند که می توانند شامل مقادیر زیادی باشند. آرایه ها می توانند یک بعدی یا چند بعدی باشند (آرایه ها می توانند تا 7 بعد داشته باشند).
برای تعریف آرایه ها باید نام آنها را در مقابل دستور Dimension قرار داد و سپس باید در طی برنامه به اجزای آرایه مقدار نسبت داد.
آرایه ها در حقیقت متغیر های چند بعدی می باشند که به طور پیش فرض بر حسب حرف اول نام خود حقیقی یا صحیح ارزیابی می شوند، مگر آنکه به طور موکد اعلان شوند.
چنانچه آرایه ای با دستورات Integer, Real و; تعریف شود نباید قبلا با دستور Dimension تعریف شده باشند.
آرایه ها در فرترن به صورت ستونی ذخیره می شوند.
Real I(20), T(2,6)

Dimension J(3,5)

به طور کاملا مشابه با متغیر های ساده می توان آرایه ها را با یکدیگر جمع، تفریق، ضرب و; نمود. فقط باید توجه داشت که آرایه ها از نظر بعد با یکدیگر سازگار باشند.
Integer D(4)
Dimension J(3,2)
D(1)=1
D(2)=3
…

J(1,1)=5
J(1,2)=8
…
J(2,3)=11
S=D(3)*J(2,3)
Write(*,*)’S=’,s

End

برش بندی:
برای انجام عملیات بر روی بخشی از یک آرایه می توان از برش بندی استفاده کرد. مثلا برای نوشتن برابری درایه های سوم تا هفتم ماتریس سطری D با درایه های یکم تا چهارم ماتریس F می توان نوشت:
D(3:7)=F(1:4)
A(1:2,3:7)=B(3:4,2:6)
به طور مشابه می توان زیر رشته ای از یک رشته کاراکتری را نیز انتخاب کرد
CHARACTER* 12 name
name(2:6)
دستور DATA :
در برنامه های کوچک به متغیر ها می توان با دستور = و یا از طریق خواندن از صفحه کلید و یا یک فایل مقدار داد ولی اگر تعداد متغیر ها زیاد باشد و یا برای آرایه ها می توان با کمک دستور Data عملیات مقدار دهی را خلاصه نمود. این دستور یک فرمان غیر اجرایی است و باید در ابتدای برنامه نوشته شود.
ساختار این دستور به صورت زیر است
Data var1,var2,…var/،مقدار3،مقدار2،مقدار1…مقدار،
Data a,b,c,d/12,4,8,3/
اگر چند متغیر هم نوع دارای ارزش یکسانی باشند می توان به جای تکرار مقدار آنها (به جز مقادیر منفی) از یک ضریب استفاده نمود.
a=b=c=1.5

d=4
Data a,b,c,d/3*1.5,4/
Data name,family/’Ali’, ‘Alavi’/ اگر متغیر ها از نوع کاراکتر باشند
برای مقدار دهی به آرایه ها نو

شتن نام آنها (بدون ذکر بعد)در مقابل دستور Data کافی است
Real D(4),A(2,3)
Data D/1,3,5,7/
Data (A)i, j) , j=1,3,i=1,2/5,8,9,2,4,11/
زیر برنامه ها:
هنگامی که دستورات یک برنامه طولانی می شودرفع اشکال و درک عملکردهای بخش های مختلف آن دشوار می شود. معمولا مراحل مختلف برنامه های طولانی را در بخش های کوچکتری به نام زیر برنامه می نویسند در این صورت برنامه ی اصلی فقط از چند خط تشکیل می شود که زیر برنامه ها را با دستور Call فراخوانی می کندهمان طور که هر بخش محاسباتی شامل چند داده اولیه و سپس یک یا چند نتیجه است، در استفاده از زیر برنامه ها نیز این متغیر های ورودی و خروجی در داخل پرانتز و مقابل نام زیر برنامه گذاشته می شوند.
یک زیر برنامه در واقع برنامه ای کاملا مستقل است که پش از اتمام برنامه های اصلی قرار می گیرد.
زیر برنامه های تابع فقط یک مقدار را بر می گردانند که در برنامه های اصلی مورد استفاده قرار می گیرد (فرترن 77 اجازه بازگشتی را نمی دهد ولی بازگشت در فرترن 90 امکان پذیر است).
Read (*,*) a,b,c
Call F (a,b,c,Result)
Write (*,*) Result
End

Subroutine F (x1,x2,x3,x4)
c1=(x1+x2)**2
c2=(x1+x3)**2
c3=(x2+x3)**2

x4=c1+c2+c3
return
End

می بینیم که a,b,c,Result به ترتیب به x1 ، x2 ، x3 و x4 نسبت داده می شوند.
همان طور که می بینیم ترتیب اهمیت دارد و تفاوت نام در برنامه اصلی و زیر برنامه ها اهمیت ندارد. از مزایای این ویژگی در اختیار قرار دادن زیر برنامه ها به سایر کاربران بدون هیچ گونه تغییر در برنامه اصلی آنها و فقط با رعایت ساختار داده های ورودی زیر برنامه می باشد.
در ارتباط با استفاده از زیر برنامه ها متغیر های زیر برنامه کاملا مجزا از متغیرهای برنامه اصلی هستند. چنانچه خواسته شود بعضی از متغیر ها هم در برنامه اصلی و هم در زیر برنامه دارای ارزش یکسان باشند باید با دستور Common هم در برنامه اصلی و هم در زیر برنامه آنها را مشترک نمود. این دستور پیش از دستورات اجرایی نوشته می شود.
– باید دقت داشت متغیر ها یا آرایه هایی که با Common بین برنامه اصلی و زیر برنامه، مشترک تعریف می گردند باید در برنامه اصلی و زیر برنامه یکی باشند (یعنی فقط یکسان بودن نام الزامی نیست)
– آرایه ها را می توان به عنوان متغیر های زیر برنامه با دستور Common مشترک کرد. باید آرایه بدون درج حدود در دستور Common قرار گیرد

.
– نمی توان یک متغیر را هم در ورودی زیر برنامه داد و هم با دستور Common مشترک نمود.
Subroutine f(c1,c2,c3)
Real A(3,3)
Common A,x,y
Return

End

برای دریافت اینجا کلیک کنید