Convertidor de metros a kilometros

Proceso metrosakilometros
Escribir "Ingresa los metros";
    Leer m;
Escribir "Ingresa segundos";
leer s;
k<-m/1000
h<-s/3600
Escribir "  ",k,"km/ ",h,"hrs";
FinProceso

Read More

Temperatura segun los sonidos de un grillo

Algoritmo que te muestra la temperatura segun los sonidos emitidos por un grillo

Proceso grillo
definir num_sonidos,temp como real
Escribir "Ingresa el numero de sonidos emitidos";
Leer num_sonidos;
temp<- (num_sonidos/4)+40;
Escribir "La temperatura,haciendo uso del grillo como termometro es:",num_sonidos,"°f";
FinProceso

Read More

Indice de masa corporal

Algoritmo que muestra tu indice de masa corporal segun tu peso y altura

Proceso
definir p,a,a2,IMC como real
Escribir "Ingresa tu peso";
Leer p
Escribir "ingresa tu altura";
Leer a
a2<-a^2
IMC<-p/a2
Escribir "Tu indice de masa corporal es: ",IMC;
FinProceso

Read More

Valor intercambiado

Proceso valor
Escribir  'ingrese el valor de x';
Leer a;
Escribir 'ingrese el valor de y';
Leer  b;
c<-a;
a<-b;
b<-c;
Escribir 'el valor intercambiado de x = ',a,' y el valor de y = ',b;
FinProceso

Read More

Algotimo que muestra un saludo

Proceso saludo
Escribir  'Ingresa tu nombre';
Leer nombre;
Escribir 'Hola ',nombre;
FinProceso

Read More

Promedio de 5 calificaciones

Proceso valor
Escribir  'Ingresa calificacion 1';
Leer a;
Escribir  'Ingresa calificacion 2';
Leer b;
Escribir  'Ingresa calificacion 3';
Leer c;
Escribir  'Ingresa calificacion 4';
Leer d;
Escribir  'Ingresa calificacion 5';
Leer e;
c<-a+b+c+d+e;
g<-c/5;

Escribir 'la calificacion es = ',g;
FinProceso

Read More

IVA

Proceso IVA
escribir "Ingresa el recio de tu producto: ";
leer a
iva<-a*0.16
prec<-iva+a
escribir "el precio oridinal del producto es: " ,a, " el iva es: ",iva, " el precio + iva es: " prec;

FinProceso

Read More

Area de un rectangulo

Algoritmo que muestra el area de un rectangulo segun sus datos.


Proceso valor
Escribir  'ingrese la base';
Leer b;
Escribir 'ingrese altura';
Leer  a;
c<-a*b;
Escribir 'la formula es base x altura = ',b ,'*' ,a, '= ' ,c;
FinProceso

Read More

Suma, resta y multiplicación con Case (según sea)

Proceso sin_titulo
Escribir "*********************************************";
Escribir "(1) Suma de dos numeros";
Escribir "(2) Resta de dos numeros";
Escribir "(3) Multiplicacion de dos numeros";
Escribir "*********************************************";
Escribir "Ingresa el primer numero";
Leer a;
Escribir "Ingresa el segundo numero";
Leer b;
Escribir "Que operacion deceas hacer";
Leer n;
Segun n Hacer
1:
Escribir "Suma de dos numeros";
r<-a+b
Escribir a,"+",b,"=",r;
2:
Escribir "Resta de dos numeros";
r<-a-b
Escribir a,"-",b,"=",r;
3:
Escribir "Multiplicacion de dos numeros";
r<-a*b
Escribir a,"*",b,"=",r;
FinSegun
FinProceso

Read More

Zigno zodiacal (Si Entonces)

De acuerdo a una fecha dada por el usuario, indicar que signo zodiacal le corresponde además de dar un mensaje de acuerdo al signo.


