jueves, 25 de noviembre de 2010

martes, 6 de abril de 2010

viernes, 19 de marzo de 2010

PRACTICA EXAMEN

<HTML>
<HEAD>
<TITLE>EJERCICIO 49</TITLE>
</HEAD>
<BODY>
<BODY BGCOLOR="FFFF99">
<BR><CENTER><H1>MÚLTIPLO DE 4</H1></CENTER><BR>
<CENTER>
<FORM NAME="Formulario" ACTION="" METHOD="POST">
   <B>Nombre de fichero:</B>
   <INPUT TYPE="text" NAME="fichero" SIZE="50"><BR><BR>
   <B>Cadena:</B>
   <INPUT TYPE="text" NAME="cadena" SIZE="50"><BR><BR>
   <INPUT TYPE="submit" NAME="boton" VALUE="Enviar"><BR>
</FORM>

<?php
if ($_POST)
{
$fichero=$_POST["fichero"];
$cadena=$_POST["cadena"];
$descriptor = fopen($fichero,"w");
$fputs($descriptor,$cadena);
$fclose($descriptor);

for($i=0; $i<strlen($cadena); $i+=1)
{
   $n = rand(0,3);
   if( $cadena[$i] < "m" )
      $array_m[$i] = chr(ord($cadena[$i])+$n);
   elseif ( $cadena[$i] < "q" )
      $array_m[$i] = chr(ord($cadena[$i])-$n);
   elseif ($i %2 == 0 )
   {
      $array_m[$i] = chr(ord($cadena[$i])+(2*$n));
      if (ord($array_m[$i]) > ord("z") )
         $array_m[$i] = "z";
   }
   else
      $array_m[$i] = chr(ord($cadena[$i])-(1*$n));

   echo "$array_m[$i] ";
}
for($i=0; $i<strlen($cadena); $i+=1)
{
   $array[$i] = $cadena[$i];
}
foreach ($array as $indice => $valor)
{
   $n = rand(0,3);
   if( $valor < "m" )
      $array_m2[$indice] = chr(ord($valor)+$n);
   elseif ( $valor < "q" )
      $array_m2[$indice] = chr(ord($valor)-$n);
   elseif ($indice %2 == 0 )
   {
      $array_m2[$indice] = chr(ord($valor)+(2*$n));
      if (ord($array_m2[$indice]) > ord("z") )
         $array_m2[$indice] = "z";
   }
   else
      $array_m2[$indice] = chr(ord($valor)-(1*$n));

   echo "$array_m2[$indice] ";
}

$descriptor = fopen($fichero,"r");
$cadena_f = $fgets($descriptor,200);
$fclose($descriptor);
for($i=0; $i<strlen($array_m); $i+=1)
{
   if ($cadena_f[$i] == $array_m[$i])
      echo "la posicion $i con el valor $cadena[$i] es igual<br>";
}

}
?>
</BODY>
</HTML>

viernes, 29 de enero de 2010

Ej 133 Calcular la media y coeficientes de dos vectores


<html>

   <head>

      <title>Ej 133</title>

   </head>

      <body bgcolor=silver>

       <form name="formulario1" action="" method="post">

       <center><b>Ej 133<br></center>

       <center><b>Introduzca la longitud del vector</center>

       <center><input type="text" name="n" size="15"></center><br>

       <center><input type="submit" name"boton1" value="enviar"></center>

       </form>

         <?php

         if ($_POST){

         $n=$_POST["n"];



    if ($n > 100 )

    {

      echo "no se permiten valores superiores a 100" )

    }

    else

    {

         for ($i=0; $i<$n; $i++)

         {

            $vectorx[$i]=rand(1,100);

            $vectory[$i]=rand(1,100);

            $acux=$acux+$vectorx[$i];

            $acuy=$acuy+$vectory[$i];

         }



         $mediax=$acux/$n;

         $mediay=$acuy/$n;

          echo "<center>La media de x es $mediax<br>";

          echo "<center>La media de y es $mediay<br>";



         for ($i=0; $i<$n; $i++)

         {

            $acuxy=$acuxy+($vectorx[$i]*$vectory[$i]);

            $acu2x=$acu2x+($vectorx[$i]*$vectorx[$i]);

         }



         $cofa=(($acuxy)-$n*$mediax*$mediay)/(($acu2x)-$n*$mediax*$mediax);

         $cofb=$mediay-$cofa*$mediax;

         echo "<center>El coeficiente a es $cofa<br>";

         echo "<center>El coeficiente b es $cofb<br>";

         }

    }

         ?>

     </body>

</html>


lunes, 25 de enero de 2010

CALENDARIO 2010

<B>CALENDARIO 2010</B><br>

<?php

//VARIABLES

