Estructuras de Repeticion
La estructura de repetición o bucle hace posible la ejecución repetida de una o más instrucciones.
Las estructuras de repetición nos permiten ejecutar varias veces unas mismas líneas de
código
Estas estructuras describen procesos que se repiten varias veces en la solución del problema.
El conjunto de acciones que se repiten conforman el cuerpo del bucle y cada ejecución del cuerpo
del bucle se denomina iteración
Pseudocodigo en Pseint
Proceso Estruturas_de_Repeticion
Definir Suma, N, C Como Enteros;
Escribir "********************************";
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 "********************************"
Escribir "Ingrese una opción:"
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;
Leer N;
Escribir "Tabla del ", 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
Practica del dia jueves
Primer Algoritmo
Proceso sin_titulo
escribir "***************"
escribir "Formula I=V*R"
escribir "***************"
escribir ""
definir I,V,R Como Real
Definir inicial,final como real
escribir "Ingresa el Valor de V"
leer V
escribir ""
inicial <- 10
final <- 100
R<- inicial
Mientras R<=final Hacer
I=V*R
R= R+10
escribir (I)
Fin Mientras
FinProceso
Segundo Algoritmo
Proceso sin_titulo
escribir "**********************"
escribir "Hallar F=K*((Q1*Q2)/D*D)"
escribir "**********************"
escribir ""
definir f,k,q1,q2,d Como Real
Definir inicial,final como real
escribir "Ingresa el Valor de q1"
leer q1
escribir ""
escribir "Ingresa el Valor de q2"
leer q2
escribir ""
k=0.000000009
inicial <- 10
final <- 40
d<- inicial
Mientras d<=final Hacer
F=K*((q1*q2)/d^2)
d= d+2.5
escribir (f)
Fin Mientras
FinProceso
Tercer Algoritmo
Proceso sin_titulo
escribir "**********************"
escribir "Formula de Caida Libre"
escribir "**********************"
escribir ""
definir Vo,Vf,g,t Como Real
Definir inicial,final como real
escribir "Ingresa el Valor de T"
leer t
escribir ""
g=9.8
inicial <- 0
final <- 80
Vo<- inicial
Mientras Vo<=final Hacer
Vf=Vo+g*t
Vo= Vo+5
escribir (Vf)
Fin Mientras
FinProceso