Proceso Zodiaco
definir d,m como numero;
Escribir "Zignos del zodiaco ";
Escribir "Ingresa tu dia de nacimiento ";
Leer d;
Escribir "Ingresa tu mes de nacimiento ";
leer m;
si (d>=22 y m=3) o (d<=21 y m=4) Entonces
Escribir " Aries"
Escribir " Somos dueños de nuestro destino. Somos capitanes de nuestra alma."
FinSi
si (d>=22 y m=4) o (d<=21 y m=5) Entonces
Escribir " Tauro"
Escribir " Para triunfar simplemente hay que llegar, levantándose cada vez que se cae en el camino."
FinSi
si (d>=22 y m=5) o (d<=21 y m=6) Entonces
Escribir " Geminis"
Escribir " Somos dueños de nuestro destino. Somos capitanes de nuestra alma."
FinSi
si (d>=22 y m=6) o (d<=21 y m=7) Entonces
Escribir " Cancer"
Escribir " Nuestra gloria más grande no consiste en no haberse caido nunca, sino en haberse levantado después de cada caída. "
FinSi
si (d>=22 y m=7) o (d<=21 y m=8) Entonces
Escribir " Leo"
Escribir " Las oportunidades no son producto de la casualidad, mas bien son resultado del trabajo."
FinSi
si (d>=22 y m=8) o (d<=21 y m=9) Entonces
Escribir " Virgo"
Escribir " No existe la casualidad solo lo inevitable."
FinSi
si (d>=22 y m=9) o (d<=21 y m=10) Entonces
Escribir " Libra"
Escribir " Los sueños no tienen fecha de caducidad."
FinSi
si (d>=22 y m=10) o (d<=21 y m=11) Entonces
Escribir " Escorpion"
Escribir " Mientras tu dices que es imposible alguien ya lo esta haciendo."
FinSi
si (d>=22 y m=11) o (d<=21 y m=12) Entonces
Escribir " Sagitario"
Escribir " Sonríe hoy, puede que mañana tengas los dientes sucios."
FinSi
si (d>=22 y m=12) o (d<=21 y m=1) Entonces
Escribir " Capricornio"
Escribir " Nunca es demasiado tarde para luchar por aquello que es importante en tu vida."
FinSi
si (d>=22 y m=1) o (d<=21 y m=2) Entonces
Escribir " Acuario"
Escribir " Las mentiras mas grandes son: Nunca y Siempre."
FinSi
si (d>=22 y m=2) o (d<=21 y m=3) Entonces
Escribir " Piscis"
Escribir " El pasado es experiencia, que el presente aprovecha y el futuro perfecciona."
FinSi
Escribir "****Gracias por tu consulta****";

FinProceso

Read More

Fecha valida

Dados 3 números (día, mes, año) por el usuario, determinar si es una fecha válida o no.




Proceso Fecha
Definir mesvalido,Signo,Mensaje,Mensaje2 como caracter
Escribir "Escribe el año en que naciste";
    Leer a;
Escribir "Escribe el dia en que naciste";
Leer d;
Si d<1 O d>31 Entonces
Escribir "Dia no valido vuelve a escribirlo porfavor";
Leer d;
FinSi
Escribir "Escribe el Mes en que naciste";
Leer m;
    Si m<1 O m >12 Entonces
Escribir "Mes no valido vuelve a escribirlo porfavor";
Leer m;
    FinSi
        si m=2 y d>29 entonces
    Escribir "Este mes solo tiene 29 dias, escribe un dia entre 01 y 29";
Leer d;
Sino
Escribir "La fecha ",d,"/",m,"/",a," es correcta";
FinSi


    FinProceso

Read More

Calificaciones

Algoritmo que determina si un alumno aprobó o reprobó de acuerdo a su promedio que se obtiene de la siguiente manera:
 3 tareas 35% de la calificación
 5 prácticas 25% de la calificación
 2 exámenes 40% de la calificación
Tomar en cuenta que para que un alumno sea calificado como aprobado, la calificación mínima es de 8.


Proceso Calificaciones
Escribir "Promedio";
Para c<-1 Hasta 3 Hacer
Escribir "Ingresa la calificacion de tu tarea ",c;
Leer cl;
cl2<-cl
cl3<-cl3+cl2
cl4<-(cl3/3)*0.35
FinPara
Escribir cl4;
Para c<-1 Hasta 5 Hacer
Escribir "Ingresa la calificacion de tus practicas ",c;
Leer pl;
p2<-pl
p3<-p3+p2
p4<-(p3/5)*0.25
FinPara
Escribir p4;
Para c<-1 Hasta 2 Hacer
Escribir "Ingresa la calificacion de tus examenes ",c;
Leer el;
e2<-el
e3<-e3+e2
e4<-(e3/2)*0.40
FinPara
Escribir e4;
cf<-cl4+p4+e4
Si cf<8 Entonces
Escribir "Tu promedio es de ",cf," estas reprobado";
Sino
Escribir "Tu promedio es de ",cf," Aprobaste";
FinSi
FinProceso

Read More

Tu frase es palindroma?

Pseudocodigo que te dice si tu frase es palindroma.


Proceso Ejercicio11
definir sub1,sub2,cad como cadena
Escribir "Palabras Palindromas";
Escribir "Inserta tu palabra o frase";
Leer sub1;
long<- Longitud(sub1)
para i<-1 hasta long con paso 1 hacer
cad<-Subcadena(sub1,i,i);
si cad=" " entonces
p<-0;
Sino
sub2<-concatenar(sub2,cad);
FinSi
FinPara
para i<-long hasta 1 con paso -1 hacer
cad<-Subcadena(sub1,i,i);
si cad=" " entonces
p<-0;
Sino
cad3<-concatenar(cad3,cad);
FinSi
FinPara
si sub2=cad3 entonces
Escribir "La palabra es palindroma";
Escribir sub2;
Escribir cad3;
Sino
Escribir "La palabra no es palindroma";
Escribir sub2;
Escribir cad3;
FinSi
FinProceso

