Actividad 6

Actividad 1     Resume las ideas esenciales  (Presentar resumen con las ideas esenciales)

Completa cada programa para introducirlo a la computadora. Indica la parte faltante y las modificaciones al programa para cumplir la función indicada.

¿Cuál será el programa que imprima los números 15,20,25,30, …150 con la proposición WHILE?

cont:=____;

While _____<100 do

Begin

  cont:=cont+____;

  writeln(cont)

End;

Readln;

End.

¿Proponga un programa que acepte números e imprima los numero impares, el programa terminara cuando se introduzca el número -999?

num:=___;

While num=-___ do

Begin

Writeln(‘introduce numero’);

 Readln(num);

If num mod  ____ =1 then

  Writeln(‘el numero’,num,’ es impar ‘);

End;

Actividad 5

Actividad 1     Resume las ideas esenciales  (Presentar resumen con las ideas esenciales)

Completa cada programa para introducirlo a la computadora. Indica la parte faltante y las modificaciones al programa para cumplir la función indicada.

¿Cuál será el programa que imprima los números 15,20,25,30, …150 con la proposición WHILE?

cont:=____;

While _____<100 do

Begin

  cont:=cont+____;

  writeln(cont)

End;

Readln;

End.

¿Proponga un programa que acepte números e imprima los numero impares, el programa terminara cuando se introduzca el número -999?

num:=___;

While num=-___ do

Begin

Writeln(‘introduce numero’);

 Readln(num);

If num mod  ____ =1 then

  Writeln(‘el numero’,num,’ es impar ‘);

End;

Actividad 4

Actividad 4     Construye programa con centinelas  (movilizar sus conocimientos y poner en acción métodos adquiridos-ejercicios)

problema

·         Realizar un programa que acepte números hasta el valor centinela -666. Para cada número el programa contara los números pares e impares.

Para realizar el programa es importante conocer que es un centinela.

Centinela: es un valor especial que se emplea para indicar el final de una lista de datos. Ejemplo; sea  una lista de calificaciones de estudiantes (en una escala de 0 a 100). El número de calificaciones no se conoce,  pero la lista termina con el número -999 (este es el centinela).

Para resolver el problema proponemos dividir el programa para facilitar su elaboracion.

a).-Primero, Realizar un programa que acepte números hasta el valor centinela -999, para locual ordena las instrucciones que se presentan abajo para diseñar la primera parte del problema:

End;

Centinela <>-999

Readln(centinela);

Writeln(‘introduce el valor’);

While______do

Readln(centinela);

Begin

Writeln(‘introdue un valor’);

b).-En seguida, acompleta el programa anterior para que de cada número se cuenten los  números pares e impares con las siguientes instrucciones:

Par:=0;

Impar:=impar+1;

Centinela mod 2=0

If ________ 

    Then ______

     Else  _______

Par:=par+1;

Impar:=0;

 writeln(‘el numero de pares son’,____);

Writeln(‘el numero de impares son’, _____);

actividad 3

Actividad 3    Indica que se ejecuta en los programas (Sección de ejemplos)

Ejemplo

Considera el siguiente programa en Pascal y responde a la siguiente pregunta. ¿Qué  se exhibirá y cuántas veces se ejecutará el cuerpo del ciclo? Utiliza la tecnica de prueba de escritorio o recorrido de variables para analizar el programa.La tecnica de recorrido de variables te permite visualizar los valores que van teniendo en diferentes momentos los identificadores de variables, con estos valores puedes determinar el funcionamiento de las variables, esto es si son variables contadoras, acumuladoras, multiplicadoras o generadoras de una secuencia.

J:=0;                 (*asignación del valor inicial de la variable contadora de j*)

WHILE j<5 DO  (*variable contadora j determina en la condicion el numero total de repeticiones*)

BEGIN             (*inicio cuerpo del ciclo*);

     write(j);

     j:=j+1              (*incrementa en uno la variable contadora j*)

END;                    (*termino cuerpo del ciclo*)

Ejemplo

¿Qué sucedería si se cambiará el orden de las dos instrucciones del cuerpo del ciclo?

j:=0;                      (*asignación del valor inicial de la variable contadora de j*)

WHILE j<5 DO   (*variable contadora j determina en la condicion el numero total de repeticiones*)

BEGIN

      j:=j+1;  (*incrementa en uno la variable contadora j*)

     write(j)

END

GENERAR NUMEROS DEL 50 AL 200