#! /usr/local/bin/perl # ex2-3 use strict; use warnings; my $pi = 3.14; print "求めたい円周の半径を入力してください\n"; chomp(my $radius = <STDIN>); if ($radius < 0){ print "半径に負の値が入力されたので、半径を0として円周の長さを求めます\n"; $rad</stdin>…

5.プロンプトを表示して文字列と数を(別々に)読み込んで、その文字列を１行に１つずつ、数で指定された回数だけ繰り返して表示するプログラムを書いてください。 #! /usr/local/bin/perl # ex2-5 use strict; use warnings; print "文字列を入力してください…

このはてなダイアリー、プログラミングの話題だけで殺風景かな、とふと思いました。 肩の力を抜いたエントリも、これから書いていこうと思います。

プロンプトを表示して、数を2個読み込んで（1行に1個ずつ別々に読み込みます）、それらの積を表示するプログラムを書いてください #! /usr/local/bin/perl # ex2-3 use strict; use warnings; print "求めたい円周の半径を入力してください\n"; chomp(my $ra…