AA

AA.rar

Programa per apendre les abreviatures dels aminoàcids de tres lletres i d'una lletra.

by Marcel Costa

Descomprimiu l'arxiu AA.exe i executeu-lo per obrir el programa.

Una mica de música

use strict;

#definicio variables

my $b;
my $a;
my $diva=1;
my $divb=1;
my $divs=0;
my $z;


#modul de musica (necesitareu un arxiu de musica .wav)
#podeu trobar el wav del programa a l'arxiu que adjunto

print "Vols escoltar musica mentre executes el programa?(S/N)";
$z=;
chop($z);
if($z == "s" || $z == "S"){system("(play -q cher_wm_08_1.wav) &");}

#programa

print "Introdueix el primer nombre:";
$a = ;
chop($a);


print "Introdueix el segon nombre:";
$b = ;
chop($b);



if($a==int($a) && $a>=0 && $b==int($b) && $b>=0){
while($diva<=$a || $divb<=$b){
if($b % $divb == 0 && $a % $diva == 0){
$divs++;
}
$diva++;
$divb++;
}
if($divs == 1)
{print "El $a i el $b son nombres relativament primers, nomes tenen un divisor comú\n";}
else{print "El $a i el $b NO son nombres relativament primers, tenen $divs divisors\n";}
}
else
{
print "Els nombres introduits no son valids\n";
}
#neteja la pantalla
system("^C");



LINK:
http://www.megaupload.com/?d=0XMA1E9G

Codificador 1.0

use strict;

print "Hello world!\nHe programat un programa que fa coses amb l'ADN i ARN\n";
print "Si us el voleu descarregar feu click aquí:\n";

open (codificador, ">codificador.rar");

print "L'arxiu codificador.rar 379KB inclou un fitxer exectuable i el codi font en .cgi (feu obrir amb bloc de notes per visualitzar-lo)\n";

print "Si trobeu algun bug, teniu alguna suggerència o qualsevol cosa, aviseu!\n";

print "Si voleu veure'l en acció feu click al següent link que mostra els outputs del programa\n";

open (screenshot, ">screenshot.PNG");

print "See you!\n";

Hello world!

use strict;

print "Hello World! Som en Marcel, Marc i Ulises! Hem creat aquest blog per penjar els programes en perl que anem fent.\nEsperem que us agradi\n";