Microsoft PowerPoint - 講義10改.pptx

Size: px

Start display at page:

Download "Microsoft PowerPoint - 講義10改.pptx"

へいぞうかいて
5 years ago
Views:

1 計算機プログラミング ( 後半組 ) Computer Programming (2nd half group) 担当 : 城﨑知至 Instructor: Tomoyuki JOHZAKI 第 9 回ファイルの入出力 Lesson 9 input/output statements 教科書 7.3 章 1

2 ファイル入出力 : サンプル 1 下記プログラムを outin1.f90 として作成しコンパイル実してみる Program outin1 implicit none character(len=10) :: ch10 character(1),dimension(10) :: ch1 integer :: i ch10 = "abcdefghij" write(1,'(a10)') ch10 rewind(1) read(1,'(10a1)') ch1 do i=1,10 write(*,'(a,i2,a,a1)') "ch1(",i,")= ",ch1(i) end do End program outin1 実すると outin.f90 があるフォルダ内に新たなファイルが作成されるそのファイルの中には何が書かれているか? 画には何が出されたか? を確認する

3 ファイル入出力 : サンプル 2 outin1.f90 をコピーして outin2.f90 に保存し下記の修正をいコンパイル実してみる Program outin2 implicit none character(len=10) :: ch10 character(1),dimension(10) :: ch1 integer :: i ch10 = "abcdefghij" open(1,file= OUT.dat ) write(1,'(a10)') ch10 rewind(1) read(1,'(10a1)') ch1 close(1) do i=1,10 write(*,'(a,i2,a,a1)') "ch1(",i,")= ",ch1(i) end do End program outin2 実結果の画への表は同じだがフォルダ内に OUT.dat というファイルが作成されているはず

4 なぜデータ入出力が必要か計算条件等毎回書き直してコンパイルするのは倒 read(*,*) で読み込む場合でも値が多いと打ち込むのが倒データとして値 ( 計算条件 ) を残しておく計算結果を保存したい計算結果をグラフ化したいファイルによる出! 8

5 なぜデータ入出力が必要かプログラムファイル ( 計算条件等 ) プログラミングコンパイル実出ファイル ( 計算条件計算結果等 ) 解析可視化

6 データの入出力 1. 標準入出力 ( 復習 )

7 データの入出力 1 標準入出力 1 A. 出 ( テキスト p.3) print は基本的に画への出のみ write は画出とファイルへの出ができる標準出 ( 画への出 ) 法 ( 第 2, 5 回講義の復習 ) 1. 書式指定なし print *, 出項並び例 ) print *, A, B,C write(*,*) 出項並び例 ) write(*,*) A, B,C 2. 書式付き print 書式, 出項並び例 ) print '(1x,I3)', m write(*, 書式 ) 出項並び例 ) write(*,'(1x,i3)') m write () 中の最初の * は出先が標準 ( 画 ) 出であることをす print の * やwrite () 中の2 番の * は書式が標準の書式であることを指している書式は特定の書式 ( データを書き出す際の形式 ; 編集記述や字数表現 ) を指定する際に使 ( 第 5 回講義資料 & テキスト 5.2 章 p.46~)

8 データの入出力 1 標準入出力 2 B. ( テキスト p.3) read は標準 ( キーボード ) とファイルからのができる () 付きと () 無しの 2 通りの記述法がある標準 ( キーボードからの ) ( 第 2, 5 回講義復習 ) 1. 書式なし read *, 項並び例 ) read *, A, B,C read(*,*) 項並び例 ) read(*,*) A, B,C 2. 書式付き read 書式, 項並び例 ) read '(1x,I3)', m read(*, 書式 ) 項並び例 ) read(*, '(1x,I3)') m read () 中の最初の * は元が標準 ( キーボード ) であることをす () を使わない記述の場合は原則として標準である括弧なしread の * や括弧付きread () 中の2 番の * は書式が標準の書式であることを指している書式は特定の書式を指定する際に使 ( 第 5 回講義資料 & テキスト 5.2 章 p.46~)

9 データの入出力 2. ファイルによる入出力

10 ファイルによるデータの入出力 1 数値計算やデータ解析における出計算条件等の設定解析データの読み込み出計算条件をメモとして出する計算結果をデータとして出する

11 ファイルによるデータの入出力 2 A. ファイル指定出の使 ( テキスト 7.3 章 p.99~) read (unit 番号書式 ) 項並び write(unit 番号書式 ) 出項並び例 ) read(1,*) A, B, C 例 ) write(10,ʼ(3(1x,1e12.5))ʼ) A, B, C unit 番号装置識別 read ではどこからデータを読むか?write ではどこにデータを出するかを指定する番号 * 標準出 ( キーボード画出 ) これまで使してきた番号 open で割り当てられたファイル装置への出 ( からの ) 5,6は特別な番号で 5 open で指定がなければ標準 (read に使 ) 6 open で指定がなければ標準出 (write に使 ) 字変数指定された字変数に出

