Proceso Calcularlasumadelcuadrado
//Calcular la suma de los cuadrados de los primeros 100 entero
//Escribir el resultado
suma<-0
para i<-1 hasta 100 con paso 1 Hacer
suma <- suma + i^2
FinPara
Escribir "La suma es:", suma
FinProceso
-------------------------------------------------
Proceso sin_titulo
//Desarrolle un algoritmo que permita leer tres
//almacenarlos en las variables A,b y c respectivamente
//Recuerde constatar que los tres valores introducido
//sean valores introducidos por el teclado sean valores distintos
//Presente un mensaje de alerta en caso de que se detecte la introduccion de valores iguales
escribir "ingrese el primer numero"
leer a;
escribir "ingrese el segundo numero"
leer B;
mientras a=b Hacer
escribir "error, ingrese numero nuevamente"
FinMientras
Escribir "ingrese el tercer Nº"
Leer C
Mientras c=A o C=B hacer
escribir "error ingrese nuevamente"
FinMientras
Si a>b Entonces
si a>C Entonces
escribir "Aes mayor"
Sino
Escribir " C Es mayor"
FinSi
SIno
si B>c Entonces
escribir "B es mayor"
Sino
Escribir " C Es Mayor"
FinSi
FinSi
FinProceso
-------------------------------------
Proceso Binario
Escribir "Ingrese un numero binario";
Leer n;
Binario <- n;
Suma <- 0;
i <- 1;
Repetir
d <- n mod 10;
suma <- suma + d*2^i;
i <- i + 1;
n <- trunc(n/10);
hasta que n=0
escribir "El numero binario : ",binario, " en decimal es : ", suma;
FinProceso
