カレッヂ |
質問者 bananaman
投稿日 11/9(日) 17:49:37
#!usr/bin/perl -w #-------------------memo------------------------- # $ringo りんごの数 # $kkk /100の結果 # $aaa $kkk % 100 の結果 # $bbb $aaa % 10 の結果 #------------------------------------------------ $ringo = n # if ( n >= 1000) { # print "err"; # } $kkk = n / 100; # ☆の数 $aaa = $kkk % 100; $bbb = $aaa / 10; # ●の数 $ccc = $aaa % 10; # ○の数 print ("☆" x $kkk\n); print ("●" x $aaa\n); print ("○" x $ccc\n); exit; 初心者なので全然なっていないと思いますが宜しくお願いします。 いろいろ調べたのですがどうしてっもできません。(根本的な問題だとはおもいますが) 超低レベルの質問でスミマセン。
プロバイダ参照: |
回答者 やまだ
[削除]
投稿日 11/10(月) 23:48:49
> $ringo = n 最後は';'とつける。nとは文字or文字列なら''or""でくくる。整数、浮動小数点ならそのままで。 > print ("☆" x $kkk\n); > print ("●" x $aaa\n); > print ("○" x $ccc\n); まあ、とにかく""でくくってください。 |
返信(回答)する
Web裏技 |