use strict;

my $price = 2000;
print $price;
print "\n";
print $price * 0.9;
print "\n";

my $add = 12 + 3;
my $sub = 12 - 3;
my $mul = 12 * 3;
my $div = 12 / 3;
print "\$add = $add\n";
print "\$sub = $sub\n";
print "\$mul = $mul\n";
print "\$div = $div\n";






my $filename = "data1.csv";
my $ret = open(OUT, ">$filename");
if(!$ret){
print "File open error [$filename]\n";
exit;
}

my @x;
my @f;
for(my $i = 0; $i <=100; $i++){
    $x[$i] = 3.14 * $i / 100;
    $f[$i] = cos($x[$i]);
}


for(my $i = 0 ; $i <= 100 ; $i++) {
    print("cos($x[$i])=$f[$i]\n");
    print OUT "$x[$i], $f[$i]\n";
}

for(my $i = 0; $i<=100; $i++){
    my $x = 3.14 * $i / 100;
    my $f = tan($x, 3);
    print("tan($x)=$f\n");
    print OUT "$x, $f\n";
}

for(my $i = 0 ; $i <= 100 ; $i++) {
    print("sin($x[$i])=$f[$i]\n");
    print OUT "$x[$i], $f[$i]\n";
}


sub tan
{
	my ($x, $d) = @_;
	my $t = sin($x) / cos($x);
	return $t / $d;
}


close(OUT);