#!/usr/bin/perl -w

use strict;

my( $iter, $i, $pi, $diviseur, $add ); # Tous à 0 par défaut.

$add = 0;
$pi = 4; # Itération 1

print "Entrer le nombre d'itérations : ";
chomp( $iter = <STDIN> );

for( $i = 3; $i <= 2*$iter-1; $i += 2 )
{
	if( $add == 1 )
	{
		$pi += 4/$i;
		$add = 0;
	}
	else
	{
		$pi -= 4/$i;
		$add = 1;
	}
}

print "Pi est égal à $pi\n";	