• 締切済み

fortran95でのプログラムの課題なんですが教えてください

fortran95でのプログラムの課題なんですが教えてください 生徒数20人分の学籍番号と1教科の採点結果を提示する。 これらのデータから、最高点、最低点、平均点、標準偏差を求める。さらに、各生徒の成績の偏差値を計算し、成績順に並べ替える作業を複数のサブルーチンを用いてプログラムせよ。 表示項目は、 ・最高点、最低点、平均点、標準偏差 ・順位、学籍番号、素点、偏差値、評価（成績順リスト） とし、結果を書式設定を用いて表示させたものを、プログラムの後部にコメント文として添付すること。実数のデータは小数点第2位までの表示とする。提出ファイル名は（reportfinal.f95）とすること。 なお、生徒の成績についてはファイルから読み込むこととし、データは７月１３日に提示するものを使用すること。 評価は、90点以上をA、80～89点をB、70～79点をC、60～69点をD、60点未満をFと表示すること。 ※注意 ・レポートのファイル名はreportfinal.f95とする ・冒頭に自身のIDと氏名を付記すること。 ・表示された結果を、作成したプログラムの後部にコメント文として貼り付けて提出。 ・成績順に並べ替えを行って、成績の良い順に表示させる。 ・表示には書式設定を行うこと。 ・配列を用いること。 ・サブルーチンを複数使用すること。 ・数値の取り扱いについては、解説、参考資料を参照のこと このプログラムの作り方が最初以外全然わかりません 最初は INTEGER,DIMENSION(20):: TEN REAL,DIMENSION(20):: HEN CHARACTER(LEN=9),DIMENSION(20):: GAKUNUM OPEN(4,FILE='RepCard9.dat') DO I=1,20 READ(4,100)GAKUNUM(I),TEN(I) END DO CLOSE(4) 100 FORMAT(A9,I6) とやれと言うことだけ言われました 数値は[RepCard9.dat」というファイルを与えられていてその中に入っています 完全に行き詰っています。お願いします

みんなの回答

  • Tacosan
  • ベストアンサー率23% (3656/15482)
回答No.1

困っていることはわかるが, せめて「何をどこまで考えたのか」とか「どこまで理解できてどこがわからないのか」くらいは書いてくれないか?

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • Fortran77のプログラム実行時にエラー

    Windows98でCPad for Salford FTN77というソフトを使って、Fortran77のプログラミングをしています。そこで学校での課題で、下のようなプログラムを作ったのですが、実行すると次のようなエラーがでます。 The insrtuction at address 0373f5b0 attempted to read from an illegal location 0373f5b0 routine at address 373F5B0 [+0000] 00401000 main [+074f] で、ファイルに書き込めてるかどうかチェックすると、何も書き込めていません。どうすれば、ちゃんと動くのでしょうか。どなたか分かる方、宜しくお願いします。 プログラム↓ *生徒50人の成績を読み込み平均点などを計算し、ファイルに書き込む PROGRAM GOKAMOKU HEIKIN INTEGER N(1:50),EP(1:50),MP(1:50),JP(1:50),SP(1:50),CP(1:50) INTEGER SUM(1:50),K,I,L,J,M,Q REAL PAV(1:50),PVX(1:50),PSD(1:50),EAV,ESD,MAV,MSD,JAV,JSD REAL SAV,SSD,CAV,CSD CHARACTER FNAME*30,SHUTURYOKU*20,CN*50,SHUTURYOKU2*20 READ(5,*)FNAME READ(5,*)SHUTURYOKU OPEN(1,FILE=FNAME) DO 10 K=1,50 READ(1,*)N(K),EP(K),MP(K),JP(K),SP(K),CP(K) 10 CONTINUE CLOSE(1) *英語の平均点、標準偏差の計算 OPEN(2,FILE=SHUTURYOKU) CALL AVEETC(EP,EAV,ESD) WRITE(2,*)'英語の平均点・標準偏差' WRITE(2,300) EAV,ESD 300 FORMAT(2F6.2) *数学の平均点、標準偏差の計算 CALL AVEETC(MP,MAV,MSD) WRITE(2,*)'数学の平均点・標準偏差' WRITE(2,300) MAV,MSD *国語の平均点、標準偏差の計算 CALL AVEETC(JP,JAV,JSD) WRITE(2,*)'国語の平均点・標準偏差' WRITE(2,300) JAV,JSD *理科の平均点、標準偏差の計算 CALL AVEETC(SP,SAV,SSD) WRITE(2,*)'理科の平均点・標準偏差' WRITE(2,300) SAV,SSD *社会の平均点、標準偏差の計算 CALL AVEETC(CP,CAV,CSD) WRITE(2,*)'社会の平均点・標準偏差' WRITE(2,300) CAV,CSD *各生徒の合計点、平均点、標準偏差の計算 DO 50 K=1,50 SUM(K)=EP(K)+MP(K)+JP(K)+SP(K)+CP(K) PVX(K)=EP(K)**2+MP(K)**2+JP(K)**2+SP(K)**2+CP(K)**2 PAV(K)=REAL(SUM(K))/5.0 PSD(K)=SQRT(PVX(K)/5.0-PAV(K)**2) 50 CONTINUE WRITE(2,*)'各生徒の合計点、平均点、標準偏差' WRITE(2,*)'番号 合計 平均点 標準偏差' DO 60 K=1,50 WRITE(2,200)K,SUM(K),PAV(K),PSD(K) 60 CONTINUE 200 FORMAT(I3,I5,2F10.2) *合計点のヒストグラムを書く DO 70 J=0,9 JL=10*J JH=JL+9 CALL STR(SUM(J),CN) WRITE(2,400)JL,JH,CN 70 CONTINUE 400 FORMAT(1X,I2,'-',I2,'I',A50) *英語の点数順に並べ変え DO 20 L=1,49 DO 30 I=L+1,50 IF(EP(L).LT.EP(I)) THEN M=EP(I) EP(I)=EP(L) EP(L)=M Q=N(I) N(I)=N(L) N(L)=Q END IF 30 CONTINUE 20 CONTINUE *表示 WRITE(2,*)'英語の成績高い順' WRITE(2,*)'番号 点数' DO 40 J=1,50 WRITE(2,100)N(J),EP(J) 40 CONTINUE 100 FORMAT(I2,I3) END SUBROUTINE AVEETC(P,AV,SD) REAL AV,SD INTEGER P(1:50) WX=0.0 VX=0.0 DO 10 K=1,50 WX=WX+P(K) VX=VX+P(K)*P(K) 10 CONTINUE AV=REAL(WX)/50.0 SD=SQRT(REAL(VX)/50.0-AV**2) END SUBROUTINE STR(SUM,C) INTEGER SUM CHARACTER C*50 DO 10 K=1,50 IF(K.LE.SUM(K))THEN C(K:K)='*' ELSE C(K:K)=' ' END IF 10 CONTINUE END

  • Microsoft Visual Studio 2008で質問があるの

    Microsoft Visual Studio 2008で質問があるのですが… 課題で、テキストファイルに各生徒(架空の人物)の学籍番号、各教科の点数書いたファイルを作成し、そのファイルを読み取り、教科ごとと各生徒ごとの平均点、生徒ごとの平均点の高い順から降順に並べたものを画面に出力する(windows￥system～とかいうやつです)プログラムを作ったのですが、そこからさらにまた各生徒の得点分布(ヒストグラム)・偏差値を出力するプログラムの作り方がわかりません。生徒数は１０人、教科は５教科としています。 私はあまりこのソフトのことをわかってないので、伝わりにくい文章だったと思いますが、どうか得点分布・偏差値を求めるプログラムの作り方を教えていただけませんでしょうか…？

  • Fortranでのファイル名操作について

    　Fortranを使っているものです。 プログラムで、ファイル名は文字列形式でしか付けれないと思いますが、そのファイル名をメインプログラムから何か値をもらって、それをサブルーチンでファイル名につけるということはできるのでしょうか？ 　例えば、iをメインプログラムで１０～１００まで10ずつ動かすとします。そのiの値をわかりやすくするためにファイル名に付けたいと思っていて、do文でサブルーチン中でまわしてファイル名に入れる・・・なんてことは可能でしょうか？

  • ＦＯＲＴＲＡＮのプログラム

    今、実験の解析を行っています。 読み込みたいテキストファイルには -1,0.4 0,0,233 -1,0.9 ・・など左側には－１か０のどちらかがあります。 これを -1,0.4 -1,0.9 を含むファイルと 0,0.0233 を含むファイルの二つに分けたいのです。 今プログラムを作っているのですがどうしてもできません。 どうしたらいいのでしょうか？ program dat real x(10), y(10) open(7,file='test.txt') do i=1,10 read(7,*,end=200) x(i),y(i) end do do j=1,10 if(x(j).eq.0.0) then open(8,file='aftest1.txt') write(8,*) y(j) else open(9,file='aftest2.txt') write(9,*) y(j) end do close(8) close(9) 200 close(7) end

  • プログラム

    メイン画面 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ ＊　　　　メニュー画面　　　　　＊ ＊　　　成績の入力．．．１　　　＊ ＊　　　成績の出力．．．２　　　＊　 ＊　　　成績順並び替え．３　　　＊ ＊　　　終了．．．．．．４　　　＊ ＊　上記以外は　メニュー画面へ　＊ ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 成績の入力　画面 ＆＆＆＆＆＆＆＆＆＆＆＆＆＆＆＆＆ ＆　１人目　Ａ　さんの入力　　　＆ ＆　　　？？　点です　　　　　　＆ ＆　これで良いですか・・・・・５＆ ＆＆＆＆＆＆＆＆＆＆＆＆＆＆＆＆＆ 成績の出力　画面 ％％％％％％％％％％％％％％％％％ ％　１０人の成績と合計・平均　　％ ％　１人目　Ａ　さん　？？点　　％ ％　２人目　Ｂ　さん　？？点　　％ ％　　　　・　　　　　　　　　　％ ％　１０人の合計　　？？？点　　％ ％　１０人の平均　？？．？点　　％ ％％％％％％％％％％％％％％％％％ 成績の並び替え ＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ ＃　成績順　　　　　　　　　　　＃ ＃　１番目　　　　　？？点　　　＃ ＃　２番目　　　　　？？点　　　＃ ＃　　．　　　　　　　　　　　　＃ ＃　　．　　　　　　　　　　　　＃ ＃　１０人の合計　　　？？？点　＃ ＃　１０人の平均　　？？．？点　＃ ＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃　 終了画面 ！！！！！！！！！！！！！！！！！ ！これで成績の平均を求めるのを　！ ！　　　終わります。　　　　　　！ ！！！！！！！！！！！！！！！！！ 上記の人たちの成績を読み込んで、合計、平均、順位を求める。ＧＯＳＵＢを使い、画面通りのプログラムが進むもの。１０人のデーターキー　名前Ａ，Ｂ，Ｃ．Ｄ，Ｅ，Ｆ，Ｇ，Ｈ，Ｉ，Ｊ。上手く分かりません。どなたかプログラムの作り方を教えていただけませんか？ＢＡＳＩＣのプログラムモードで。点数は適当で良いです

  • FORTRAN７７のプログラム

    大学で、FORTRAN77のプログラミング授業で 「配列を用いてN人のテストの点数を読み込み、その平均点と分散を求めなさい。またその最高点と最低点を表示しなさい。ただし、負の点数の入力で計算をストップさせることにする。」 という課題がでました。自分なりにプリントなどを見つつ、以下のようにプログラミングしたのですが、平均点も分散も変な値がでます。また、最高点、最低点は表示されません。どこがおかしいのでしょうか？分かる方いらっしゃいましたら教えて下さい。 ちなみに分散は、(ΣXi^2)/N-(平均点)^2です。 あと気になる事は、コンパイル時に、「(ファイル名.exe)のタイムスタンプは変化していません」と表示されることです。そのあともう一度コンパイル＆実行をすると、プログラムは動くのですが、上書き保存する前の動きをするので、どうしたものかと困っています。 プログラム↓ PROGRAM HAIRETU HEIKINTEN INTEGER P,Q,N,K,A(1:N) REAL WX,VX,AV,SD,M WRITE(*,*)'負の点数を入力すると終了します' WX=0.0 VX=0.0 DO 10 K=1,N WRITE(*,*)'番号',K,'の点数は？' READ(*,*) A(K) IF(A(K).LT.0.0) GO TO 1 THEN WX=WX+A(K) VX=VX+(A(K)**2) 10 CONTINUE 1 AV=WX/REAL(K-1) SD=VX/REAL(K-1)-AV*AV DO 20 P=1,K-2 DO 30 Q=P+1,K-1 IF(A(P).GT.A(Q))THEN M=A(Q) A(Q)=A(P) A(P)=M END IF 30 CONTINUE 20 CONTINUE WRITE(*,100) AV WRITE(*,200) SD WRITE(*,300) K-1 WRITE(*,400) A(K-1) WRITE(*,500) A(1) 100 FORMAT(5X,'平均点=',F5.1) 200 FORMAT(5X,'分散=',F5.1) 300 FORMAT(5X,'生徒数=',I5) 400 FORMAT(5X,'最高点=',F5.1) 500 FORMAT(5x,'最低点=',F5.1) END

  • C言語からのFortranプログラムの呼び出し

    Fortranで記述した以下のような構成の有限要素法プログラムをC言語から呼び出したいのですが，具体的にどのようなコードを記述すればいいのかがわかりません．お教えいただけないでしょうか． サブルーチンinputおよびoutputでは入力および結果ファイルの入出力を行っています． 当方C言語はほぼ初心者です．Fortranのプログラミング環境としてはVisualStudio2005およびVisualFortran9.1を用いています． C言語のプログラミング環境としてはおなじくVisualStudio2005を使用したいとおもっております． [メインプログラム] open (5,file='input.dat') open (6,file='output.dat')　/入出力用のファイルを開く call input(parameter1) /各サブルーチンで有限要素法を実行 call bound(parameter2) call matrix(parameter3) call solve(parameter4) call output(parameter5) close (5) /入出力用のファイルを閉じる close (6) stop end

  • ソートプログラムについて

    ソートプログラムとして以下のように作成しました。 int main( ) { int i, j, temp; int ten[10] = { 98,34,67,89,99,23,54,21,10,65 }; for (i=0; i< 9; i++) { for(j=i+1; j<10; j++) { if (ten[i] < ten[j]) { temp = ten[i]; ten[i] = ten[j]; ten[j] = temp; } } } for (i = 0; i < 10; i++) { printf("SORT[%d] = %d\n",i,ten[i]); } } このプログラムを昇順で同じ数字が入力された場合、出力表示として 例： SORT[1]＝99 SORT[2]＝98 SORT[2]＝98 SORT[3]＝89 SORT[4]＝70 というようにしたいのですが、プログラムをどのように 書いていけば良いのかわかりません。 例のような出力にするにはどのようにすればいいのでしょうか 教えて下さい。

  • fortran77教えてください

    fortran77の問題で次のプログラムの作成の仕方を教えてください 整数A,B,Cを読み込み、それを係数とする２次方程式Ax^2+Bx+C=0の解を計算して表示するプログラムを サブルーチン副プログラムを用いて作成せよ（複素数型を使うこと） メインプログラムでは整数Ａ，Ｂ，Ｃの入力および解の出力および解の出力を行い解の計算はサブルーチン副プログラムで行うこと なお'keisan.txt'という名前のデータファイルに結果を出力するように 計算時は以下の３つの方程式を用いること x^2+3x+5=0 X^2+6x+4=0 x^2+x+1=0

  • fortran　errorについて

    fortranを勉強していたのですがエラーがでてしまい、何時間かけても理解できなかったので質問させてください。 以下プログラム program test !ここからメインルーチン !前準備　配列の用意 implicit none integer N integer,dimension(0:N,0:N) :: A integer :: i,j,k read * ,N !初期状態の代入 do i=0,N do j=0,N A(i,j)=0 end do end do do i=N/2,N-1 A(N/2,i)=1 end do do i=N/2,N-1 A(N/2+1,i)=-1 end do !ループ　50回ループさせる do k=0,50 !状態の表示 call visualize !サブルーチン visualize subroutine visualize do i=0,N do j=0,N if(A(i,j)== 1) write(*,'(A1)',advance='NO') "*" if(A(i,j)== 0) write(*,'(A1)',advance='NO') " " if(A(i,j)==-1) write(*,'(A1)',advance='NO') "+" end do write(*,*) end do !end subroutine visualize call insert !サブルーチン insert subroutine insert do i=0,N do j=0,N if(A(i,j)== 1) A(i,j)=-1 if(A(i,j)== 0) A(i,j)=max(0,A(i-1,j),A(i,j-1),A(i,j+1),A(i+1,j)) if(A(i,j)==-1) A(i,j)=0 end do end do !end subroutine insert end do end program test これでコンパイラすると In file test.f90:48 subroutine visualize 1 Error: Unclassifiable statement at (1) In file test.f90:69 subroutine insert 1 Error: Unclassifiable statement at (1) とでます いろいろ調べたのですが全くわかりませんでした できればよろしくお願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する