<script language="JavaScript">
var perimetro , coseno , n;

<!- Definizione della funzione iterativa ->
function pigrecoviete(n) 
   {
   perimetro = 2 * Math.sqrt(2);
   coseno = Math.sqrt(2)/2;
   for (i =1; i <= n; i=i+1)
   {coseno = Math.sqrt( ( 1 + coseno )/2 );
   perimetro = perimetro / coseno;
   }; 
return perimetro;
}
</script>

<h3> Calcolo di pigreco con i metodo di Vičte </h3> <br>

<!- Si definisce un Form come insieme di caselle (di ingresso e di uscita, di testo e di pulsanti di esecuzione o di cancellazione  ->

<form onSubmit="risultato.value=pigrecoviete(iterazioni.value); return false">
Numero di iterazioni = <input type="number" value=3 name="iterazioni" ><br>
Stima di pigreco = <input type="number" name="risultato">
<input type="submit" value=" Calcola " >
</form>

Program StimaDiPigreco;
var iterazioni:integer;  risultato:real;

{Definizione della funzione iterativa}
function pigrecoviete(n:integer):real
var perimetro, coseno:real;  i:integer;
Begin
   perimetro := 2 * sqrt(2);
   coseno := sqrt(2)/2;
   for  i: =1 to  n do
      Begin
      coseno := sqrt( ( 1 + coseno )/2 );
      perimetro: = perimetro / coseno;
      End;
   pigrecoviete :=  perimetro;
End; 

{Main}
writeln('Calcolo di pigreco con i metodo di Vičte');
write('numero di iterazioni=');readln(iterazioni);
risultato:= pigrecoviete(iterazioni)
writeln('stima di pigreco=',risultato)
End.