۲۸
اردیبهشت

جلسه ۱۷ : فایل خروجی و ورودی در فرترن

دسته‌بندی‌ها :

جزئیات
نوع محتواآموزشی

فهرست

مقدمه

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

باز و بسته کردن فایل ها در فرترن

قبل از استفاده از یک فایل باید فایل را باز کنید. فرمان برای باز کردن فایل ها برای خواندن یا نوشتن استفاده می شود. ساده ترین فرمان به این صورت است :

مثال :

open (unit = number, file = "name").

1	open (unit = number, file = "name").

با این حال، عبارت باز شدن ممکن است یک شکل کلی داشته باشد :

مثال :

open (list-of-specifiers)

1	open (list-of-specifiers)

جدول زیر رایج ترین توصیف کننده هایی که استفاده می شوند را تشریح می کند :

شماره	توضیحات
۱	UNIT=] u] شماره واحد شما می تواند هر عدد در محدوده ۹-۹۹ باشد و این نشان دهنده فایل است، شما ممکن است هر شماره را انتخاب کنید، اما هر فایل باز شده در برنامه باید یک شماره منحصر به فرد داشته باشد.
۲	IOSTAT= ios این شناسه وضعیت I / O است و باید یک متغیر صحیح باشد. اگر دستور open موفق باشد، مقدار ios برابر صفر است دز غیر این صورت مقدار آن غیر صفر است.
۳	ERR = err یک برچسب است که در صورت هر گونه خطا، پرش ها را کنترل می کند.
۴	FILE = fname نام فایل، یک رشته کاراکتر است.
۵	STATUS = sta وضعیت قبلی فایل را نشان می دهد. شامل یک رشته کاراکتر می باشد و می تواند یکی از سه مقدار NEW، OLD یا SCRATCH را داشته باشد. یک فایل scratch ایجاد شده و حذف می شود زمانی که برنامه به پایان می رسد یا بسته می شود.
۶	ACCESS = acc این حالت دسترسی به فایل است. می تواند هر دو مقدار SEQUENTIAL یا DIRECT را داشته باشد. همچنین به طور پیش فرض SEQUENTIAL است.
۷	FORM = frm وضعیت فرمت فایل را می دهد. می تواند هر دو مقدار FORMATTED یا UNFORMATTED را داشته باشد. به طور پیش فرض برابر UNFORMATTED است.
۸	RECL = rl طول هر رکورد را در یک فایل دسترسی مستقیم مشخص می کند.

پس از باز شدن فایل، عبارات خواندن و نوشتن قابل دسترسی است. بعد از انجام این کار باید با استفاده از عبارت بسته، بسته شود.
عبارت بسته دارای سینتکس زیر است :

مثال :

close ([UNIT = ]u[,IOSTAT = ios,ERR = err,STATUS = sta])

1	close ([UNIT = ]u[,IOSTAT = ios,ERR = err,STATUS = sta])

لطفا توجه داشته باشید که پارامترهای داخل براکت اختیاری هستند.

این مثال باز کردن یک فایل جدید برای نوشتن برخی داده ها به فایل را نشان می دهد.

مثال :

program outputdata   
implicit none

   real, dimension(100) :: x, y  
   real, dimension(100) :: p, q
   integer :: i  
   
   ! data  
   do i=1,100  
      x(i) = i * 0.1 
      y(i) = sin(x(i)) * (1-cos(x(i)/3.0))  
   end do  
   
   ! output data into a file 
   open(1, file = 'data1.dat', status = 'new')  
   do i=1,100  
      write(1,*) x(i), y(i)   
   end do  
   
   close(1) 
   
end program outputdata

program outputdata

implicit none

real, dimension(100) :: x, y

real, dimension(100) :: p, q

integer :: i

! data

do i=1,100

x(i) = i * 0.1

y(i) = sin(x(i)) * (1-cos(x(i)/3.0))

end do

! output data into a file

open(1, file = 'data1.dat', status = 'new')

do i=1,100

write(1,*) x(i), y(i)

end do

close(1)

end program outputdata

هنگامی که کد بالا کامپایل شده و اجرا می شود، فایل data1.dat را ایجاد می کند و مقادیر x و y array را در آن می نویسد. و سپس فایل را می بندد.

خواندن و نوشتن در فایل

عبارات read و write به ترتیب برای خواندن و نوشتن به یک فایل به ترتیب استفاده می شود.
آنها سینتکس زیر را دارند :

مثال :

read ([UNIT = ]u, [FMT = ]fmt, IOSTAT = ios, ERR = err, END = s)
write([UNIT = ]u, [FMT = ]fmt, IOSTAT = ios, ERR = err, END = s)

1 2	read ([UNIT = ]u, [FMT = ]fmt, IOSTAT = ios, ERR = err, END = s) write([UNIT = ]u, [FMT = ]fmt, IOSTAT = ios, ERR = err, END = s)

