Algoritmo PaginaWeb
Escribir ("Ingrese su edad para ingresar a la página: ");
Leer X
si X >=18 Entonces
Escribir ("Puede ingresar a la página ");
Sino
Escribir ("No puede ingresar a la página, Ud es menor de edad ");
Finsi
FinAlgoritmo
Ejercicio N° 6“Mientras” -----> (Trabaja con variables) --> “Mientras”
Algoritmo Pensador
Escribir ("Adivina el número que estoy pensando!! :/ _ Pista, es menor que 20");
Escribir ("Si te equivocas segui intentando hasta que adivines el número!!");
Leer X;
Mientras X <> 7 Hacer
Leer X;
Si X = 7 Entonces
Escribir ("FELICITACIONES ES EL NÚMERO CORRECTO!!" );
FinSi
FinMientras
FinAlgoritmo
Ejercicio N° 7 “Repetir” -----> (Trabaja con variables) --> “Repetir”
Algoritmo Repetir
Escribir ("Ingrese la contraseña");
Repetir
Leer X ;
Hasta Que X = ("Sistema21");
Escribir ("BIENVENIDOS AL SISTEMA!!");
FinAlgoritmo
Ejercicio N° 9“PARA 2” -----> (Trabaja con variables) --> “-----------”
Algoritmo Ganandor
Escribir ("Escribe la cantidad de vector 1");
Leer A;
V1<-0;
Para I<-1 Hasta A Con Paso 1 Hacer
Escribir ("Ingresa el número a sumar: ");
Leer P;
V1<-V1 + P;
Fin Para
Escribir ("El resultado de la suma de dichos números es: "), V1;
6
IPES “Florentino Ameghino”
Escribir ("Escribe la cantidad de vector 2");
Leer B;
V2<-0;
Para J<-1 Hasta B Con Paso 1 Hacer
Escribir ("Ingresa el número a sumar: ");
Leer Q;
V2<-V2 + Q;
Fin Para
Escribir ("El resultado de la suma de dichos números es: "), V2;
si V1 < V2 Entonces
Escribir ("Felicidades! Vector 2 es el mayor con el resultado de: "), V2;
Sino
Escribir ("Felicidades! Vector 1 es el mayor con el resultado de: "), V1;
FinSi
FinAlgoritmo
Ejercicio N° 10 “Subproceso” -----> (Trabaja con variables) --> “Subproceso + Para modificado”
Funcion Prom <- Promedio ( Arreglo,Cantidad )
Suma<-0;
Para i<-1 Hasta Cantidad Hacer
Suma<-Suma + Arreglo[i]
Fin Para
Prom<-Suma/Cantidad
Fin Funcion
Algoritmo Principal
Dimension Datos[100]
Escribir "Ingresa el número a calcular "
Leer X;
Para i<-1 Hasta X Hacer
Escribir "Ingresa las notas: ",X ":"
Leer Datos[i]
Fin Para
Escribir "El promedio final es: " Promedio(Datos,X)
FinAlgoritmo
8
IPES “Florentino Ameghino”
------------------------------------------------------------00-----------------------------------------------------------------
Ejercicio N° 11 “Ejemplo de Calificación” -----> (Trabaja con variables) --> “Para → Serie”
Algoritmo sin_titulo
//Clacule el promedio de 4 materias y diga si el alumno está aprobado
Escribir "Escriba su nombre completo: "
Leer Nombre;
Escribir "Ingrese la calificación de la materia 1";
Leer Cal1; //Calc2, Calc3, Calc4
Escribir "Ingrese la calificación de la materia 2";
Leer Cal2;
Escribir "Ingrese la calificación de la materia 3";
Leer Cal3;
Escribir "Ingrese la calificación de la materia 4";
Leer Cal4;
Promedio<-(Cal1+Cal2+Cal3+Calc4)/4;
Escribir Nombre, Promedio ;
FinAlgoritmo
Ejercicio N° 11 bis “Dimension & Arreglos ” -----> (Trabaja con variables) --> “Para → Serie”
Algoritmo Calificación
Dimension Cal[4];
Para Ciclo<-1 Hasta 4 Con Paso 1 Hacer
Escribir "Ingrese la calificación de la materia ", Ciclo;
Leer Cal[Ciclo]
Fin Para
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir "Calificación de la materia: ", i, "= ",Cal[i];
Fin Para
Promedio<-(Cal[1]+Cal[2]+Cal[3]+Cal[4])/4;
Escribir "La calificación final es: ", Promedio;
//Cree un arreglo de 20 posiciones llenado de forma aleatoria
//de 1 a 100 de manera que ningún número se repita. Luego indique
//en que posición del arreglo se encuentra el número mayor y cuál es.
Algoritmo sin_titulo
Definir arr,num, i Como Entero;
Definir repetido Como Logico;
Dimension arr[20];
Para i<-0 Hasta 19 Con Paso 1 Hacer
Repetir
//generar el número aleatorio
num = 1 + azar(100);
repetido = falso
si i>=1 Entonces
Para c=0 Hasta i-1 Con Paso 1 Hacer
si arr[c]==num Entonces
repetido = Verdadero
Escribir "NÚMERO REPETIDO", num;
FinSi
Fin Para
FinSi
Hasta Que repetido = Falso
arr[i] = num;
Escribir arr[i];
Fin Para
FinAlgoritmo