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
1 comentario:
DIGITO VERIFICADOR
Proceso Numero_Verificador
i <- 0
h <- 2
k <- 0
suma <- 0
escribir "Leer Rut"
leer rut1
rut <- rut1 // aca se saca cuantos numeros tiene
Repetir
rut <- trunc(rut/10)
i <- i + 1
hasta que rut = 0
Repetir
Repetir
x <- trunc(rut1/10)
mode <- rut1-(x*10)
suma <- suma + (mode*h)
rut1 <- x
si mode <> 0 Entonces
k <- k +1
FinSi
h <- h + 1
hasta que h > 7
h <- 2
k <- k + 1
hasta que k >= 8
entera <- trunc(suma/11)
mod1 <- suma -(entera * 11)
verificador <- 11 - mod1
si verificador > 9 entonces
escribir "Su digito Verificador Es k"
sino
escribir "Su digito Verificador Es ", verificador
FinSi
FinProceso
Publicar un comentario