Ejercicios de Estructuras Repetitivas:
Estructura Para:
Imprimir todos los números pares desde 2 hasta el 300.
1 Proceso NumerosParesDesde2al300
2 //Imprimir
numeros pares desde el 2 al 300
3 Definir indice Como Entero;
4 Para indice<-2 Hasta 300 Con Paso 2 Hacer
5 Escribir indice;
6 FinPara
7 FinProceso
Imprimir todos los números impares desde 2 hasta el 300.
1 Proceso NumerosImParesDesde2al300
2 //Imprimir
numeros pares desde el 2 al 300
3 Definir indice Como Entero;
4 Para indice<-3 Hasta 300 Con Paso 2 Hacer
5 Escribir indice;
6 FinPara
7 FinProcesoImprimir los valores comprendidos entre el 460 y 500 en orden inverso.
1 Proceso ImprimirLosvaloresdel460Al500enInverso
2 Definir indice como entero;
3 Para indice <-500 hasta 460 con paso -1 hacer
4 Escribir indice;
5 FinPara
6 FinProceso
Un programa que lea un valor N, que indica cuantos números va a leer, y calcule la suma y la media.
1 Proceso LeerNNumerosCalcularSumaYMedia
2 //Leer por
teclado cantidad de numeros a leer
3 //Leer los
numeros y calcular suma y media
4 Definir N, Indice Como Entero;
5 Definir Numero, Suma,
Media Como Real;
6 Suma <- 0;
7 Escribir "Dime Cuantos
Numeros";
8 Leer N;
9 Si ( N > 0 ) entonces
10 Para Indice<-1 hasta N hacer
11 Escribir "Dime el
", Indice , "er Numero";
12 Leer Numero;
13 Suma <- Suma + Numero;
14 FinPara
15 Media <- Suma / N;
16 Escribir "La Suma es
", Suma , " La media es ", Media;
17 Sino
18 Escribir "0 Numeros
leidos";
19 FinSi
20 FinProceso
Un programa que lea 200 números y me indique cual el máximo y el mínimo.
1 Proceso Leer200NumerosYMuestreMaxYMin
2 //Leer 200 num
de teclado y mostar max y min
3 Definir Indice Como Entero;
4 Definir Num, Max,
Min Como Real;
5 Escribir "Dime un
Numero";
6 Leer Num;
7 Max<-Num;
8 Min<-Num;
9 Para Indice <- 1 hasta 199 hacer
10 Escribir "Dime un
Numero";
11 Leer Num;
12 Si (Num>Max)
entonces
13 Max<-Num;
14 FinSi
15 Si (Num<Min)
Entonces
16 Min<-Num;
17 FinSi
18 FinPara
19 Escribir "Max ", Max, " Min ", Min;
20 FinProceso
Otra alternativa.
1 Proceso Leer200NumerosYMuestreMaxYMin
2 //Leer 200 num
de teclado y mostar max y min
3 Definir Indice Como Entero;
4 Definir Num, Max,
Min Como Entero;
5 Max<--999999999999999;
6 //Escribir Max;
7 Min<-999999999999999;
8 Para Indice <- 1 hasta 10 hacer
9 Escribir "Dime un
Numero";
10 Leer Num;
11 Si (Num>Max)
entonces
12 Max<-Num;
13 FinSi
14 Si (Num<Min)
Entonces
15 Min<-Num;
16 FinSi
17 FinPara
18 Escribir "Max ", Max, " Min ", Min;
19 FinProceso
Un programa que sume el valor de los número pares de 1 a 30.
1 Proceso SumarNumerosParesEntreUnoY30
2 //Suma los
números pares entre 1 y 30
3 Definir indice Como Entero;
4 Definir Suma Como Entero;
5 Suma <- 0;
6 Para Indice <- 2 hasta 30 con paso 2 Hacer
7 Suma <- suma + Indice;
8 FinPara
9 Escribir Suma;
10 FinProceso