12 ファイルによるデータの入出力 3 具体例 read(1,*) A, B, C write(10,ʼ(3(1x,1e12.5))ʼ) A, B, C 特にファイル名を指定しない場合は fort.unit 番号というファイルが規定値となる read(1,*) unit 番号 1 のファイル fort.1 からデータA, B, Cを読み込む Write(10, ) unit 番号 10 のファイル fort.10 にデータA, B, Cをʼ1x,1e12.5ʼ の書式で出するファイル名を指定する場合は次にす open と close を使する

13 ファイルによるデータの入出力 4 open open( ファイル装置番号 file= ファイル名 [, 制御項 ]) read や write で指定した unit 番号とファイルを結び付ける特定のファイルをいた出の場合必ず read や write の前に open により結びつけをう必要があるファイル装置番号 ; 負でない整定数もしくは整数型変数 ( 式 )= unit 番号ファイル名 : 出のファイル名を字定数 ( または字変数 ) で与える例 ) 実ファイルと同じフォルダにある input.dat を開く場合,file = input.dat, 例 ) 字変数 character(len=10) :: fname = input.dat をいる場合,file =fname, 異なるフォルダにあるファイルを開く場合はフォルダの絶対座標 or 実ファイルのあるフォルダからの相対座標を明記するつ上のフォルダならば../input.dat ( 相対座標 ) つ下にある dat フォルダにある場合は./dat/input.dat ( 相対座標 ) 制御項 ( 省略可 ) 本講義では使せず興味があればテキスト web 等を参照のこと close close( ファイル装置名 ) open でったunit 番号と装置 ( ファイル ) の結びつけを切る必要な出が終わった段階で close をれるようにする

14 ファイルによるデータの入出力 5 1. 予めデータを準備しておく実プログラムと同じ場所 ( フォルダ ) に input.dat を作成 1 : コメント : データの説明 ( 整数配列, 法 2) 2 : 整数値数値間はカンマで区切った 3 : コメント : データの説明 ( 単精度実数配列, 法 2) 4 : 実数値数値間はスペースで区切った input.dat からの output.dat への出 2.input.dat を装置番号 1 として open してデータを読み込みその数値データを装置番号 2 の output.dat に出する Program inout implicit none integer :: i(2) real :: r(2) open(1,file= input.dat ) read(1,*)!1 を読みばす read(1,*) i(:)!2 データ読み込み read(1,*)!3 データを読みばす read(1,*) r!4 データ読み込み close(1) open(2,file= output.dat ) write(2,*) i=,i write(2,*) r=,r close(2) End program inout!iの出!rの出

15 ファイルによるデータの入出力 6 Program inout implicit none integer :: i(2) real :: r(2) open(1,file= input.dat ) read(1,*)! Input.datの1 をスキップする read(1,*) i(:)! 2 からi = (i(1),i(2)) を読み込む read(1,*)! 3 をスキップする read(1,*) r! 4 からr = (r(1),r(2)) を読み込む close(1) End program inout read で項を書かない場合 (read(1,*) だけの場合 ) 何も読み込まず1 スキップする標準ファイルいずれも同じデータの区切りはカンマかスペース標準と同じファイルの1 にデータ数が多数ある場合は read で指定したデータまでを読み後は読まないファイルの1 のデータ数がread 指定数より少ない場合はファイルの次のに移り必要なデータ数になるまで読む

16 ファイルによるデータの入出力 7 Program inout implicit none integer :: i(2) real :: r(2) open(1,file= input.dat ) read(1,*)! read(1,*) i! read(1,*)! read(1,*) r! close(1) End program inout input.dat いずれの場合も出結果は同じ output.dat

17 演習台形則で面積を求めるプログラム ( 演習 5 5, テキスト p.56) で画面出力していた結果をファイル名 result.dat のファイルに出力する出力内容は各分割数ごとに分割数積分値相対誤差の絶対値出力ファイル名を result.dat としこのファイルに結果を出力する出力は各分割数ごとに 1 行に分割数積分値相対誤差の絶対値を出力する

18 result.dat サンプル

情報処理概論（第二日目）

情報処理概論（第二日目）情報処理概論工学部物質科学工学科応用化学コース機能物質化学クラス第 8 回 2005 年 6 月 9 日前回の演習の解答例多項式の計算 ( 前半 ): program poly implicit none integer, parameter :: number = 5 real(8), dimension(0:number) :: a real(8) :: x, total integer