PL/I 初心者 練習問題②

練習問題
問題：成績判定＆統計

5人分の「名前」「得点（0〜100）」を入力し、以下の処理を行うプログラムを作成してください：
・各人の名前、得点、評価（以下のルールに従う）
　90点以上：優
　70〜89点：良
　50〜69点：可
　49点以下：不可
・全体の平均点を表示

SEISEKI: PROCEDURE OPTIONS(MAIN);
   DECLARE NAME(5) CHAR(20);
   DECLARE SCORE(5) FIXED;
   DECLARE I FIXED;
   DECLARE TOTAL FIXED INIT(0);
   DECLARE AVERAGE FIXED;

   DO I = 1 TO 5;
      PUT SKIP LIST(I , '人目の名前を入力してください:');
      GET LIST(NAME(I));

      PUT SKIP LIST(I , '人目の得点を入力してください:');
      GET LIST(SCORE(I));

      TOTAL = TOTAL + SCORE(I);  /* 合計点を加算 */
   END;

   AVERAGE = TOTAL / 5;  /* 平均を計算 */

   PUT SKIP LIST('--- 結果 ---');

   DO I = 1 TO 5;
      IF SCORE(I) >= 90 THEN
         PUT SKIP LIST(NAME(I), 'さん: ', SCORE(I), '点 → 優');
      ELSE IF SCORE(I) >= 70 AND SCORE(I) <= 89 THEN
         PUT SKIP LIST(NAME(I), 'さん: ', SCORE(I), '点 → 良');
      ELSE IF SCORE(I) >= 50 AND SCORE(I) <= 69 THEN
         PUT SKIP LIST(NAME(I), 'さん: ', SCORE(I), '点 → 可');
      ELSE
         PUT SKIP LIST(NAME(I), 'さん: ', SCORE(I), '点 → 不可');
   END;

   PUT SKIP LIST('平均点は ', AVERAGE, '点です');
END SEISEKI;