Proceso ABC

Proceso abc
Escribir "ingrese el primer numero"
Leer a
Escribir "ingrese el segundo numero"
Leer b
Mientras a = b Hacer
Escribir "error , ingrese segundo numero nuevamente"
Leer b
FinMientras
Escribir
Leer c
Mientras c = a o c = b Hacer
Escribir "error , ingrese segundo numero nuevamente "
Leer c
FinMientras
si a > b Entonces
si a > c
Escribir " a es mayor "
Sino
Escribir " c es mayor "
FinSi
Sino
si b > c Entonces
Escribir " b es mayor "
Sino
Escribir " c es mayor "
FinSi
FinSi




FinProceso

Número al cubo

Proceso numeroalcubo
Escribir "ingrese un numero entero entre 1 y 10"
Leer n
Mientras n < 1 o n > 10 o n <> trunc(n) Hacer
Escribir "su numero no es valido"
leer n
FinMientras
elv<- n^3
Escribir "su valor elevado al cubo es: ",elv
FinProceso

Números primos (básico)

Proceso numerosprimos
Escribir "ingrese un numero"
Leer n
msg <- " su numero es primo"


Para i <- 2 Hasta n -1 Hacer
si n mod i = 0 Entonces
msg <- " su numero no es primo "
FinSi
FinPara
Escribir n,msg


FinProceso

Muestra el numero por dígitos

Proceso muestradigito
Escribir "ingrese un numero"
Leer n
Repetir
d <- n mod 10
n <- trunc(n/10)
Escribir d
Hasta Que n = 0

FinProceso

Nuevo Grupo de UDLA 2011

Con el Taller de Silverligth se oficializo el grupo con:

a) Valeska Gonzalez.
b) Emilio Mora.
c) Manuel Caceres.
d) Marcelo Pérez.

este es el link de  la presentacion de silverligh  http://dl.dropbox.com/u/24891692/Silverlight.ppt

Clases 19 Abril

Proceso azare
Escribir "rango numero"
Leer rango

intentos<-(rango-1);

num_secreto <- azar(intentos)+2;

Escribir "Adivine el numero en rango hasta"," ",rango
Leer num_ingresado;
Mientras num_secreto<>num_ingresado Y intentos>0 Hacer
Si num_secreto>num_ingresado Entonces
Escribir "Muy bajo";
Sino
Escribir "Muy alto";
FinSi
Escribir "Le quedan ",intentos," intentos:";
Leer num_ingresado;
intentos <- intentos-1;
FinMientras

Si intentos=0 Entonces
Escribir "El numero era: ",num_secreto;
Sino
Escribir "Exacto! Usted adivino en ",rango-intentos," intentos.";
FinSi



FinProceso