したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プログラムスレッド

300女傑 ◆aIZEkLRIGU:2019/02/26(火) 12:02:28
干支を求めるサブルーチン
渡す値 干支を求めたい年 etc.1998
戻り値 求めたい年の干支がひらがなで返る

$jyunishi = &eto($year);

sub eto {
# 引数を受け取る
my ($year) = @_;
# 年を12で割り余りを求める
my $a = $year % 12;
@etohairetsu = ('さる','とり','いぬ','いのしし','ねずみ','うし','とら',' うさぎ','たつ','へび','うま','ひつじ');
my $jyunishi = $etohairetsu[$a];
# 干支を返す
return $jyunishi;
}


新着レスの表示


名前: E-mail(省略可)

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

(画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります)

掲示板管理者へ連絡 無料レンタル掲示板