$dia=4;//PORQUE 2010 EMPIEZA EN VIERNES (0-LUN , 1-MAR, 2-MIE , 3-JUE Y 4-VIERNES)
$meses=array("",31,28,31,30,31,30,31,31,30,31,30,31);//CANTIDAD DE DÍAS X MES
$nmeses=array("","ENERO","FEBRERO","MARZO","ABRIL","MAYO","JUNIO","JULIO","AGOSTO","SEPTIEMBRE","OCTUBRE","NOVIEMBRE","DICIEMBRE");
$i="";
$cont="";

//OPERACIONES

for ($i=1; $i<13; $i++)//VECTOR PARA CONTAR LOS MESES
   {
echo "<br><br>$nmeses[$i]<br>";
echo "<br> LU MA MI JU VI SA DO <br>";//ENCABEZADO
        for ($j=1; $j<($meses[$i]+1+$dia); $j++)//VECTOR PARA CONTAR LOS DÍAS
            {
                $mes[$j]=$j-$dia;
                if ($mes[$j]<=0)//PORQUE DEBEMOS AGREGAR ESPACIOS PARA QUE COMIENZE EN VIERNES
{
$mes[$j]=" ";
}
if (0<$mes[$j] && $mes[$j]<10)//PARA AGREGAR ESPACIOS EN LOS DÍAS DE UNA CIFRA
                    {
                        $mes[$j]=" ".$mes[$j];
                    }
                echo " $mes[$j] ";
                $cont++;
                if ($cont==7)//PARA QUE BAJE UNA LÍNEA CUANDO LLEGA AL DOMINGO
                    {
$cont=0;
echo "<br>";
                    }
            }
        if ($cont == 0)//PARA PARA AGREGAR LOS ESPACIOS AL PRINCIPIO SI EL MES COMIENZA EN UN DÍA DISTINTO AL LUNES
             {
$dia=$cont;
}
        else
{
$dia=(7-$cont);//ESPACIOS AL PRINCIPIO DEL VECTOR
$cont=0;
}
   }
?>

TABLAS Y MEDIAS

<!-- Tabla de 5 columnas y 6 filas, rellenar de forma aleatoria con nros. una vez rellenado calcular la media de cada fila. -->

<?php

$accu="";
$media="";
$total="";

print "POR FILAS<br><br>";

for ($f=0 ; $f<6 ; $f++)
{

for ($c=0 ; $c<5 ; $c++)

{

$tabla[$c][$f]=mt_rand(0,30);
$t=$tabla[$c][$f];
$accu=$accu+$t;
$total=$total+$t;

echo "[$c - $f] <b> ".$tabla [$c][$f]." </b>" ;

}

$cont=$total;
$media=$accu/5;
echo "--> MEDIA [$media]<br>";
$accu=0;

}

echo "<br>----<br>";

print "<br>POR COLUMNAS<br><br>";

$accu2="";
$media2="";

for ($c=0 ; $c<5 ; $c++)
{

for ($f=0 ; $f<6 ; $f++)

{

$l=$tabla[$c][$f];
$accu2=$accu2+$l;

echo "[$f - $c] <b>".$tabla [$c][$f]."</b>" ;

}


$media2=$accu2/5;
echo "--> MEDIA [$media2]<br>";
$accu2=0;

}

$cont2=round(($cont/30)*100)/100;

echo "<br>MEDIA TOTAL <br><br>[$cont2]<br>";
?>

viernes, 22 de enero de 2010

Ejercicio 128: Algoritmo del número primo

<html>
<head>
<title>
</title>
</head>
<body>
<center>
<form type="text" action="eje128.php" method="post">
<font>Introduce el numero:
<input type="text" name="valor" value="" size="5"><br>
</font>
</center>
<center><input type="submit" value="Calcular"></cente>
</form>
</center>
<?php
$cont=0;
$n=$_POST["valor"];
$i=2;

while ($n>2)
{
if ($n%$i==0)
{
$primo[$cont]=$i;
$cont++;
$n=$n/$i;
}
else
{
$i++;
}
}
for ($i=0; $i<$cont; $i++)
{
echo "$primo[$i]<br>";
}
?>
</body>
</html>

Ejercicio 126: Notas de 40 alumnos

