クイズ集計用プログラム


****** main ******
      character*300 cr1
      character*70 cr2,cr3
      integer count,score,error
      
      
      
   10 continue
      open(7,file='iso.txt')
      write(*,*)"続けますか？ （N/nでやめる）"
      
      count=0
      score=0
      error=0
      
   20 continue
      read(7,*, end=90)cr1,cr2
      count=count+1
      write(*,*) cr1
      write(*,*)"これに対する用語は？"
      read(*,*)cr3
      if(cr2.eq.cr3)then
        write(*,*)"正解です！"
        score=score+1
      else
        write(*,*)"不正解！正解は",cr2
        error=error+1
      end if
      goto 20
      
   90 continue
      
      close(7)
      write(*,*)"問題数",count
      write(*,*)"正答",score
      write(*,*)"誤答",error
      
      write(*,*)"続けますか？[Y]/[N]"
      read(*,*) cr3
      if(cr3.eq.'N'.or.cr3.eq.'n')stop
      
      goto 10
      
      end

クイズ問題（ISO）


3.5　大気、水、土地、天然資源、植物、動物、人及びそれらの相互関係を含む、組織の活動をとりまくもの。,環境
3.17　起こり得る不適合の原因を除去するための処置。,予防処置
3.2　組織の環境方針と整合して全体的な環境パフォーマンスの改善を達成するために環境マネジメントシステムを向上させる繰り返しのプロセス。,継続的改善
3.4　情報及びそれを保持する媒体。,文書
3.10　組織の環境側面についてのその組織のマネジメントの測定可能な結果。,環境パフォーマンス
3.19　活動又はプロセスを実行するために規定された方法。,手順
3.14　組織が定めた環境マネジメントシステム監査基準が満たされている程度を判定するために，監査証拠を収集し，それを客観的に評価するための体系的で，独立し，文書化されたプロセス。,内部監査
3.4　情報及びそれを保持する媒体　参考1．媒体としては，紙，磁気、電子式若しくは光学式コンピュータディスク、写真若しくはマスターサンプル、又はこれらの組合せがあり得る。　参考2．JIS_Q_9000：2000．3.7.2から部分的に採用。,文章
3.18　有害な環境影響を低減するために、あらゆる種類の汚染物質又は廃棄物の発生、排出を回避し、低減し、管理するためのプロセス、操作、技法、材料、製品、サービス又はエネルギーを使用すること,汚染の予防
3.7　有害か有益かを問わず，全体的に又は部分的に組織の環境側面から生じる，環境に対するあらゆる変化。,環境影響
3.9　組織が達成を目指して自ら設定する，環境方針と整合する全般的な環境の到着点。,環境目的
3.12　環境目的から導かれ，その目的を達成するために目的に合わせて設定される詳細なパフォーマンス要求事項で，組織又はその一部に適応されるもの．,環境目標
3.8　組織のマネジメントシステムの一部で，環境方針を策定し，実施し，環境側面を管理するために用いられるもの。,環境マネジメントシステム
3.15　要求事項を満たしていないこと。,不適合
3.16　法人か否か，公的か私的かを問わず，独自の機能及び管理体制を持つ，企業，会社，事業所，官公庁若しくは結合体。　参考　複数の事業単位をもつ組織の場合には，単一の事業単位を一つの組織と定義してもよい。,組織
3.1　監視を行う力量をもった人。,監視員
3.13　組織の環境パフォーマンスに関心を持つかまたはその影響を受ける人又はグループ。,利害関係者
3.6　環境と相互に作用する可能性のある，組織の環境側面から生じる，環境に対するあらゆる変化,環境側面
3.20　達成した結果を記述した，または実施した活動の証拠を提供する文書。,記録