- 354 名前：デフォルトの名無しさん mailto:sage [2006/07/10(月) 01:44:09 ]
- アホですみませんがこの2つの問題がわかりません
ぜひ教えてください
５教科のテストを行いました。それぞれのテストの点数を入力してもらい、
それぞれの点数と５教科の合計と平均をわかりやすく表示するプログラムを作成しなさい。
プログラムを作成していて、次のような関数"printAns()"が必要となりました。
printAns()は第一引数としてint型を受け、受け取った整数に50をかけて
”答えは○○です”と表示してから、その答えをint型で返します。
このような関数printAns()を製作してください。
メインとなるプログラムは次のものを流用するように。
var
a,b:Integer;
begin
Write(Output,'n ? |');
Read(Input,a);
Writeln(Output,'ここから関数');
b :=Culculate(a);
Writeln(Output,'ここまで関数');
Writeln(Output,'戻り値は ',b);
end.
|
 |