<html>
<head>
<title>
</title>
</head>
<body align="center">
<?php
$suma=0;
for($i=0; $i<40; $i++)
{
$vector[$i]=rand(0,100);
$suma=$suma+$vector[$i];
$vectora[$i]=$vector[$i]/10;
if ($vector[$i]<=30)
{
$vecont[0]++;
}
if ($vector[$i]>30 && $vector[$i]<50)
{
$vecont[1]++;
}
if ($vector[$i]>=50 && $vector[$i]<60)
{
$vecont[2]++;
}
if ($vector[$i]>=60 && $vector[$i]<70)
{
$vecont[3]++;
}
if ($vector[$i]>=70 && $vector[$i]<85)
{
$vecont[4]++;
}
if ($vector[$i]>85)
{
$vecont[5]++;
}
}
$suma2=$suma/10;
$media=$suma2/40;
echo "Hay $vecont[0] alumnos con calificación <b>Muy deficiente</b><br>
Hay $vecont[1] alumnos con calificación <b>Insuficiente</b><br>
Hay $vecont[2] alumnos con calificación <b>Suficiente</b><br>
Hay $vecont[3] alumnos con calificación <b>Bien</b><br>
Hay $vecont[4] alumnos con calificación <b>Notable</b><br>
Hay $vecont[5] alumnos con calificación <b>Sobresaliente</b><br><br>";
$vecont[0]=($vecont[0]*100)/40;
$vecont[1]=($vecont[1]*100)/40;
$vecont[2]=($vecont[2]*100)/40;
$vecont[3]=($vecont[3]*100)/40;
$vecont[4]=($vecont[4]*100)/40;
$vecont[5]=($vecont[5]*100)/40;
echo "El porcentaje de alumnos con calificación <b>Muy deficiente</b> es de: <b>$vecont[0]%</b><br>
El porcentaje de alumnos con calificación <b>Insuficiente</b> es de: <b>$vecont[1]%</b><br>
El porcentaje de alumnos con calificación <b>Suficiente</b> es de: <b>$vecont[2]%</b><br>
El porcentaje de alumnos con calificación <b>Bien</b> es de: <b>$vecont[3]%</b><br>
El porcentaje de alumnos con calificación <b>Notable</b> es de: <b>$vecont[4]%</b><br>
El porcentaje de alumnos con calificación <b>Sobresaliente</b> es de: <b>$vecont[5]%</b><br><br>";
echo "Nota media es: $media<br><br>";
for($i=1; $i<41; $i++)
{
$vectora[$i]=$vector[$i]/10;
$vect[$i]=$vectora[$i]-$media;
if ($vect[$i]<0)
{
$vect[$i]=-($vect[$i]);
}
echo "$i º Alumno tiene una nota de $vectora[$i] con diferencia de: $vect[$i]<br>";
}
?>
</body>
</html>

martes, 12 de enero de 2010

vector de nombres ordenado

?php


$vector = array ("Jose","Pedro","Luis","Maria","Ana");
$n= count($vector);

$cambio=true;
for($j=$n-1;$j!=0&&$cambio==true;$j--)
{
$cambio=false;

for($i=0;$i<$j;$i++)
{

if($vector[$i]>$vector[$i+1])
{
$aux=$vector[$i];
$vector[$i]=$vector[$i+1];
$vector[$i+1]=$aux;
$cambio=true;
}
}

}
for($i=0;$i<$n;$i++)
{
echo" $vector[$i] ";
}

?

matriz aleatoria sin repetición

?php

$num = Array();
reset($num);
for($i=1;$i<=15;$i++)
{
$num[$i]=rand(1,100);
if($i>1)
{
for($x=1; $x<$i; $x++)
{
if($num[$i]==$num[$x])
{
$i--;
break;
}
}
}
}
foreach($num as $valor)
{
echo "$valor ";
}

?

Metodo de la burbuja 2

?php


if($_POST){

$n = $_POST['numero'];

for($i=0;$i<$n;$i++)
{
$vector[$i]=rand(0,26);
echo"$vector[$i] ";
}


$cambio=true;
for($j=0;$j<$n-2&&$cambio==true;$j++)
{
$cambio=false;

for($i=$n-1;$i>$j;$i--)
{

if($vector[$i]>$vector[$i-1])
{

$aux=$vector[$i];
$vector[$i]=$vector[$i-1];
$vector[$i-1]=$aux;
$cambio=true;
}

}
}


for($i=0;$i<$n;$i++)
{

echo" $vector[$i] ";
}
}

?

vector alreves

?php

if($_POST){

$n = $_POST['numero'];

for($i=0;$i<$n;$i++)
{
$vector[$i]= rand(0,25);
echo"$vector[$i] ";
}

$mitad= (int)($n/2);


for($i=0;$i<$mitad;$i++)
{
$aux= $vector[$i];
$vector[$i]= $vector[$n-($i+1)];
$vector[$n-($i+1)]= $aux;

}

for($i=0;$i<$n;$i++)
{
echo"$vector[$i] ";
}
}

?

MeToDo De La BuRbUjA menor a mayor






?php


if($_POST){

$n = $_POST['numero'];

for($i=0;$i<$n;$i++)
{
$vector[$i]=rand(0,26);
echo"$vector[$i] ";
}


$cambio=true;
for($j=$n-1;$j!=0&&$cambio==true;$j--)
{

$cambio=false;
for($i=0;$i<$j;$i++)
{

if($vector[$i]>$vector[$i+1])
{
$aux=$vector[$i];
$vector[$i]=$vector[$i+1];
$vector[$i+1]=$aux;
$cambio=true;
}
}

}

for($i=0;$i<$n;$i++)
{
echo" $vector[$i] ";
}






}
>