اکثر مشخصه ها در جدول فوق مورد بحث قرار گرفته اند.
مشخص کننده END = s یک برچسب عبارت است که در آن برنامه به پایان می رسد، زمانی که به فایل پایان می رسد.
مثال
این مثال خواندن و نوشتن در یک فایل را نشان می دهد .در این برنامه فایل را می خوانیم، و در آخرین مثال ایجاد شده، data1.dat،آن را روی صفحه نمایش می دهیم.

مثال :

program outputdata   
implicit none   

   real, dimension(100) :: x, y  
   real, dimension(100) :: p, q
   integer :: i  
   
   ! data  
   do i = 1,100  
      x(i) = i * 0.1 
      y(i) = sin(x(i)) * (1-cos(x(i)/3.0))  
   end do  
   
   ! output data into a file 
   open(1, file = 'data1.dat', status='new')  
   do i = 1,100  
      write(1,*) x(i), y(i)   
   end do  
   close(1) 

   ! opening the file for reading
   open (2, file = 'data1.dat', status = 'old')

   do i = 1,100  
      read(2,*) p(i), q(i)
   end do 
   
   close(2)
   
   do i = 1,100  
      write(*,*) p(i), q(i)
   end do 
   
end program outputdata

program outputdata

implicit none

real, dimension(100) :: x, y

real, dimension(100) :: p, q

integer :: i

! data

do i = 1,100

x(i) = i * 0.1

y(i) = sin(x(i)) * (1-cos(x(i)/3.0))

end do

! output data into a file

open(1, file = 'data1.dat', status='new')

do i = 1,100

write(1,*) x(i), y(i)

end do

close(1)

! opening the file for reading

open (2, file = 'data1.dat', status = 'old')

do i = 1,100

read(2,*) p(i), q(i)

end do

close(2)

do i = 1,100

write(*,*) p(i), q(i)

end do

end program outputdata

هنگامی که کد بالا کامپایل شده و اجرا می شود، نتیجه ی زیر را تولید می کند:

مثال :

0.100000001  5.54589933E-05
0.200000003  4.41325130E-04
0.300000012  1.47636665E-03
0.400000006  3.45637114E-03
0.500000000  6.64328877E-03
0.600000024  1.12552457E-02
0.699999988  1.74576249E-02
0.800000012  2.53552198E-02
0.900000036  3.49861123E-02
1.00000000   4.63171229E-02
1.10000002   5.92407547E-02
1.20000005   7.35742599E-02
1.30000007   8.90605897E-02
1.39999998   0.105371222    
1.50000000   0.122110792    
1.60000002   0.138823599    
1.70000005   0.155002072    
1.80000007   0.170096487    
1.89999998   0.183526158    
2.00000000   0.194692180    
2.10000014   0.202990443    
2.20000005   0.207826138    
2.29999995   0.208628103    
2.40000010   0.204863414    
2.50000000   0.196052119    
2.60000014   0.181780845    
2.70000005   0.161716297    
2.79999995   0.135617107    
2.90000010   0.103344671    
3.00000000   6.48725405E-02
3.10000014   2.02930309E-02
3.20000005  -3.01767997E-02
3.29999995  -8.61928314E-02
3.40000010  -0.147283033    
3.50000000  -0.212848678    
3.60000014  -0.282169819    
3.70000005  -0.354410470    
3.79999995  -0.428629100    
3.90000010  -0.503789663    
4.00000000  -0.578774154    
4.09999990  -0.652400017    
4.20000029  -0.723436713    
4.30000019  -0.790623367    
4.40000010  -0.852691114    
4.50000000  -0.908382416    
4.59999990  -0.956472993    
4.70000029  -0.995793998    
4.80000019  -1.02525222    
4.90000010  -1.04385209    
5.00000000  -1.05071592    
5.09999990  -1.04510069    
5.20000029  -1.02641726    
5.30000019  -0.994243503    
5.40000010  -0.948338211    
5.50000000  -0.888650239    
5.59999990  -0.815326691    
5.70000029  -0.728716135    
5.80000019  -0.629372001    
5.90000010  -0.518047631    
6.00000000  -0.395693362    
6.09999990  -0.263447165    
6.20000029  -0.122622721    
6.30000019   2.53026206E-02
6.40000010   0.178709000    
6.50000000   0.335851669    
6.59999990   0.494883657    
6.70000029   0.653881252    
6.80000019   0.810866773    
6.90000010   0.963840425    
7.00000000   1.11080539    
7.09999990   1.24979746    
7.20000029   1.37891412    
7.30000019   1.49633956    
7.40000010   1.60037732    
7.50000000   1.68947268    
7.59999990   1.76223695    
7.70000029   1.81747139    
7.80000019   1.85418403    
7.90000010   1.87160957    
8.00000000   1.86922085    
8.10000038   1.84674001    
8.19999981   1.80414569    
8.30000019   1.74167395    
8.40000057   1.65982044    
8.50000000   1.55933595    
8.60000038   1.44121361    
8.69999981   1.30668485    
8.80000019   1.15719533    
8.90000057   0.994394958    
9.00000000   0.820112705    
9.10000038   0.636327863    
9.19999981   0.445154816    
9.30000019   0.248800844    
9.40000057   4.95488606E-02
9.50000000  -0.150278628    
9.60000038  -0.348357052    
9.69999981  -0.542378068    
9.80000019  -0.730095863    
9.90000057  -0.909344316    
10.0000000  -1.07807255

