# =============================================================================
#                                 blatt.pl
#                              -----------------
#  Программа для расчета длины развертки многослойного цилиндра
#  из листового материала.
#  Автор: Новоженов А.О. 
#  Разработка от 19 марта 2010 г.
#  $Id$
# =============================================================================
#  Запускаем с параметрами: perl blatt.pl <диаметр оправки> <толщина листа> <число слоёв>
# ================================================= ============================
use strict;
#use encoding 'cp1251';

my ($D, $S, $N); # Диаметр оправки, толщина листа, число слоев намотки
my $L =0; # Длина заготовки 

($D, $S, $N) = @ARGV;

my $D1 = $D; 
for (my $i=1; $i<=$N; $i++)
{
	$L +=  3.14*($D1+$S);  $D1 += 2*$S;
}
print " D_in: $D\n Tickness: $S\n Layers: $N\n ================\n Lenght: $L";