UNIDAD 2: INSTRUCCIONES DE CONTROL DE PROGRAMA

TEMA PERL 11: CICLO FOR

Instrucciones para ciclos resuelven el problema de repetir todo el programa o cierta parte del programa mas de una vez.

Este ciclo es uno de los mas usados para repetir una secuencia de instrucciones sobre todo cuando se conoce la cantidad exacta de veces que se quiere que se ejecute una instruccion simple o compuesta.

Su formato general es:

for (inicializacion; condicion; incremento)

{ instruccion(es); };

En su forma simple la inicializacion es una instruccion de asignacion que carga una variable de control de ciclo con un valor inicial.

La condicion es una expresion relacional que evalua la variable de control de ciclo contra un valor final o de parada que determina cuando debe acabar el ciclo.

El incremento define la manera en que la variable de control de ciclo debe cambiar cada vez que el computador repite un ciclo.

Se deben separar esos 3 argumentos con punto y coma ;

EJEMPLO PROG8.PL

#! /usr/bin/perl -w
# usando modulo o libreria CGI
use CGI;
# creando el OBJETO de tipo CGI
$q = new CGI;
# mandando servidor los encabezados de la pagina html
$resp = '';
print $q->header;
print $q->start_html();
print $q->hr();
print $q->startform();
print $q->submit('FOR');
print $q->endform();
print $q->hr();
#cerrando html
print $q->end_html;
# PROGRAMA Y RECORDAR QUE CUANDO NO SE ACTUALIZAN CONTROLES
# EL PROGRAMA DEBERA IR EN LA PARTE DE ABAJO DESPUES DE LA
# FORMA
if ($q->param('FOR')){
for($x=1; $x <= 5; $x = $x+1)
{ print $x . ' =MAMA' . '<BR>'};
};

corrida:

image256.jpg

RECORDAR LA NOTA QUE SE PUSO DENTRO DEL PROGRAMA ACERCA DE DONDE Y PORQUE SE COLOCA EL PROGRAMA EN PERL.

Sin embargo tambien es valido incluir el programa en perl dentro de la forma de manera directa como se estudio en la primera unidad, para este caso recordar no poner if($q→param('OK')){};

Codigo prog8a.pl:

#! /usr/bin/perl -w
# usando modulo o libreria CGI
use CGI;
# creando el OBJETO de tipo CGI
$q = new CGI;
# mandando servidor los encabezados de la pagina html
$resp = '';
print $q->header;
print $q->start_html();
print $q->hr();
print $q->startform();
for($x=1; $x <= 5; $x = $x+1)
{ print $x . ' =MAMA' . '<BR>'};
print $q->submit('OK');
print $q->endform();
print $q->hr();
#cerrando html
print $q->end_html;

corrida:

image244.jpg

Recordar que se puede escribir HTML directamente.

Casos Particulares:

1.- El ciclo comienza en uno y se incrementa de uno en uno este es el caso mas general.

2.- Pero el valor inicial puede se diferente de uno, ejemplo;

for($x=5;$x⇐15;$x=$x+1){ etc.};

3.- Incluso el valor inicial puede ser negativo, ejemplo;

for ($x = -3 ;$x⇐ 8; $x=$x+1) { etc.};

4.- Los incrementos tambien pueden ser diferentes al de uno en uno, ej.;

for ($x=1; $x⇐ 20; $x=$x+3){ etc. };

5.- Incluso pueden ser decrementos, solo que en este caso, recordar;

1.-el valor inicial de la variable debe ser mayor que el valor final.

2.-cambiar el sentido de la condicion.

ejemplo;

for ($x= 50 ; $x >= 10; $x= $x-4 ) { etcetera };

6.- Solo para los casos de incrementos y decrementos de una en una unidad substituir en el for;

el x = x + 1 por $x++

el x = x - 1 por $x–

TAREAS PROGRAMACION PERL :

1.- CONSTRUIR UN PROGRAMA QUE DESPLIEGUE LOS NUMEROS DEL 20 AL 30.

2.- DESPLEGAR LOS ENTEROS ENTRE 50 Y 30 ACOMPANADOS DE SU POTENCIA CUADRADA Y RAIZ CUBICA RESPECTIVA.

3.- DESPLEGAR LOS MULTIPLOS DE 5, ENTRE 10 Y 50, ACOMPANADOS DE SU FACTORIAL Y LOGARITMO RESPECTIVO.

4.- DESPLEGAR LA TABLA DE MULTIPLICAR QUE EL USUARIO INDIQUE, aqui deberan pasar el factor desde la pagina html

5.- EVALUAR LA FUNCION Y=5X^2 + 3X + 8 CUANDO X–> -3…10 (RANGO DE -3 HASTA 10)

Politica de Privacidad