Repetición Infinita
Bucle Repetir
El bucle repetir comprueba la condición de finalización al final del cuerpo del bucle, y si ésta es cierta continua con el resto del programa, a veces esto resulta más adecuado.
Bucle infinito en programación es un error que consiste en realizar un ciclo que se repite de forma indefinida ya que su condición para finalizar nunca se cumple.
Por definición un bucle debe contener condiciones que establezcan cuándo empieza y cuándo acaba, de manera que, mientras las condiciones se cumplan, ejecute una secuencia de código de manera repetitiva. En el caso de ciclo infinito, como la condición de finalización no se alcanza, el bucle sigue ejecutando el segmento de código indefinidamente.
Bucle Infinito
¿Como hacerlo en la programacion PSeInt?
FACILLLL..... observemos lo siguiente
En lo que presentaremos a continuación, son una serie de ejercicios empleando estructuras de repetición infinita, para que sea mucho más fácil dejare explicado los pasos
Proceso VARIABLES
Definir Suma, N, C Como Enteros;
Escribir "*******************************************"
Escribir "Ingrese una opción:";
Escribir "1) FACTORIAL N"
Escribir "2) Suma de los Números Naturales"
Escribir "3) Serie (((N!)-N)/(N-1))"
Escribir "4) Sumatoria de rc(N!/N+1)";
Escribir "5) Tabla de Multiplicar 1 al 12"
Escribir "*******************************************"
Leer OP
Segun OP hacer
1:
Escribir "Ingrese el enésimo término:";
Leer N;
//Valores Iniciales
Factorial<-1;
C<-1;
Mientras (C<=N) Hacer
Factorial<-Factorial*C;
C<-C+1;
Fin Mientras
//IMPRIMIR
Escribir "El Factorial de ", N, " es: ", Factorial;
2:
Escribir "Ingrese el enésimo término:";
Leer N;
//Valores Iniciales
Suma<-0;
C<-1;
Mientras (C<=N) Hacer
Suma<-(Suma+C);
C<-C+1;
Fin Mientras
//IMPRIMIR
Escribir "La suma de los ", N, " términos es: ", Suma;
3:
Escribir "Serie (((N!)-N)/(N-1))";
Escribir "Ingrese el numero";
Definir Serie Como Real
Leer N;
//Valores Iniciales
Serie<-0;
C<-1;
Factorial<-1;
Mientras (C<=N) Hacer
Factorial<-Factorial*C
C<-C+1;
Serie<-(Factorial-N)/(N-1)
Fin Mientras
//IMPRIMIR
Escribir "La serie de ", N, " es:", Serie;
4:
Escribir " Sumatoria de rc(N!/N+1)"
Escribir "Ingrese el numero"
Definir serie como Real
leer N;
//Valores Iniciales
serie <-0
C<-1
Factorial<-1
Mientras (C<=N) Hacer
Factorial<-Factorial*C
C<-C+1;
serie<-(rc((Factorial)/(N+1)))
FinMientras
//IMPRIMIR
Escribir "La sumatoria de rc(N!/N+1) es:", serie;
5:
Escribir "Tabla de Multiplicar";
Definir INICIAL, FINAL Como Entero;
INICIAL = 5;
FINAL = 10;
Escribir "Tabla del ", N, " :";
Leer N;
C = INICIAL
Mientras (C<=FINAL) Hacer
Escribir C, "*", N, "=", C*N;
C<-C+1;
Fin Mientras
De Otro Modo:
Escribir "NO ES UNA OPCION";
FinSegun
FinProceso
Esta es la parte inicial, las partes rojas son las palabras que saldrán en la pantalla y los azules son los comandos.
PONEMOS OPCIONES PARA QUE SE PUEDA RESOLVER DE UNA MANERA MAS ORDENADA
En la opción 1 hallamos el factorial de un número.
En la opción 2 hallamos la suma de los números naturales
CLASE DEL JUEVES
Primera formula
Proceso MRUV
Escribir "****************"
Escribir "ACELERACION"
Escribir "****************"
//Declaracion
Definir t, Vf, Vo, a Como Real
Definir inicio, final Como Real
leer Vf, Vo
inicial<-0
final<-30
t<-inicial
//Proceso
Hacer
a<- (Vf * Vo)/t
t<- t+3.3
mientras(t<= final)
//Resultado
Imprimir (a)
FinProceso
Segunda formula
Proceso .
Escribir "****************"
Escribir "F=K(Q1*Q2)/D^2"
Escribir "****************"
//Declaracion
Definir F,K,Q1,Q2,D Como Real
Definir inicio, final Como Real
leer Q1,Q2
K<-9*10^-9
inicial<-10
final<-40
D<-inicial
//Proceso
Hacer
F<- (Q1 * Q2)/D^2
t<- t+3.3
mientras(t<= final)
//Resultado
Imprimir (F)
FinProceso
Tercera formula
Proceso MRUV
Escribir "****************"
Escribir "VELOCIDAD FINAL"
Escribir "****************"
//Declaracion
Definir Vf, Vi, g, t Como Real
Definir inicio, final Como Real
leer t
g<-9.8
inicial<-0
final<-80
Vi<-inicial
//Proceso
Hacer
Vf<- Vi + g * t
Vi<- Vi + 5
mientras(Vi<= final)
//Resultado
Imprimir (Vf)
FinProceso
Cuarta formula
Proceso MRUV
Escribir "****************"
Escribir "VELOCIDAD INICIAL"
Escribir "****************"
//Declaracion
Definir Vi1, Vi2, Vf, a, t Como Real
Definir inicio, final Como Real
leer Vf, t
inicial<-1
final<-10
a<-inicial
//Proceso
Hacer
Vi1<- Vf + (1/2) * a * t
Vi2<- Vf - (1/2) * a * t
a<- a + 0.25
mientras(a<= final)
//Resultado
Imprimir (Vi)
FinProceso