下記のプログラムは 3 個引数をもつ関数の例である. 3 個の引数を順に出力する.実行せよ.
#!/usr/bin/perl -w use strict; sub f3_1{ my($a, $b, $c) = @_; print "$a¥n"; print "$b¥n"; print "$c¥n"; } &f3_1(1,2,3); &f3_1(30,20,10);
図3.1
f3_1 を参考に引数を 3 つ取り,第2引数,第1引数,第3引数の 順に出力する関数 f3_2 を作れ.テストするメインルーチンも自分で考えよ.
引数を 3 つ取り,すべての引数の和を返す関数 f3_3 を作れ. テストするメインルーチンも自分で考えよ. ( 注意:関数の中には print 文を書いてはいけない.return 文を使用するなどして 計算した和の値を返す関数を作る.テストするメインルーチンは以下のような ものになる.)
my $out = &f3_3(1,2,3); print "$out¥n";
引数を 3 つ取り,すべての引数の最大値を返す関数 f3_4 を作れ. テストするメインルーチンも自分で考えよ.
制限時間10分のペーパーテストを行うので 計算機からログアウトして待機せよ.