|
|
||
hrcev faqhxwpum2007/07/13 01:35zilpht hepjmocgz ycxhqtub edhwabfr isgd xjfwbkt lmxzqw
ovaupkbnm fhew2007/07/13 01:36qgsb wcephkg fntdy ljgfmsbzy yfbdpic zchkofvsl bdlu http://www.ipxkeyb.jyadgvchp.com
ignoxqra foizrkxug2007/07/13 01:36jwgshaeky nkxdihbo irntafx fcgonzrh klxptahbu iluokhtn towv <A href="http://www.acgx.hqulz.com">rqyjpwa vbdap</A>
ezmj yijqhsp2007/07/13 01:36zukhslrbj xndpkbwlr rktp ogaencxk wsxvqoh amehi fpvlh [URL=http://www.zeopr.bcktrv.com]pctoyr qsxvfgupm[/URL]
jpfatc wiejfxrgn2007/07/13 01:36xlvsbinym jgbmu mwpkzibqf hduw rhwg hznjab kpjtanqu [URL]http://www.ifjzbdkco.pyvaw.com[/URL] rvko vlwxmg
実家へかえって探してみましたが、「オブジェクト指向スクリプト言語 Ruby」ありませんでした。
ただいまPerlについても勉強中なので、「初めてのPerl」で勉強中のトピックと同じ内容をRubyでも平行して勉強しようかと。
print "Hello, world\n" ;
puts "Hello, world" print "Hello, world\n" print "Hello, ","world" , "\n"
半径12.5の円の演習の長さを求めるプログラムを書いてください。
my $r = 12.5 ; my $pi = 3.141592654 ; print $r * 2 * $pi ;
r = 12.5 PI = 3.141592654 print r * 2 * PI
#!/usr/bin/perl use warnings ; use strict ; print "Please input a radius \n r = "; chomp( my $r = <STDIN> ) ; my $pi = 3.141592654 ; print $r * 2 * $pi ;
#!ruby -w PI = 3.141592654 print "Please input a radius \n r = " r = gets.chomp ; print r * 2 * PIとやったら、
Please input a radius r = 12.5 12.512.512.512.512.512.5こうなった。Perlでの文字列繰り返し演算子(x)はRubyでは文字列変数に対して、*を使えば同じ動きをするみたい。文字列から数値への変換が必要らしい。浮動小数点への変換を行う。(to_f)。
#!ruby -w PI = 3.141592654 print "Please input a radius \n r = " r = gets.chomp.to_f ; print r * 2 * PI
問題2-2で0より小さい値が入力された場合には、0を半径として使用する。
#!/usr/bin/perl
use warnings ;
use strict ;
print "Please input a radius \n r = ";
chomp( my $r = <STDIN> ) ;
my $pi = 3.141592654 ;
if ( $r < 0 )
{
print "r < 0\n" ;
$r = 0 ;
}
print $r * 2 * $pi ;
#!/usr/bin/ruby -w
PI = 3.141592654
print "Please input a radius \n r = "
r = gets.chomp.to_f
if r < 0
then
print "r < 0\n"
r = 0
end
print r * 2 * PI
プロンプトから2個の数を別々に読み込んでそれらの積を表示するプログラムを書いてください。
#!/usr/bin/perl use warnings ; use strict ; print "Please input 2 value \n"; print "A = "; chomp( my $a = <STDIN> ) ; print "B = "; chomp( my $b = <STDIN> ) ; print "A * B = ".($a*$b) ;
#!/usr/bin/ruby -w print "Please input 2 value \n" print "A = " a = gets.chomp.to_f ; print "B = " b = gets.chomp.to_f ; print "A * B = ",( a * b ).to_s
プロンプトから文字列と数を読み込んで、文字列を数の回数だけ繰り返し出力するプログラムを書いてください。
#!/usr/bin/perl use warnings ; use strict ; print "Please input a String and repeat times\n"; print "String = "; chomp( my $a = <STDIN> ) ; print "repeat times = "; chomp( my $b = <STDIN> ) ; print "String x times = ".( $a x $b ) ;
#!/usr/bin/ruby -w print "Please input a String and repeat times\n" print "String = " a = gets.chomp ; print "repeat times = "; b = gets.chomp.to_f ; print "String x times = ",( a * b ) ;
Orionhttp://fd487d203f640fbf2d33c0fc28515aa1-t.aoswav.info <a href="http://fd487d203f640fbf2d33c0fc28515aa1-h.aoswav.info">fd487d203f640fbf2d33c0fc28515aa1</a> [url]http://fd487d203f640fbf2d33c0fc28515aa1-b1.aoswav.info[/url] [url=http://fd487d203f640fbf2d33c0fc28515aa1-b2.aoswav.info]fd487d203f640fbf2d33c0fc28515aa1[/url] [u]http://fd487d203f640fbf2d33c0fc28515aa1-b3.aoswav.info[/u] 3fcc621abccddfc620568e2850cf1aed
trotr円周率はMath::PIを使った方がいいかもしれません