Fortran的基本輸入輸出

迄今為止，我們已經(jīng)看到，我們可以使用打印*語(yǔ)句讀取分別使用讀取*語(yǔ)句鍵盤和顯示輸出數(shù)據(jù)到屏幕上。輸入輸出的形式是自由格式的 I / O，它被稱為列表控制的輸入輸出。

自由格式簡(jiǎn)單的I / O的形式為：

read(*,*) item1, item2, item3...
print *, item1, item2, item3
write(*,*) item1, item2, item3...

然而，格式化I / O讓您的數(shù)據(jù)傳輸更多的靈活性。

格式化輸入輸出

格式化輸入輸出有語(yǔ)法如下：

read fmt, variable_list 
print fmt, variable_list 
write fmt, variable_list 

哪里，

• FMT是格式規(guī)范

• 可變列表被從鍵盤被讀或?qū)懺谄聊簧系淖兞康牧斜?/p>

格式規(guī)范定義，其中顯示格式化的數(shù)據(jù)的方式。它由一個(gè)字符串，包含編輯描述符的括號(hào)中的列表。

一個(gè)編輯描述符指定的精確格式，例如，寬度，其中顯示后小數(shù)點(diǎn)等，數(shù)字字符和數(shù)字。

例如：

Print "(f6.3)", pi

下表描述了描述：

以下符號(hào)用于與格式描述符：

例1

program printPi

   pi = 3.141592653589793238 
   
   Print "(f6.3)", pi 
   Print "(f10.7)", pi
   Print "(f20.15)", pi 
   Print "(e16.4)", pi/100 
   
end program printPi

當(dāng)上述代碼被編譯和執(zhí)行時(shí)，它產(chǎn)生了以下結(jié)果：

3.142
3.1415927
3.141592741012573
0.3142E-01

例2

program printName
implicit none

   character (len=15) :: first_name
   print *,' Enter your first name.' 
   print *,' Up to 20 characters, please'
   
   read *,first_name 
   print "(1x,a)",first_name
   
end program printName

當(dāng)上述代碼被編譯和執(zhí)行時(shí)，它產(chǎn)生了以下結(jié)果：（假設(shè)用戶輸入的名稱扎拉）

Enter your first name.
Up to 20 characters, please
Zara 

例3

program formattedPrint
implicit none

   real :: c = 1.2786456e-9, d = 0.1234567e3 
   integer :: n = 300789, k = 45, i = 2
   character (len=15) :: str="Tutorials Point"
   
   print "(i6)", k 
   print "(i6.3)", k 
   print "(3i10)", n, k, i 
   print "(i10,i3,i5)", n, k, i 
   print "(a15)",str 
   print "(f12.3)", d
   print "(e12.4)", c 
   print '(/,3x,"n = ",i6, 3x, "d = ",f7.4)', n, d
   
end program formattedPrint

當(dāng)上述代碼被編譯和執(zhí)行時(shí)，它產(chǎn)生了以下結(jié)果：

45
045
300789 45  2
300789 45  2
Tutorials Point
123.457
0.1279E-08

n = 300789 d = *******

該聲明的格式

格式語(yǔ)句允許您在一個(gè)聲明中混合和匹配字符，整數(shù)和實(shí)輸出。下面的例子說(shuō)明了這一點(diǎn)：

program productDetails 
implicit none 

   character (len=15) :: name
   integer :: id 
   real :: weight
   name = 'Ardupilot'
   id = 1
   weight = 0.08
   
   print *,' The product details are' 
   
   print 100
   100 format (7x,'Name:', 7x, 'Id:', 1x, 'Weight:')
   
   print 200, name, id, weight 
   200 format(1x, a, 2x, i3, 2x, f5.2) 
   
end program productDetails

當(dāng)上述代碼被編譯和執(zhí)行時(shí)，它產(chǎn)生了以下結(jié)果：

The product details are
Name:       Id:    Weight:
Ardupilot   1       0.08