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.
martes, 25 de enero de 2011
miércoles, 19 de enero de 2011
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
#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
Suscribirse a:
Entradas (Atom)