瀬戸内海は、本州、四国、九州に囲まれた我が国最大の内海でです．大小1,000を数える島々が独特の景観をなし，世界的にも比類のない美しさを誇る景勝地として知られています（右側写真：大小の島が点在する瀬戸内海）． 図-1は瀬戸内海の領域図です．瀬戸内海は社会環境と自然が調和した”変化に富み平和にして優美な風景”を持ち、現在は ほぼ全域が国立公園に指定されています．しかし高度経済成長による1960年代後半からの急激な都市化・産業・人口集中により環境が悪化し，一時期には” 瀕死の海”とまで言われるようになりました．
近年では，排水規制などで水質はかなり改善され，豊かな自然が戻りましたが，いまだに大阪湾の奥部や広島湾の奥部などの流れが停滞している”閉鎖性水域”では，赤潮が発生したり水質・底質の改善が遅れていたりしています．
そのため，私たち海洋技術者は，海洋環境保全・改善のための技術を現在さまざまな角度から模索をおこなっています．
図-1 瀬戸内海領域図
|
NO |
海 域 名 |
年 度 |
|||||||||
|
53 |
55 |
56 |
57 |
58 |
59 |
60 |
61 |
62 |
63 |
||
|
1 |
紀伊水 道 東部 |
7.4 |
11 |
10.3 |
7.9 |
10.5 |
11.6 |
7.1 |
7.9 |
7.4 |
6.8 |
|
2 |
紀伊水 道 西部 |
6.3 |
6.9 |
8.4 |
8.1 |
9.1 |
9 |
6.4 |
6.5 |
5.3 |
6 |
|
3 |
大阪湾 北部 |
3.7 |
3.1 |
3.1 |
2.9 |
2.6 |
2.7 |
1.9 |
3.5 |
3.6 |
3.1 |
|
4 |
大阪湾 南部 |
4.9 |
5.6 |
7.1 |
6.9 |
5.5 |
7.6 |
5.2 |
5.8 |
5.7 |
4.1 |
|
5 |
播磨灘 北部 |
5 |
5.3 |
6.1 |
6.2 |
6 |
6.3 |
5.3 |
5 |
6 |
6.3 |
|
6 |
播磨灘 南部 |
6.6 |
7.4 |
6.7 |
8.3 |
7.7 |
8.4 |
7.3 |
6.3 |
10 |
8.2 |
|
7 |
備讃瀬 戸 東部 |
4.9 |
3.4 |
5.7 |
5.4 |
4.6 |
4.3 |
3.3 |
3.7 |
3.7 |
4.1 |
|
8 |
備讃瀬 戸 西部 |
4.7 |
3.8 |
4.4 |
4.8 |
5.2 |
4.3 |
4 |
3.3 |
4.2 |
3.6 |
|
9 |
備後灘 |
5.8 |
4.7 |
5.3 |
5.8 |
5.4 |
4.9 |
4.2 |
3.9 |
4.9 |
4.9 |
|
10 |
燧灘 |
7.7 |
5.8 |
6.8 |
6.9 |
6.8 |
7.4 |
6.4 |
5.7 |
6 |
6.4 |
|
11 |
安芸灘 |
6.9 |
5.8 |
6.1 |
6.7 |
5.6 |
6 |
5 |
4.8 |
5.3 |
5.6 |
|
12 |
広島湾 |
5.8 |
4.6 |
5 |
6.8 |
5.4 |
5.6 |
4.1 |
3.8 |
5.6 |
6.7 |
|
13 |
伊予灘 東部 |
8.6 |
5.9 |
6.5 |
7.2 |
6.9 |
9 |
7.2 |
6.8 |
6.7 |
7.2 |
|
14 |
伊予灘 西部 |
9 |
8.4 |
7.4 |
10.4 |
8 |
8.1 |
7 |
6.8 |
7.8 |
8.1 |
|
15 |
周防灘 東部 |
8 |
6.8 |
8 |
7.5 |
6.6 |
6.8 |
6.1 |
5.2 |
6.1 |
7 |
|
16 |
周防灘 西部 |
4.6 |
4.9 |
4.1 |
5 |
4.4 |
4.1 |
3.4 |
3.4 |
3.9 |
4.2 |
|
17 |
豊後水 道 |
12.3 |
11.7 |
12 |
12.8 |
11.1 |
11.3 |
10.8 |
10.7 |
11.6 |
12.5 |
|
18 |
響灘 |
5.2 |
4.6 |
5.2 |
6.3 |
6.3 |
4.6 |
4.7 |
5.9 |
4.9 |
4.6 |
３．課題
-
表より，①各海域で一番透明度が大きい数値および，②全海域で一番透明度が高い海域名および数値を捜し，結果を出力するプログラムを作成しなさい．
- プログラム用観測データの作成
- 例：vi seto.dat →「プログラム用観測データ」をコピーして貼り付ける→上書き終了→seto.datファイルが作られた
- プログラム作成時のヒント： ★データを読み込むプログラム
- 入力する変数および海域名の配列を宣言する．
（配列例：海域名nameは文字型1次元，透明度valは実数型2次元の配列）．(変数や配列の宣言例） dimension val(10,18)
dimension name(18)
character*20 namedimension val(10,18)
character*20 name(18)
- seto.datをオープンする（例：open(10,file='seto.dat',status='old')など)
- seto.datの内容を書式付きで読みこむ
- 横一列は文字,実数のデータ並びなのでFormatで書式指定
- 書式指定のヒント
( *印は下図を参考にそれぞれの変数に対応した数字を使う )例： read ( 10, ' ( i*, a*, *f*.* )' ) iy, name ( j ), (val ( i, j ), i=1, 10 )
（整数2桁，19文字，小数点以下1桁の実数が10個並ぶ）
- 下方向へ同じデータが並んでいるので、Do-Loopで繰り返し読みこむ
- 読み込み終わったファイルは閉じる（例：close (10) )
- 条件判断式で各海域毎に透明度が一番大きい数値を抽出する
（先週の課題とほぼ同じ？） - 条件判断式で各海域毎の透明度が一番大きい値を比較して全海域で一番透明度が大きい海域名および数値を抽出する
（今度は海域ごとで最大値を比較する） - 結果を出力
- 提出期限は8月1日(Mon) 17:00 (JST)
- 氏名・学籍番号・ソース・プログラムおよび実行結果をメールにて送信しなさい
- メール・アドレスは
inu@nagaokaut.ac.jp
- オリジナルプログラム作成者には高得点を
つけたいので，その人はメール送信時に” 一人で作ったぞ！"という旨のコメント文をつけて強調すること．
（他にも同じパターンのプログラムがあると，みんな同じ低い点数で採点します） - どうしても完成できなかった人は、どこがわからなかったかを明記して，途中のプログラムを送信すること．
（内容を見ればどこまで理解できているのか分かるので、単位をつけれる可能性もあります） - オリジナルプログラムを含めて嘘はつかないこと．嘘を発見した場合には激しく減点するので注意
ヒント
★データを処理するプログラム
注意