Read More

Decimal a binario

Pseudocodigo que convierte un decimal a binario.


Proceso Decimal_a_binario
    escribir "Ingresa tu numero en decimal para convertirlo a binario";
    leer x;
    si x>0 entonces
        c<-x;
        i<-1;
        bin<-0;
mientras c<>1 Hacer
bin<-bin+(c%2)*i;
c<-TRUNC(c/2);
i<-i*10;
FinMientras
bin<-bin+(c%2)*i;
escribir bin
    FinSi
FinProceso

Read More

Fibonacci

Pseudocodigo que muestra en pantalla la serie fibonacci dado el número de términos por el usuario. Ejem: n=7.                0, 1, 1, 2, 3, 5, 8…


Proceso Fibonacci
Definir f1,f2,c,r,n como entero
f1<-1;
f2<-0;
Escribir "Ingresa la cantidad de numeros a mostrar menor o igual a 30";
leer n;
Para c<-1 Hasta n Hacer
r<-f1+f2;
f1<-f2;
f2<-r;
Escribir f2;
FinPara
FinProceso

Read More

Secuencia de números y determinar el mayor de los pares leídos

Pseudocodigo que lee una secuencia de números y determinar el mayor de los pares leídos.


Proceso mayor_pares
Escribir "Identifica el mayor de los pares";
Definir num,nm Como Real;
Definir i Como Entero;
Escribir "¿Donde terminara tu secuencia?";
Leer sec;
nm<-0;
Para i<-1 Hasta sec Con Paso 1 Hacer
Escribir "Ingresa un numero";
Leer num;
Si num%2=0 Entonces
Si nm<=num Entonces
nm<-num;
FinSi
FinSi
FinPara
Escribir "Numero mayor = ",nm;
FinProceso

Read More

Suma de numeros pares y productos de los multiplos de 5

Pseudocodigo que lee una secuencia de números y muestra la suma de los pares y el producto de los que son múltiplo de 5.

Proceso Secuancia_de_numeros
Escribir "Identifica el mayor de los pares";
Definir num,nm Como Real;
Definir i Como Entero;
j<-0
f<-1
Escribir "¿Donde terminara tu secuencia?";
Leer s;
nm<-0;
Para i<-1 Hasta s Con Paso 1 Hacer
Escribir "Ingresa un numero";
Leer num;
Si num%2=0 Entonces
j<-j+num
FinSi
si num%5=0 Entonces
f<-f*num
FinSi
FinPara
Escribir "La suma de los pares es = ",j;
Escribir "El producto de la suma de los multiplos de 5 es = ",f;
FinProceso

Read More

Costo de llamada

Algoritmo que te da el costo de las llamadas telefónicas internacionales, depende de la zona geográfica en la que se encuentre el país destino y del número de minutos hablados. En la siguiente tabla se presenta el costo por minuto, por zona. A cada zona se le ha asociado una clave.

Proceso llamadas
Definir c,r Como Entero
Definir m Como Real
Repetir
Escribir "******************MENU**********************";
Escribir "       ZONA                CLAVE     PRECIO";
Escribir " AMERICA DEL NORTE......... 12          2  ";
Escribir "  AMERICA CENTRAL.......... 15         2.2  ";
Escribir "  AMERICA DEL SUR.......... 18         4.5 ";
Escribir "     EUROPA ............... 19         3.5 ";
Escribir "      ASIA ................ 23          6  ";
Escribir "     AFRICA ............... 25          6  ";
Escribir "    OCEANIA ............... 29          5  ";
Escribir "";
Escribir "Ingresa la clave segun su zona";
Leer c;
Escribir "Cuantos minutos duro tu llamada";
Leer mll;
Segun c Hacer
12:
Escribir " El total de tu llamada es $",mll*2," pesos";
15:
Escribir " El total de tu llamada es $",mll*2.2," pesos";
18:
Escribir " El total de tu llamada es $",mll*4.5," pesos";
19:
Escribir " El total de tu llamada es $",mll*3.5," pesos";
23:
Escribir " El total de tu llamada es $",mll*6," pesos";
25:
Escribir " El total de tu llamada es $",mll*6," pesos";
29:
Escribir " El total de tu llamada es $",mll*5," pesos";
de Otro Modo:
Escribir "Esta zona no existe"
FinSegun
Escribir "Desea volver al menu? (1)si (2)no"
Leer r
Hasta Que r=2
FinProceso

Read More

Algoritmo numeros pares

Algoritmo que imprima los números pares entre 0 y 100.

Proceso Numerospares
Definir i Como Entero
Escribir "Numeros pares";
Para i<-1 hasta 100 Con Paso 1 Hacer
si i%2=0 entonces
Escribir "numero par";
Escribir " ",i;
FinSi
FinPara
FinProceso

Read More