Algoritmos En Pseint

Algoritmos en Pseint

* Proceso 10_veces
Para x <-1 Hasta 10 Hacer
Escribir "No debo llegar tarde a clase";
FinPara
FinProceso

* Proceso Vocal_Consonante
Escribir "Escribe unaletra";
Leer L;
Si (L="a")o(L="e")o(L="i")o(L="o")o(L="u") Entonces
Escribir "Tu letra es vocal";
Sino
Escribir "Tu letra es consonate";
FinSi
FinProceso

* Proceso Mayor_de_edad
Escribir"¿Cuál es tu nombre y apellido?";
Leer A;
Escribir "¿Cuál es tu sexo?";
Leer B;
Escribir "¿Cuál es tu edad?";
Leer C;
Si (C>=18) Entonces
Escribir "Eres mayor de edad";
Sino
Escribir"Eres menor de edad";
FinSi
Escribir a;
Escribir b;
Escribir c;
FinProceso

* Proceso Tabla_de_multiplicar
Escribir "Introduce un número para multiplicar";
Leer num;
a<-0;
Parai<-0 hasta 10 hacer
res<-num*a;
Escribir "",num,"*",a,"=",res;
a<-a+1;
FinPara
FinProceso

* Proceso Número
Escribir "Número del 1 al 10";
Leer num;
Segun num Hacer
1:
Escribir"Uno";
2:
Escribir "Dos";
3:
Escribir "Tres";
4:
Escribir "Cuatro";
5:
Escribir "Cinco";
6:
Escribir "Seis";
7:
Escribir "Siete";
8:
Escribir "Ocho";
9:
Escribir "Nueve";
10:
Escribir"Diez";
De Otro Modo:
Escribir "Escribe un número entre el 1 y el 10";
FinSegun
FinProceso

* Proceso Calificación_alumno
Escribir "Escribe tu nombre";
Leer nom;
Escribir "Escribe tucalificación";
Leer cal;
Si (cal<7) Entonces
Escribir "Reprobado"; Escribir nom;
Sino
Si (cal>=7) & (cal<9) Entonces
Escribir "Aprobado"; Escribir nom;
Sino Entonces
Escribir"Exelente"; Escribir nom;
FinSi
FinSi
FinProceso

* Proceso Orden_decreciente
i<-101;
Para x<-0 Hasta 100 Hacer
i<-i-1;
Escribir "", i;
FinPara
FinProceso

* ProcesoAdivina_el_número
Intentos <-9;
num_secreto <-azar(100)+1;
Escribir "Adivine el número del 1 al 100";
Leer num_ingresado;
Mientras num_secreto<>num_ingresado Y intentos>0 Hacer
Si...