くだすれFORTRAN（超初心者用）その3

くだすれFORTRAN（超初心者用）その3 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

400:デフォルトの名無しさん
 08/06/24 02:33:14 
この問題がわかりません↓ 
 
0.0 から 1.0 までの 10 個の値、 0.12, 0.32, 0.09, 0.83, 0.58, 0.39,  
0.72, 0.44, 0.71, 0.24 を使って、起点 0.0、幅 0.2 としたときの頻度分布 
を求めるプログラムを作成せよ。 
 
結果はこのように表示されるようです。 
 s < 0.2   2 
 0.2 <= s < 0.4   3 
 0.4 <= s < 0.6   2 
 0.6 <= s < 0.8   2 
 0.8 <= s         1 
 
if文を使うのはわかるのですが、頻度分布をどう求めていいのかわかりません。 
fortran77です。 
どうかよろしくお願いします。

401:デフォルトの名無しさん
 08/06/24 09:21:12 
>>396 
初心者には、入出力まわりが一番難しいのだが。

402:デフォルトの名無しさん
 08/06/24 10:36:12 
>>400 
      PROGRAM HIST 
      INTEGER NUM(5) 
      REAL S(10) 
      DATA S / 0.12, 0.32, 0.09, 0.83, 0.58,  
     $         0.39, 0.72, 0.44, 0.71, 0.24 / 
      DO 10 I = 1, 5 
       NUM(I) = 0 
   10 CONTINUE 
C       
      DO 20 I = 1, 10 
       IF (S(I) .LT. 0.0) THEN  
        WRITE(*, *) 'INPUT ERROR!' 
        STOP 
       ELSE IF (S(I) .LT. 0.2) THEN 
        NUM(1) = NUM(1) + 1 
       ELSE IF (S(I) .LT. 0.4) THEN  
        NUM(2) = NUM(2) + 1 
       ELSE IF (S(I) .LT. 0.6) THEN  
        NUM(3) = NUM(3) + 1 
       ELSE IF (S(I) .LT. 0.8) THEN  
        NUM(4) = NUM(4) + 1 
       ELSE IF (S(I) .LE. 1.0) THEN  
        NUM(5) = NUM(5) + 1 
       ELSE 
        WRITE(*, *) 'INPUT ERROR!' 
        STOP 
       END IF                   
   20 CONTINUE    
C

次ページ