100

0.100000001 5.54589933E-05

0.200000003 4.41325130E-04

0.300000012 1.47636665E-03

0.400000006 3.45637114E-03

0.500000000 6.64328877E-03

0.600000024 1.12552457E-02

0.699999988 1.74576249E-02

0.800000012 2.53552198E-02

0.900000036 3.49861123E-02

1.00000000 4.63171229E-02

1.10000002 5.92407547E-02

1.20000005 7.35742599E-02

1.30000007 8.90605897E-02

1.39999998 0.105371222

1.50000000 0.122110792

1.60000002 0.138823599

1.70000005 0.155002072

1.80000007 0.170096487

1.89999998 0.183526158

2.00000000 0.194692180

2.10000014 0.202990443

2.20000005 0.207826138

2.29999995 0.208628103

2.40000010 0.204863414

2.50000000 0.196052119

2.60000014 0.181780845

2.70000005 0.161716297

2.79999995 0.135617107

2.90000010 0.103344671

3.00000000 6.48725405E-02

3.10000014 2.02930309E-02

3.20000005 -3.01767997E-02

3.29999995 -8.61928314E-02

3.40000010 -0.147283033

3.50000000 -0.212848678

3.60000014 -0.282169819

3.70000005 -0.354410470

3.79999995 -0.428629100

3.90000010 -0.503789663

4.00000000 -0.578774154

4.09999990 -0.652400017

4.20000029 -0.723436713

4.30000019 -0.790623367

4.40000010 -0.852691114

4.50000000 -0.908382416

4.59999990 -0.956472993

4.70000029 -0.995793998

4.80000019 -1.02525222

4.90000010 -1.04385209

5.00000000 -1.05071592

5.09999990 -1.04510069

5.20000029 -1.02641726

5.30000019 -0.994243503

5.40000010 -0.948338211

5.50000000 -0.888650239

5.59999990 -0.815326691

5.70000029 -0.728716135

5.80000019 -0.629372001

5.90000010 -0.518047631

6.00000000 -0.395693362

6.09999990 -0.263447165

6.20000029 -0.122622721

6.30000019 2.53026206E-02

6.40000010 0.178709000

6.50000000 0.335851669

6.59999990 0.494883657

6.70000029 0.653881252

6.80000019 0.810866773

6.90000010 0.963840425

7.00000000 1.11080539

7.09999990 1.24979746

7.20000029 1.37891412

7.30000019 1.49633956

7.40000010 1.60037732

7.50000000 1.68947268

7.59999990 1.76223695

7.70000029 1.81747139

7.80000019 1.85418403

7.90000010 1.87160957

8.00000000 1.86922085

8.10000038 1.84674001

8.19999981 1.80414569

8.30000019 1.74167395

8.40000057 1.65982044

8.50000000 1.55933595

8.60000038 1.44121361

8.69999981 1.30668485

8.80000019 1.15719533

8.90000057 0.994394958

9.00000000 0.820112705

9.10000038 0.636327863

9.19999981 0.445154816

9.30000019 0.248800844

9.40000057 4.95488606E-02

9.50000000 -0.150278628

9.60000038 -0.348357052

9.69999981 -0.542378068

9.80000019 -0.730095863

9.90000057 -0.909344316

10.0000000 -1.07807255

کلام آخر

آموزش فایل خروجی و ورودی در فرترن و باز و بسته کردن فایل ها در فرترن به پایان رسید.همچنین شما می توانید یک یا چند فایل را بخوانید و بنویسید. عبارات OPEN، WRITE، READ و CLOSE به شما این امکان را می دهند.

QR: جلسه ۱۷ : فایل خروجی و ورودی در فرترن

به اشتراک بگذارید

IOSTAT در فرترن ,آموزش fortran ,باز و بسته کردن فایلها در فرترن ,عبارات OPEN، WRITE در فرترن ,فایل خروجی و ورودی در فرترن

دیدگاه کاربران

تعداد دیدگاه : 0

پی وی لرن – آموزش برنامه نویسی و طراحی وب سایت

دوره های آموزشی آکادمی پی وی لرن (پروژه محور و ویژه بازار کار)

جلسه ۱۷ : فایل خروجی و ورودی در فرترن

مقدمه

باز و بسته کردن فایل ها در فرترن

شماره

توضیحات

۱

۲

۳

۴

۵

۶

۷

۸

لطفا توجه داشته باشید که پارامترهای داخل براکت اختیاری هستند.

خواندن و نوشتن در فایل

کلام آخر

لیست مطالب دوره

مطالب ویژه

دسته های اصلی

برگه ها

بلاگ