Bucle o Cíclo Para:
Es otra estructura de control repetitiva pero en este
caso la propia estructura inicializa una variable que se va a usar de contador,
además, va sumándole la cantidad paso y por último incluye el valor final
que debe tomar la variable para salir del bucle.
A continuación vemos la sintaxis y también el mismo ejemplo que hemos
visto con las estructuras mientras y repetir, su ejecución da
exactamente el mismo resultado.
Formato de Para:
Para variable<-valor inicial Hasta valor final
Con Paso incremento / decremento Hacer
ejemplo con Repetir :
Algoritmo ejemplo
Limpiar Pantalla
Definir vNumero Como Entero
Escribir ""
vNumero<-0
Repetir
Escribir ""
vNumero<-vNumero+1
Escribir "vNumero es ",vNumero
Hasta Que vNumero=10
Escribir ""
Escribir " para continuar"
FinAlgoritmo
Algoritmo ejemplo
Limpiar Pantalla
Definir vNumero Como Entero
Escribir ""
vNumero<-0
Para vNumero<-1 Hasta 10 Paso 1 Hacer
Escribir ""
Escribir "vNumero es ",vNumero
Fin Para
Escribir ""
Escribir " para continuar"
FinAlgoritmo
Algoritmo ejemplo
definir vNumero Como Entero
definir R Como Entero
Limpiar Pantalla
Escribir ""
Escribir "números del 1 al 10 incrementando de 1 en 1"
Escribir ""
Escribir " para continuar"
Esperar Tecla
Escribir ""
Para vNumero<-1 Hasta 10 Con Paso 1 Hacer
Escribir " vNumero es ",vNumero
FinPara
Escribir ""
Escribir " para continuar"
Esperar Tecla
Limpiar Pantalla
Escribir ""
Escribir "números del 2 al 10 incrementando de 2 en 2"
Escribir ""
Escribir " para continuar"
Esperar Tecla
Escribir ""
Para vNumero<-2 Hasta 10 Con Paso 2 Hacer
Escribir " vNumero es ",vNumero
FinPara
Escribir ""
Escribir " para continuar"
Esperar Tecla
Limpiar Pantalla
Escribir ""
Escribir "números del 10 al 2 decrementando de -2 en -2"
Escribir ""
Escribir " para continuar"
Esperar Tecla
Escribir ""
Para vNumero<-10 Hasta 2 Con Paso -2 Hacer
Escribir " vNumero es ",vNumero
FinPara
Escribir ""
Escribir " para continuar"
Esperar Tecla
Limpiar Pantalla
Escribir ""
Escribir "números del -12 al 12 incrementando de 2 en 2"
Escribir ""
Escribir " para continuar"
Esperar Tecla
Escribir ""
Para vNumero<--12 Hasta 12 Con Paso 2 Hacer
Escribir " vNumero es ",vNumero
FinPara
Escribir ""
Escribir " para continuar"
Esperar Tecla
FinAlgoritmo
Algoritmo ejemplo
definir vNumero Como Entero
definir R Como Entero
Limpiar Pantalla
Escribir ""
Escribir "tabla de multiplicar"
Escribir ""
Escribir "Qué número de tabla deseas ? " Sin Saltar
Leer vNumero
Escribir ""
Para R<-1 Hasta 10 Con Paso 1 Hacer
Escribir vNumero," * ",R," = ",vNumero*R
FinPara
Escribir ""
Escribir " para continuar ..."
Esperar Tecla
FinAlgoritmo
Algoritmo ejemplo
definir vNumero Como Entero
definir R Como Entero
definir numMayor Como Entero
definir cantDeNumeros Como Entero
Limpiar Pantalla
Escribir ""
Escribir "captura de números y definición del número mayor"
Escribir ""
Escribir ""
Escribir "Cuántos números quieres capturar ? " Sin Saltar
Leer cantDeNumeros
Escribir ""
Escribir ""
Para R<-1 Hasta cantDeNumeros Con Paso 1 Hacer
Escribir ""
Escribir "cuál es el valor no.",R," ? " Sin Saltar
Leer vNumero
Si R=1 Entonces
numMayor<-vNumero
SiNo
Si vNumero>numMayor Entonces
numMayor<-vNumero
FinSi
FinSi
FinPara
Escribir ""
Escribir ""
Escribir "el número mayor es ",numMayor
Escribir ""
Escribir " para continuar ..."
Esperar Tecla
FinAlgoritmo
SubAlgoritmo UnaPausa
escribir ""
escribir "///////////////////////////////////"
escribir ""
escribir " para continuar.."
esperar tecla
FinSubAlgoritmo
SubAlgoritmo tablaDeMultiplicar
definir numTabla,contador como entero
Limpiar Pantalla
escribir ""
escribir "tabla de multiplicar"
escribir ""
escribir "qué número de tabla deseas ?" sin saltar
leer numTabla
escribir ""
para contador<-1 hasta 10 con paso 1 hacer
escribir numTabla," * ",contador," = ",(numTabla*contador)
FinPara
UnaPausa
FinSubAlgoritmo
SubAlgoritmo paresImpares
definir vNum,vCant,contador Como Entero
Limpiar Pantalla
escribir ""
escribir "captura de numeros e indicar pares e impares"
escribir ""
escribir "cuántos números quieres capturar ? " sin saltar
leer vCant
escribir ""
para contador<-1 hasta vCant con paso 1 Hacer
escribir "cuál es el valor no.",contador," ? " Sin Saltar
leer vNum
si vNum mod 2=0 Entonces
escribir vNum," >>> ES PAR <<< "
SiNo
escribir vNum," >>> ES IMPAR <<< "
FinSi
escribir ""
FinPara
UnaPausa
FinSubAlgoritmo
SubAlgoritmo menu
Limpiar Pantalla
escribir ""
escribir "menú"
escribir ""
escribir "1. pares e impares"
escribir "2. tabla de multiplicar"
escribir "3. capturar numeros indicar el mayor"
escribir "4. salir"
escribir ""
escribir "qué opción deseas ?"
FinSubAlgoritmo
SubAlgoritmo numeroMayor
definir vNumero,vMayor,vCont,cantidad como entero
Limpiar Pantalla
escribir ""
escribir "captura de números, e indicar el número mayor"
escribir ""
escribir "cuántos números quieres capturar ? " Sin Saltar
leer cantidad
escribir ""
para vCont<-1 hasta cantidad con paso 1 Hacer
escribir "valor no.",vCont," ? " Sin Saltar
leer vNumero
si contador=1 entonces
vMayor<-vNumero
sino
si vNumero>vMayor Entonces
vMayor<-vNumero
FinSi
FinSi
FinPara
escribir ""
escribir "el número mayor es ",vMayor
unaPausa
FinSubAlgoritmo
Algoritmo ejemplo
definir opcion Como Entero
mientras opcion<>4 Hacer
menu
leer opcion
segun opcion hacer
1:paresImpares
2:tablaDeMultiplicar
3:numeroMayor
FinSegun
FinMientras
FinAlgoritmo