PERL PROGRAMMING LANGUAGE

*************************************************************************************
３　繰り返し

$zandaka *= (1 + $riritsu/100);
$zandaka *= (1 + $riritsu/100);
$zandaka *= (1 + $riritsu/100);

と書くと３年分計算できます。
でも面倒くさいです。
そんなときは

$zandaka = 10000;
$riritsu = 6;
$nen = 10;
for ($i =; $i<$nen; $i++){
	$zandaka *= (1 + $riritsu/100);
}
print"zandaka = $zandaka\n";

となります。
それも１０年分の計算が出来てしまいました。
実行すると

zandaka = 17908.4769645285
となります。
一年で７９０８円増えることが解ります。やったー