Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

81:ささ ◆6KVcpBNXy.
06/01/28 14:28:52
>>79-80ヘルプに載っていたのですね。安易に質問してすいません。
もしn人目の三科目の平均を表示するなら下記でよろしいですか？
writeln(Format('%d人目の得点を入力してください', [i+1]));
readln(ScoreArray[i, 0], ScoreArray[i, 1], ScoreArray[i, 2]);
Sum1 := ScoreArray[i, 0]+ScoreArray[i, 1]+ScoreArray[i, 2];
　　heikin= sum1　/　3;
writeln(Format('%d人目の合計点は%d点', [i+1, Sum1]));
writeln(Format('%d人目の平均点は%d点',[i+1,heikin]));

次ページ

続きを表示

1を表示