Perl ESAME PERL: AIUTO!

[Ylenia]

Ciao a tutti!!
Sono nuova del forum, e scrivo perchè ho un disperato bisogno di aiuto.
Ho un esame giovedì che riguarda la programmazione in Perl, ed essendo che non ci ho capito niente, cerco qualcuno che sia disponibile quel giorno per risolvermi l'esercizio e mandarmelo.
SONO VERAMENTE DISPERATA! AIUTATEMI!
Vi allego due foto di due vecchi esami di quest'anno.

 

[Sekmet]

Per il primo esercizio il codice è il seguente :

#!/usr/bin/perl

@W = 10;
$contatore = 0;
$contatore2 = 0;
$Var1 = 0;
$somma = 0;
$ValoreMassimo = 0;
$IndiceIniziale = 0;
$IndiceFinale = 0;






for($contatore = 0; $contatore < 10; $contatore ++)
{
  @W[$contatore] = 0;
}


 #Inserimento valori nel vettore


for($contatore = 0; $contatore < 10; $contatore ++)
{


   do{
   print "Inserire valore intero compreso tra -20 e 20\n";
   $Var1 = <STDIN>;
   }
   while($Var1 < -20 || $Var1 > 20);
   $W[$contatore] = $Var1;
}


for($contatore = 0; $contatore < 10; $contatore ++)
{
   for($contatore2 = 0; $contatore2 < 3; $contatore2 ++)
      {
   $somma = $somma + @W[$contatore + $contatore2];
   if($contatore2 == 0)
   {
   $A = @W[$contatore + $contatore2];
   }
   elsif($contatore2 == 2)
   {
   $B = @W[$contatore + $contatore2];
   }
   }
   if($somma > $ValoreMassimo)
   {


   $ValoreMassimo = $somma;
   $IndiceIniziale = $A;
   $IndiceFinale = $B;
   }
   $somma = 0;
   }
   print "Il valore massimo e' -> $ValoreMassimo \n";
   print "L'indice iniziale e' -> $IndiceIniziale \n";
   print "L'indice finale e' -> $IndiceFinale \n";




system ("PAUSE");

Mentre per il secondo esercizio il codice è il seguente (apri il link. Ho dovuto metterlo su pastebin per problemi col Forum).

http://pastebin.com/PNd4DG4C

 

[Vasilij]

Ciao a tutti!!
Sono nuova del forum, e scrivo perchè ho un disperato bisogno di aiuto.
Ho un esame giovedì che riguarda la programmazione in Perl, ed essendo che non ci ho capito niente, cerco qualcuno che sia disponibile quel giorno per risolvermi l'esercizio e mandarmelo.
SONO VERAMENTE DISPERATA! AIUTATEMI!
Vi allego due foto di due vecchi esami di quest'anno.

Fai web?

 

[Ylenia]

Per la seconda traccia, chiedeva però di stampare i valori sotto la riga __DATA__, particolare che manca. Potreste correggerla per favore? Grazie mille.

 

[Sekmet]

Per la seconda traccia, chiedeva però di stampare i valori sotto la riga __DATA__, particolare che manca. Potreste correggerla per favore? Grazie mille.

Ecco a te il codice sistemato :

http://pastebin.com/2svwFBE7

 

[Vasilij]

Ylenia fai web?

 

[Ylenia]

Nono.