![escribir "solo se aceptan números positivos menores que
60"
FinSi
Hasta Que minutos>=0 y minutos<60
SiNo
escribir "dato incorrecto"
escribir "solo se aceptan números positivos menores que 24"
FinSi
Hasta Que horas>=0 y horas<24
FinAlgoritmo
Ejemplo 11. Un ejemplo básico de
arreglo unidimensional.
Algoritmo arreglo1
Dimension miArreglo[5]
Para i <-1 hasta 5 Hacer
Escribir "Escriba el número"
Leer n
miArreglo[i]<-n
FinPara
Escribir "El arreglo invertido es: "
Para i <-5 hasta 1 con paso -1 Hacer
Escribir miArreglo[i]
FinPara
FinAlgoritmo
Ejemplo 12. Otro arreglo
unidimensional.
Algoritmo ejArreglo1D
Dimension arreglo1[3];](https://image.slidesharecdn.com/pseint-190603220125/85/Ejemplos-en-PSeint-11-320.jpg)
![definir arreglo1 como entero;
definir n, i como entero;
Para i<-0 hasta 2 Hacer
Escribir "Digite un número";
//Leer n
//arreglo1[i]<-n
Leer arreglo1[i];
FinPara
Para i<-0 hasta 2 hacer
Escribir arreglo1[i];
FinPara
//¿Que hará la siguiente instrucción?
//Escribir arreglo1[];
Para i<-2 hasta 0 con paso -1 hacer
Escribir arreglo1[i];
FinPara
FinAlgoritmo
Ejemplo 13. Un arreglo en 2D.
Algoritmo ejArreglo2D
Dimension myArray2D[2,2];
Definir myArray2D como real;
Definir i, j como entero;
Para i<-0 hasta 1 hacer
Para j<-0 hasta 1 hacer
myArray2D[i,j]<-azar(9)+1;
FinPara
FinPara
Para i<-0 hasta 1 hacer
Para j<-0 hasta 1 hacer
Escribir myArray2D[i,j];
FinPara
FinPara
FinAlgoritmo](https://image.slidesharecdn.com/pseint-190603220125/85/Ejemplos-en-PSeint-12-320.jpg)
![Ejemplo 14. Simulando un captcha.
Algoritmo simulaCaptcha01
Dimension captcha[5];
Definir captcha, resp como texto;
Definir i,intentos como entero;
intentos <- 3;
captcha[0] <- "BiENvEniDo";
captcha[1] <- "InGenIeRO";
captcha[2] <- "HSAKJnnds";
captcha[3] <- "GFHHAhhdia";
captcha[4] <- "ajTAJNaja";
Escribir "Ingresa el captcha";
i <- azar(5);
Escribir captcha[i];
leer resp;
Mientras resp <> captcha[i] y intentos > 1 Hacer
Escribir "Captcha incorrecto";
intentos <- intentos - 1;
Escribir "Le quedan ",intentos," intentos";
Leer resp;
Fin Mientras
Si resp = captcha[i] Entonces
Escribir "Bienvenido al sistema";
SiNo
Escribir "No acertò en los captcha, asì que no podrà entrar al sistema";;
Fin Si
FinAlgoritmo
Ejemplo 15. Simulando otro captcha.
Algoritmo simulaCaptcha02
Algoritmo arregloCaptcha
Dimension captcha[5];
definir captcha,x como cadena;](https://image.slidesharecdn.com/pseint-190603220125/85/Ejemplos-en-PSeint-13-320.jpg)
![definir i como entero;
captcha[0]<-"una frase";
captcha[1]<-"una frase1";
captcha[2]<-"una frase2";
captcha[3]<-"una frase3";
captcha[4]<-"una frase4";
Repetir
i<-azar(5);
imprimir captcha[i];
imprimir "";
imprimir "Escriba la frase para verificar si no eres un robot";
leer x;
Hasta Que x=captcha[i]
Limpiar Pantalla;
//----------
Imprimir "Redireccionando...";
esperar 3 segundos;
Limpiar Pantalla;
//------------
Imprimir "Bienvenido";
FinAlgoritmo](https://image.slidesharecdn.com/pseint-190603220125/85/Ejemplos-en-PSeint-14-320.jpg)
Ejemplos en PSeint
- 1. Ejemplo 01: Promedios Mejorados. *************** Algoritmo promediosMejorado Definir i, n, val, suma Como Entero Definir media Como Real Repetir Escribir "Necesito saber cuantos números ingresará" Leer n suma<-0 Si n >= 1 entonces Para i<-1 hasta n con paso 1 Escribir "Necesito saber el número ", i Leer val suma<-suma + val FinPara media<-suma/n Sino Escribir "Solo acepto números mayores o iguales a 1" FinSi Hasta Que n >= 1 Escribir "La media entre todos los números ingresados es: " Escribir media FinAlgoritmo Ejemplo 02. Funciones sencillas. Funcion preguntaNombre Escribir "<<¿Cómo te llamas?>>" Leer nombre FinFuncion Funcion preguntaEdad(a) si a >= 18 entonces Escribir "¡Eres mayor de edad!" sino Escribir "¡Eres menor de edad!" FinSi FinFuncion Algoritmo funcionesSencillas
- 2. preguntaNombre Escribir "¿Cúantos años tienes?" Leer edad preguntaEdad(edad) FinAlgoritmo Ejemplo 03. Factorial con funciones. Funcion fact<-Factorial(n) mult<-1 Para i<-1 hasta n mult<-mult*i FinPara fact<-mult FinFuncion Algoritmo serieDesconocida Definir s, acum Como Real Definir x, fact, mult, n Como Entero //Calculando el factorial Escribir "¿Cuál es el valor de x?" Leer x Escribir "¿Cuál es el valor de n?" Leer n s<-0 Para i<-1 hasta n hacer s <- s + ((-1)^(i-1))*(x^((2*i)-1)/Factorial((2*i-1))) FinPara Escribir "La suma acumulada es ", s FinAlgoritmo Ejemplo 04. Reloj digital sencillo. Algoritmo relojDigital
- 3. Definir horas,minutos,segs Como Entero horas <-0 minutos <- 0 segs <- 0 Mientras 1=1 Hacer escribir horas," : ",minutos," : ",segs esperar 1 segundo segs <- segs +1 Si segs=60 Entonces segs <- 0 minutos <- minutos + 1 Si minutos = 60 Entonces minutos <- 0 horas <- horas + 1 Si horas=12 Entonces horas <- 0 Fin Si Fin Si Fin Si Fin Mientras FinAlgoritmo Ejemplo 05. Usando funciones o subalgoritmos. SubAlgoritmo Saludar Escribir "¡Hola!"; FinSubAlgoritmo SubAlgoritmo nombre<-PreguntaNombre(x) Definir nombre como Caracter; nombre<-x; FinSubAlgoritmo SubAlgoritmo s<-suma(a,b) Definir s como Entero;
- 4. s<-a+b; FinSubAlgoritmo SubAlgoritmo r<-resta(a,b) Definir r como Entero; r<-a-b; FinSubAlgoritmo SubAlgoritmo m<-multi(a,b) Definir m como Entero; m<-a*b; FinSubAlgoritmo SubAlgoritmo d<-divi(a,b) Definir d como real; d<-a/b; FinSubAlgoritmo //----------------------------------- Algoritmo operaciones2Num Escribir "¿Cómo te llamas?"; Definir x como Caracter; Leer x; Escribir "Eres bienvenido, ", PreguntaNombre(x); Saludar; Definir a, b como Entero; Escribir "Sumaré dos números"; Escribir "a="; Leer a; Escribir "b="; Leer b; Escribir "y el resultado es, ", suma(a,b); Escribir "su resta es ", resta(a,b); Escribir "su producto es ", multi(a,b); Escribir "su división es ", divi(a,b); //A continuación usando ciclos Definir i,j como Entero; Para i<-1 hasta 5 hacer Para j<-1 hasta 10 con paso 2 Hacer Escribir suma(i,j);
- 5. Escribir resta(i,j); Escribir multi(i,j); Escribir divi(i,j); FinPara FinPara FinAlgoritmo Ejercicio 06. Tablas de sumar, restar, multiplicar y dividir. Algoritmo operaciones2num escribir "Mostraré las tablas de sumas, restas, multiplicación y división desde el 0 al 12."; definir j,i como entero; para i<-0 hasta 12 con paso 1 hacer Escribir "Tabla del ",i; para j<-0 hasta 12 con paso 1 hacer escribir i ,"+",j "=", suma(i,j); FinPara escribir ""; FinPara para i<-0 hasta 12 con paso 1 hacer Escribir "tabla del ",i; para j<-0 hasta 12 con paso 1 hacer escribir j, "-", i,"=", resta(j,i); FinPara escribir ""; FinPara para i<-1 hasta 12 con paso 1 hacer escribir ""; para j<-1 hasta 12 con paso 1 hacer escribir j, "/", i, "=", division(j,i);
- 6. FinPara FinPara para i<-0 hasta 12 con paso 1 hacer para j<-0 hasta 12 con paso 1 hacer escribir i, "x", j, "=", multi(i,j); FinPara FinPara FinAlgoritmo Ejemplo 07. Reloj digital Algoritmo relogDigital //Esperar 5 Segundos //Definir h,m,s como entero c<-"AM" Para t<-1 hasta 2 hacer Si t=1 entonces c<-"AM" SiNo c<-"PM" FinSi Para h<-0 hasta 1 hacer Para m<-0 hasta 2 hacer Para s<-0 hasta 20 hacer Si s < 10 y h< 10 y m < 10 entonces Escribir h,":",m,":","0",s,c SiNo Escribir h,":",m,":",s FinSi Esperar 0 segundo //Borrar pantalla FinPara FinPara FinPara FinPara
- 7. FinAlgoritmo Ejemplo 08. Usuario y clave para ingresar al sistema. Algoritmo accederAlSistema Definir contraseña_correcta, contraseña_ingresada, nombre_usuario, usuario_correcto como cadena; definir intentos, lon_cad Como Entero; intentos <- 3; usuario_correcto <- "@std.uni.edu.ni"; contraseña_correcta <- "SoyExitoso"; Imprimir "Ingrese su correo: "; Leer nombre_usuario; lon_cad <- Longitud(nombre_usuario); Si lon_cad > 15 Entonces Si Subcadena(nombre_usuario,(lon_cad - 15),lon_cad-1) = usuario_correcto Entonces Imprimir "Ingrese su contraseña: "; Leer contraseña_ingresada; Mientras contraseña_ingresada <> contraseña_correcta y intentos > 1 Hacer Imprimir "Contraseña invalida"; intentos <- intentos - 1; Imprimir "Le quedan ", intentos, " intentos"; Leer contraseña_ingresada; Fin Mientras Si contraseña_ingresada = contraseña_correcta Entonces Imprimir "Bienvenido al sistema!!"; SiNo Imprimir "Usted no podra entrar al sistema"; Fin Si SiNo Imprimir "El correo no es de la UNI"; Fin Si SiNo Imprimir "El crrreo no contiene suficientes caracteres";
- 8. Fin Si FinAlgoritmo Ejemplo 09. Otro reloj más. Funcion seg (s) Si s<10 y m>=10 y h>=10 Escribir h ":" m ":0" s " " c SiNo Si h<10 y s>=10 y m>=10 Escribir "0" h ":" m ":" s " " c SiNo Escribir h ":" m ":" s " " c FinSi FinSi FinFuncion Funcion min (m) Si m<10 y s>=10 y h>=10 Escribir h ":0" m ":" s " " c SiNo Si s<10 y m>=10 y h<10 Escribir "0" h ":" m ":0" s " " c Sino Escribir h ":" m ":" s " " c FinSi Finsi FinFuncion Funcion hor (h) Si h<10 y s>=10 y m>=10 Escribir "0" h ":" m ":" s " " c SiNo Si s<10 y h>=10 y m<10 Escribir h ":0" m ":0" s " " c Sino Escribir h ":" m ":" s " " c FinSi FinSi FinFuncion Algoritmo funcReloj
- 9. Hacer Para t<-1 hasta 2 hacer Si t=1 entonces c<-"AM" SiNo c<-"PM" FinSi Para h<-0 hasta 1 Hacer Para m<-0 hasta 2 hacer Para s<-0 hasta 2 Hacer Si s<10 y m<10 y h<10 entonces Escribir "0" h ":0" m ":0" s " " c SiNo seg(s) min(m) hor(h) FinSi Esperar 1 segundo Borrar pantalla Finpara Finpara Finpara Finpara Hasta Que desea=1 FinAlgoritmo Ejemplo 10. Y otro reloj más. Algoritmo reloj_digital definir horas como entero definir minutos como entero definir segundos como entero Escribir "Reloj Rebeca empieza a correr" Repetir escribir "escriba horas" leer horas si horas>=0 y horas<24 Repetir escribir "escriba minutos" leer minutos
- 10. si minutos>=0 y minutos<60 Repetir Escribir "escriba segundos" leer segundos Si segundos>=0 y segundos<60 Entonces Mientras verdadero Hacer Si horas<10 Entonces Escribir "0",horas ":" Sin Saltar sino escribir horas ":" sin saltar Fin Si Si minutos<10 Entonces Escribir "0",minutos ":" Sin Saltar sino escribir minutos ":" sin saltar Fin Si si segundos<10 Entonces Escribir "0",segundos sino escribir segundos Fin Si segundos<-segundos+1 si segundos=60 Entonces minutos<-minutos+1 segundos<-0 si minutos=60 Entonces horas<-horas+1 minutos<-0 fin si si horas=24 Entonces horas<-0 fin si FinSi Esperar 1 segundos Fin Mientras sino escribir "dato incorrecto" escribir "solo se aceptan números positivos menores que 60" Fin Si Hasta Que segundos>=0 y segundos<60 SiNo escribir "dato incorrecto"
- 11. escribir "solo se aceptan números positivos menores que 60" FinSi Hasta Que minutos>=0 y minutos<60 SiNo escribir "dato incorrecto" escribir "solo se aceptan números positivos menores que 24" FinSi Hasta Que horas>=0 y horas<24 FinAlgoritmo Ejemplo 11. Un ejemplo básico de arreglo unidimensional. Algoritmo arreglo1 Dimension miArreglo[5] Para i <-1 hasta 5 Hacer Escribir "Escriba el número" Leer n miArreglo[i]<-n FinPara Escribir "El arreglo invertido es: " Para i <-5 hasta 1 con paso -1 Hacer Escribir miArreglo[i] FinPara FinAlgoritmo Ejemplo 12. Otro arreglo unidimensional. Algoritmo ejArreglo1D Dimension arreglo1[3];
- 12. definir arreglo1 como entero; definir n, i como entero; Para i<-0 hasta 2 Hacer Escribir "Digite un número"; //Leer n //arreglo1[i]<-n Leer arreglo1[i]; FinPara Para i<-0 hasta 2 hacer Escribir arreglo1[i]; FinPara //¿Que hará la siguiente instrucción? //Escribir arreglo1[]; Para i<-2 hasta 0 con paso -1 hacer Escribir arreglo1[i]; FinPara FinAlgoritmo Ejemplo 13. Un arreglo en 2D. Algoritmo ejArreglo2D Dimension myArray2D[2,2]; Definir myArray2D como real; Definir i, j como entero; Para i<-0 hasta 1 hacer Para j<-0 hasta 1 hacer myArray2D[i,j]<-azar(9)+1; FinPara FinPara Para i<-0 hasta 1 hacer Para j<-0 hasta 1 hacer Escribir myArray2D[i,j]; FinPara FinPara FinAlgoritmo
- 13. Ejemplo 14. Simulando un captcha. Algoritmo simulaCaptcha01 Dimension captcha[5]; Definir captcha, resp como texto; Definir i,intentos como entero; intentos <- 3; captcha[0] <- "BiENvEniDo"; captcha[1] <- "InGenIeRO"; captcha[2] <- "HSAKJnnds"; captcha[3] <- "GFHHAhhdia"; captcha[4] <- "ajTAJNaja"; Escribir "Ingresa el captcha"; i <- azar(5); Escribir captcha[i]; leer resp; Mientras resp <> captcha[i] y intentos > 1 Hacer Escribir "Captcha incorrecto"; intentos <- intentos - 1; Escribir "Le quedan ",intentos," intentos"; Leer resp; Fin Mientras Si resp = captcha[i] Entonces Escribir "Bienvenido al sistema"; SiNo Escribir "No acertò en los captcha, asì que no podrà entrar al sistema";; Fin Si FinAlgoritmo Ejemplo 15. Simulando otro captcha. Algoritmo simulaCaptcha02 Algoritmo arregloCaptcha Dimension captcha[5]; definir captcha,x como cadena;
- 14. definir i como entero; captcha[0]<-"una frase"; captcha[1]<-"una frase1"; captcha[2]<-"una frase2"; captcha[3]<-"una frase3"; captcha[4]<-"una frase4"; Repetir i<-azar(5); imprimir captcha[i]; imprimir ""; imprimir "Escriba la frase para verificar si no eres un robot"; leer x; Hasta Que x=captcha[i] Limpiar Pantalla; //---------- Imprimir "Redireccionando..."; esperar 3 segundos; Limpiar Pantalla; //------------ Imprimir "Bienvenido"; FinAlgoritmo