UNIDAD EDUCATIVA ``VICTOR MANUEL GUZMAN´´

NOMBRE: Nicole Guaitarilla

CURSO: PRIMERO INFORMATICA ``A´´
Algoritmo EJERCICIO1INGT
Definir a Como Carácter
Escribir "ingrese su nombre:"
Leer INGT
Escribir "hola “, INGT
Fin Algoritmo
Proceso PerimetroINGT_Areaingt_Circulo ingt2
Definir radioingt, perimetroingt, areaingt Como Real
Definir ingt Como Real
Ingt<- 3.14159

Escribir "Ingrese el radioingt del círculo:"

Leer radioingt

perimetroingt <- 2 * PI * radioingt

areaingt <- ingt* radioingt * radioingt

Escribir "El perímetro del círculo es:", perimetro

Escribir "El áreaingt del círculo es:", area

FinProceso
Algoritmo EJERCICIO3 ingt
Definir n1,n2,n3,n4 como entero
 Definir prom Como real
Escribir "ingrese las 4 notas"
leer n1,n2,n3,n4
promingt=(n1+n2+n3+n4)/4
Escribir "el promedio es : ",promingt
FinAlgoritmo
Algoritmo EJERCICIO4 ingt
Definir pulgada, centimetro Como Real
Escribir "ingrese longitud"
Leer centimetro
pulgadaingt = centimetroingt /2.54
Escribir centimetroingt , " cm = ",pulgadaingt

Escribir "ingrese longitud"

Leer centimetro
pulgada = centimetro /2.54
Escribir centimetro , " cm = ",pulgada
FinAlgoritmo
Algoritmo EJERCICIO5 LG
//escriba un programa que reciba como entrada las longitudes de los catetos a y b de un
triángulo, rectángulo, y que entregue como salida el largo de la hipotenusa c del triangulo,
dado por el teorema de pitagoras c2=a2+b2
Definir a, b, c Como real
Escribir ("ingrese el cateto a: ")
Leer a
Escribir ("ingrese el cateto b: ");
Leer b
c <-raiz((a*a)+(b*b))
 Escribir "la hipotenusa del triangulo es: ", c
FinAlgoritmo
Algoritmo EJERCICIO6 LG
Definir hora, minuto, segundo Como Entero
Escribir "dame la hora actual"
Leer hora
Escribir "dame los minutos"
Leer minuto
Escribir "dame los segundos"
leer segundos
Mientras hora <= 23 Hacer
Mientras segundos <= 59 hacer
Limpiar Pantalla
si hora > 9 Entonces
Escribir hora Sin Saltar
SiNo
Escribir "0", hora Sin Saltar
FinSi
si minuto > 9 Entonces
Escribir ":", minuto Sin Saltar
SiNo
Escribir ":", minuto Sin Saltar
FinSi
si segundos > 9 Entonces
Escribir ":", segundos
SiNo
Escribir ":", segundos
 FinSi
segundos = segundos +1
Esperar 1 Segundo
FinMientras

hora = hora +1
Si hora = 24 Entonces
hora = 0
Fin Si
Fin Mientras
Finalgoritmo
Algoritmo EJERCICIO7 LG
Escribir " por favor ingrese un numero"
leer a
Escribir "por favor ingrese un numero"
Leer b
Si a%2=0 Entonces
Escribir a, " es un numero par"
SiNo
Escribir b, " no es número par"
Fin Si
FinAlgoritmo
Algoritmo EJERCICIO LG 8
//escriba un programa que determine si el numero entero ingresado por el usuario
es par o no
Definir cociente, numerador, denominador, resta, coeciente2, numerador2,
denominador2, resta2 Como real
Escribir "ingrese el numerador"
 Leer numerador
Escribir "ingrese el denominador"
Leer denominador
Si denominador0 Entonces
cociente <- numerador/denominador
resta <- numerador MOD denominador
Escribir "el cociente de la división es”, dividendo
Escribir "la resta de la división es”, divisor

SiNo
Escribir "NO SE PUEDE DIVIDIR ENTRE CERO"
Fin Si

Escribir "ingrese el numerador"

Leer numerador2
Escribir "ingrese el denominador"
Leer denominador2
Si denominador20 Entonces
cociente2 <- numerador2/denominador2
resta2 <- numerador2 MOD denominador2
Escribir "el cociente de la división es”, coeciente2
Escribir "la resta de la división es”, resta2

SiNo
Escribir "NO SE PUEDE DIVIDIR ENTRE CERO"
Fin Si
Fin Algoritmo
Algoritmo EJERCICIO9 LG
Definir palabra Como Carácter
Definir n Como Entero
Definir h Como Entero
Definir a Como Entero
Definir b Como Entero
Definir c Como Entero
Definir k Como Entero
Escribir "ingrese una palabra"
leer palabra
Escribir "ingrese una palabra2"
Leer palabra2
Escribir "ingrese una palabra3"
Leer palabra3
Escribir "ingrese una palabra4"
Leer palabra4
Escribir "ingrese una palabra5"
Leer palabra5
Escribir "ingrese una palabra6"
Leer palabra6
n = Longitud(palabra)
h = Longitud(palabra2)
a = Longitud(palabra3)
b = Longitud(palabra4)
c = Longitud(palabra5)
k = Longitud(palabra6)
Escribir " la palabra ", palabra, " tiene ",n," caracteres"
 Escribir "la palabra2 ", palabra2, " tiene ", h," caracteres"
Escribir "la palabra3 ", palabra3, " tiene ", a," caracteres"
Escribir "la palabra4 ", palabra4, " tiene ", b," caracteres"
Escribir "la palabra5 ", palabra5, " tiene ", c," caracteres"
Escribir "la palabra6 ", palabra6, " tiene ", k," caracteres"
FinAlgoritmo
Algoritmo EJERCICO10 lG
Definir a, b Como Entero
Escribir "ingresa 2 numeros"
Leer a, b
Definir c, l, d Como Entero
Leer c, l, d
Definir k, r, f, h Como Entero
Leer k, r, f, h
si a < b Entonces
Escribir "los numeros son iguales"
SiNo
si a > b Entonces
Escribir "el numero ",a," es mayor"
SiNo
Escribir "el numero ",b," es mayor"
FinSi
FinSi
si c < l Entonces
Escribir "los numeros son iguales"
SiNo
si c < l Entonces
 Escribir "el numero ",c," es mayor"
Escribir "el numero ",d," es mayor"
SiNo
Escribir "el numero ",l," es mayor"
FinSi
FinSi
si k < r Entonces
Escribir "los numeros son iguales"
SiNo
si k > r Entonces
Escribir "el numero ",k," es mayor"
Escribir "el numero ",f," es mayor"
SiNo
Escribir "el numero ",r," es mayor"
Escribir "el numero ",h," es mayor"
FinSi
FinSi
FinAlgoritmo
Algoritmo EJERCICIO11 LG
Definir num1, num2, menorna, mayorna Como Real
Escribir "ingrese numero: "
Leer num1
Escribir "ingrese numero: "
Leer num2
si num1 > num2 Entonces
menorna <- num1
mayorna <- num2
 Escribir mayorna," ",menorna
SiNo
menorna <- num2
mayorna <- num1
Escribir menorna," ",mayorna
FinSi
FinAlgoritmo
Algoritmo EJERCICIO12 LG
//defenir variables
Definir n1, n2, n3, n4, n5, n6, n7, n8, n9, n10, ope, res Como Entero
//pedir datos de entrada
Escribir "ingrese numero 1 "
Leer n1
//operador
Escribir "INGRESE OPERADOR"
Escribir "1 suma"
Escribir "2 resta"
Escribir "3 multiplicacion"
Escribir "4 division"
leer ope
Escribir "ingrese numero 2 "
Leer n2
//proceso
Segun ope Hacer
1:
res = n1 + n2
Escribir "la suma es ", res
 Escribir "opcion"
2:
res = n1 - n2
Escribir "la resta es", res
3:
res = n1 * n2
Escribir "la multiplicacion es ", res
4:
res = n1 / n2
Escribir "la division es ", res
De Otro Modo:
Escribir "opción incorecto"
Fin Segun

//pedir entrada
Escribir "ingrese numero 3 "
Leer n3
//operador
Escribir "INGRESE OPERADOR"
Escribir "1 suma"
Escribir "2 resta"
Escribir "3 multiplicacion"
Escribir "4 division"
leer ope
Escribir "ingrese numero 4 "
Leer n4
Segun ope Hacer
1:
res = n3 + n4
Escribir "la suma es", res
2:
res = n3 - n4
Escribir "la resta es", res
3:
res = n3 * n4
Escribir "la multiplicacion es", res
4:
res = n3 / n4
Escribir "la division es", res
De Otro Modo:
Escribir "operador incorecto"
Fin Segun

//pedir entrada
Escribir "ingrese numero 5"
Leer n5
//operador
Escribir "INGRESE OPERADOR"
Escribir "1 suma"
Escribir "2 resta"
Escribir "3 multiplicacion"
Escribir "4 division"
leer ope
Escribir "ingrese numero 6"
Leer n6

Segun ope Hacer

1:
res = n3 + n4
Escribir "la suma es", res
2:
res = n3 - n4
Escribir "la resta es", res
3:
res = n3 * n4
Escribir "la multiplicacion es", res
4:
res = n3 / n4
Escribir "la division es", res
De Otro Modo:
Escribir "operador incorecto"
Fin Segun

//pedir entrada
Escribir "ingrese numero 5"
Leer n5
//operador
Escribir "INGRESE OPERADOR"
Escribir "1 suma"
Escribir "2 resta"
Escribir "3 multiplicacion"
Escribir "4 division"
leer ope
Escribir "ingrese numero 6"
Leer n6

Segun ope Hacer

1:
res = n5 + n6
Escribir "la suma es", res
2:
res = n5 - n6
Escribir "la resta es", res
3:
res = n5 * n6
Escribir "la multiplicacion es", res
4:
res = n5 / n6
Escribir "la division es", res
De Otro Modo:
Escribir "operador incorecto"
Fin Segun
//pedir entrada
Escribir "ingrese numero 7"
Leer n7
//operador
Escribir "INGRESE OPERADOR"
Escribir "1 suma"
Escribir "2 resta"
Escribir "3 multiplicacion"
Escribir "4 division"
leer ope
Escribir "ingrese numero 8"
Leer n8
Segun ope Hacer
1:
res = n7 + n8
Escribir "la suma es", res
2:
res = n7 - n8
Escribir "la resta es", res
3:
res = n7 * n8
Escribir "la multiplicacion es", res
4:
res = n7 / n8
Escribir "la division es", res
De Otro Modo:
Escribir "operador incorecto"
Fin Segun

Escribir "ingrese numero 9"

Leer n9
 //operador
Escribir "INGRESE OPERADOR"
Escribir "1 suma"
Escribir "2 resta"
Escribir "3 multiplicacion"
Escribir "4 division"
leer ope
Escribir "ingrese numero 10"
Leer n10
Segun ope Hacer
1:
res = n9 + n10
Escribir "la suma es", res
2:
res = n9 - n10
Escribir "la resta es", res
3:
res = n9 * n10
Escribir "la multiplicacion es", res
4:
res = n9 / n10
Escribir "la division es", res
De Otro Modo:
Escribir "operador incorecto"

Fin Según
Fin Algoritmo
Algoritmo EJERCICIO13 LG
Definir edad, diaActual, mesActual, añoActual Como Entero
Definir diaNacimiento, mesNacimiento, añoNacimiento Como Entero
Escribir "dame el día"
Escribir "dame el mes"
Escribir "dame el año"
Leer diaNacimiento, mesNacimiento, añoNacimiento
Si mesNacimiento > mesActual Entonces
edad = 62
SiNo
Si mesNacimiento = mesActual Entonces
Si diaNacimiento = diaActual Entonces
edad = 62
Fin Si
Si diaNacimiento = diaActual Entonces
Escribir "usted tiene "
Fin Si
fin si
Escribir "tu edad actual es:", edad
FinAlgoritmo
Algoritmo EJERCICIO14 LG
Escribir "digite tres longitudes"
Leer a, b, c
Si (a = b y b = c) y (a = c y c = b) y (b = c y c = a) Entonces
Escribir "el triangulo es equilatero"
SiNo
si (a<>b y b<>c) y (a<>c y c<>b) y (c<>a y a<>b) Entonces
 Escribir "el triangulo es escaleno"
SiNo
Escribir "el ingreso es isósceles"
FinSi
Fin Si
FinAlgoritmo
Algoritmo EJERCICIO15 LG
Definir n, i Como Entero
Escribir " ingrese un numero"
Leer n
para i = 10 Hasta 1 Con Paso -1 Hacer
Escribir n, "x”, i," = “, n * i
FinPara
FinAlgoritmo
Algoritmo EJERCICIO17 DJ
Definir a, b, res Como Entero
Escribir "ingresa al primer número"
leer a
Escribir "ingrese el número"
leer b
res = (a * b) * 3 - 1
Escribir "el resultado de las sumas de los dos números es:" res
FinAlgoritmo
Algoritmo EJERCICIO20 DJ
Definir total,a ,b, x, n Como Entero
Escribir "ingrese el totalde numeros"
Leer total
 x=1
Mientras x <= total hacer
Escribir "ingre un numero"
Leer n
si x = 1 Entonces
a=n
b=n
SiNo
si n > a Entonces
a=n
SiNo
si n < b Entonces
b=n
FinSi
FinSi
FinSi
x=x+1
FinMientras
Escribir "el numero mayor es ", a
Proceso Potencias_De_Dos20 LG
Definir n, potencia, i Como Entero

Escribir "Ingrese el exponente máximo para las potencias de 2:"

Leer n

Para i <- 0 Hasta n Hacer

potencia <- 2 ^ i
 Escribir "2^", i, " =", potencia
FinPara

FinProceso
Algoritmo EJERCICIO21 LG
Definir ancho, alto, anchoGuardado Como Entero
ancho = 0
alto = 0
Escribir "¿cuantos asteriscos quiere de ancho?"
Leer ancho
anchoGuardado = ancho //hay que guardar ese valor pues se va a modificar
Escribir "¿cuantos asteriscos quiere de altos?"
Leer alto
Mientras alto > 0 hacer
ancho = anchoGuardado //reinicio ancho
Mientras ancho > 0 hacer
Escribir " * " Sin Saltar
ancho = ancho - 1
FinMientras
Escribir " " //salto de líneas
alto = alto - 1
FinMientras
FinAlgoritmo
Algoritmo EJERCICIO23 DJ
Definir num, ci Como Entero
ci <-0
///entrada
Escribir "ingrese un numero"
Leer num
///proceso
Mientras num > 0 Hacer
num <-trunc(num/10)
ci<-ci + 1
FinMientras
///SALIDA
Escribir " tiene digitos es :", ci

Escribir "ingrese un numero"

Leer num
///proceso
Mientras num > 0 Hacer
num <-trunc(num/10)
ci<-ci -1
FinMientras
///SALIDA
Escribir " tiene digitos es :", ci

Escribir "ingrese un numero"

Leer num
///proceso
Mientras num > 0 Hacer
num <-trunc(num/10)
ci<-ci-1
FinMientras
 ///SALIDA
Escribir " tiene digitos es :", ci

FinAlgoritmo
Algoritmo EJERCICIO25 LG
cantidad<- 5
Dimension num[cantidad]
para i <- 1 hasta cantidad con paso 1 hacer
Escribir "ingrese un numero para la posición", i
leer num[i]
FinPara
Escribir "los numeros ingresados son:"
para i <- 1 hasta cantidad con paso 1 hacer
Escribir num[i]
FinPara
FinAlgoritmo
Proceso Numeros_Sin_Multiplos28 LG
Definir n, numero Como Entero

Escribir "Ingrese un número entero positivo:"

Leer n

Escribir "Los números naturales menores o iguales a ", n, " que no son múltiplos de 3 ni
de 7 son:"

Para numero <- 1 Hasta n Hacer

Si numero MOD 3 <> 0 Y numero MOD 7 <> 0 Entonces
Escribir numero
 FinSi
FinPara

FinProceso
Proceso Cuadrado_Arreglo29 LG
Definir n, i Como Entero
Definir arreglo[100] Como Real

Escribir "Ingrese la cantidad de números para el arreglo:"

Leer n

Escribir "Ingrese ", n, " números:"

Para i <- 0 Hasta n - 1 Hacer
Leer arreglo[i]
FinPara

Escribir "Los números ingresados elevados al cuadrado son:"

Para i <- 0 Hasta n - 1 Hacer
Escribir arreglo[i], " elevado al cuadrado =", arreglo[i] * arreglo[i]
FinPara

FinProceso
Proceso Numeros_Mayores30 LG
Definir n, i, mayor, segundo_mayor Como Entero
Definir arreglo[100] Como Entero

Escribir "Ingrese la cantidad de números:"

 Leer n

Escribir "Ingrese ", n, " números:"

Para i <- 0 Hasta n - 1 Hacer
Leer arreglo[i]
FinPara

mayor <- arreglo[0]

segundo_mayor <- arreglo[0]

Para i <- 1 Hasta n - 1 Hacer

Si arreglo[i] > mayor Entonces
segundo_mayor <- mayor
mayor <- arreglo[i]
Sino
Si arreglo[i] > segundo_mayor Entonces
segundo_mayor <- arreglo[i]
FinSi
FinSi
FinPara

Escribir "El número mayor es:", mayor

Escribir "El segundo mayor es:", segundo_mayor

FinProceso
Algoritmo EJERCICIO31 LG
Definir partespc, b Como Carácter
 Definir a, i Como Entero
Dimension partespc(91)
partespc (1) <- "pantalla"
partespc (2) <- "monitor"
partespc (3) <- "teclado"
partespc (4) <- "mouse"
partespc (5) <- "ratón"
partespc (6) <- "cpu"
partespc (7) <- "tarjeta madre"
partespc (8) <- "placa base"
partespc (9) <- "motherboard"
partespc (10) <- "procesador"
partespc (11) <- "memoria"
partespc (12) <- "ram"
partespc (13) <- "memoria ram"
partespc (14) <- "disco duro"
partespc (15) <- "DVD"
partespc (16) <- "cd"
partespc (17) <- "hd"
partespc (18) <- "cornetas"
partespc (19) <- "bocinas"
partespc(20) <- "impresora"
//ingresar, procesar e imprimir datos

Escribir "escribe un nombre de partes de partes de una computadora" Sin

Saltar
leer d
a <- 0
 Para i <- 1 Hasta 21 hacer
si d=partespc(i) Entonces
Escribir "perfecto", partespc(i)," forma parte de una
computadora" Sin Saltar
a <- 21
FinSi
FinPar
Escribir "el dato ingresado no aparece en nuestra lista, intenta de
nuevo"
FinAlgoritmo
Algoritmo EJERCICIO34 LG
cantidad<-5;
Dimension num[cantidad]
Para i<-1 Hasta cantidad Con Paso 1 Hacer
Escribir "Ingrese un numero para la posición ",i
Leer num[i]
FinPara
Escribir "Los numeros ingresados son : "
Para i<-1 Hasta cantidad Con Paso 1 Hacer
Escribir num[i]
FinPara
FinAlgoritmo
Algoritmo EJERCICIO35 LG
//algoritmo para calcular el promedio de 5 calificaciones
Definir n1, n2, n3, n4, n5, promedio Como Real
Definir mat1, mat2, mat3, mat4, mat5 Como Caracter
Escribir "ingrese el nombre de la materia 1 : "
leer mat1
Escribir "ingrese la calificacion de: ",mat1
leer n1
Escribir "ingrese el nombre de la materia 2 : "
leer mat2
Escribir "ingrese la calificacion de: ",mat2
leer n2
Escribir "ingrese el nombre de la materia 3 : "
leer mat3
Escribir "ingrese la calificacion de: ",mat3
leer n3
Escribir "ingrese el nombre de la materia 4 : "
leer mat4
Escribir "ingrese la calificacion de: ",mat4
leer n4
Escribir "ingrese el nombre de la materia 5 : "
leer mat5
Escribir "ingrese la calificacion de: ",mat5
leer n5
promedio<-(n1+n2+n3+n4+n5)/5
Escribir "la nota de",mat1," fue :",n1
Escribir "la nota de",mat2," fue :",n2
Escribir "la nota de",mat3," fue :",n3
Escribir "la nota de",mat4," fue :",n4
Escribir "la nota de",mat5," fue :",n5
Escribir "el promedio de notas es:",promedio
Si(pomedio<=3) Entonces
Escribir "el estudiante gano la materia"
 SiNo
Escribir "el estudiante perdio la materia"
FinSi
FinAlgoritmo
Algoritmo EJERCICIO36 LG
Definir vector, x ,a ,n Como Entero
Escribir "dame el tamaño del vector"
Leer n
Dimension vector(n)
para x = 1 Hasta n Hacer
vector(x) = azar(20)
FinPara
para a = 1 Hasta n Hacer
Escribir vector(a)
FinPara
FinAlgoritmo
Algoritmo EJERCICIO38 LG
Definir n,i Como Entero
Definir datos Como Real
n = 0; i = 0;

Escribir "ingrese el tamaño del arreglo"

leer n
Dimension datos[n]

//solocitar los datos

Para i <- 0 Hasta n-1 Con Paso 1 Hacer
 Escribir "ingrese el valor de la posicion " , i;
Leer datos[1];
Fin Para
//mostrar datos del arreglo
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Escribir "posicion [",i,"] elemento del arreglo:" datos[1];
Fin Para
Algoritmo EJERCICIO4O LG
tamanio = 5
Dimension a1(tamanio)
Dimension a2(tamanio)
Dimension a3(tamanio)
Para i <- 0 Hasta tamanio-1 Con Paso 1 Hacer
Escribir "introduce el valor de arreglo a1 en la posicio " , 1
leer a1(1)

Escribir "introduce el valor del arreglo a2 en la posicion " , 1

leer a2(1)
a3(1) = a1(1) + a2(1)
FinPara
Para i <- 0 Hasta tamanio-1 Con Paso 1 Hacer
Escribir a1(1), " + ",a2(1)," = ", a3(1)
FinPara
FinAlgoritmo
Algoritmo EJERCICIO42 LG
Escribir "untroduce el tamaniodel arreglo"
leer tamanio
 Dimension numero_no_repetidos(tamanio)
numero_elementos = 0
elemento = 0
elemento_no_repetido = Verdadero
Mientras numero_elementos < tamanio hacer
Escribir "escribir un valor numerio , no repetido"
leer elemento
Para i <- 0 Hasta numero_elementos-1 Con Paso 1 Hacer
si elemento = numero_no_repetido Entonces
elemento_no_repetido = Falso
FinSi
Fin Para
si elemento_no_repetido Entonces
numero_no_repetido = numero_elemento + elemento
numero_elementos = numero_elementos + 1
SiNo
Escribir "este elemento existe en el arreglo"
FinSi
elemento_no_repetido = verdadero
existe = falso
FinMientras

FinAlgoritmo
Algoritmo EJERCICIO44 LG
//promedio de N alumnos, cada alumno tendra 3 notas,
//se debe calcular el promedio por lo alumnos
//y el promedio de todos los alumnos del curso
Escribir "ingrese la cantidad de alumnos"
Leer n
Dimension datos[n,3]
Definir i,j Como Entero
Definir proAI, sum, proGen Como Real
i <- 1
Mientras (i<=n) Hacer
Escribir "* estudiante:",i
Escribir "nota numero 1:"
Leer n1
Escribir "nota numero 2 :"
leer n2
Escribir "nota numero 3 :"
leer n3
datos[i,1] <- n1
datos[i, 2] <- n2
datos[i, 3] <- n3
i <- i + 1
FinMientras
j <- 1
Mientras (j<=n) Hacer
proAI <- (datos[j,1] + datos [j,2] + datos[j,3])/3
Escribir "el promedio del alumno: ",j," es: ",proAI
sum<- sum + proAI
j<-j+1
FinMientras
proGen<- sum/n
 Escribir "el promedio general es: " proGen
FinAlgoritmo
Proceso EJERCICIO45 LG
Escribir "escribe un numero para el tamanio del arreglo"
leer tamanio
Dimension numeros_aleatorios(tamanio)

aprobados = 0
desaprobados = 0

aun_aprobados = 0
aun_desaprobados= 0

para i <- 0 Hasta tamanio-1 Con Paso 1 Hacer

numeros_aleatorios(1) = Aleatorio(0,20)
Escribir numeros_aleatorios(1)

si numeros_aleatorios(1) >= 10 Entonces

aprobados = aprobados + 1
Escribir numeros_aleatorios(1)
SiNo
desaprobados = desaprobados +1
aun_desaprobados = aun_desaprobados + numeros_aleatorios(1)
FinSi

FinPara
 aun_aprobados = aun_desaprobados / tamanio
aun_desaprobados = aun_desaprobados / tamanio

FinProceso
Algoritmo EJERCICIO47 LG
Definir monto Como Entero
Definir cant100, cant50, cant20, cant10, cant5, cant1 Como Entero
Escribir "ingrese un monto (en dolares)"
Leer monto
cant100<-trunc(monto/100)
monto <- monto % 100
cant50 <- trunc(monto / 50)
monto <- monto % 50
cant20 <- trunc(monto / 20)
monto <- monto % 20
cant10 <- trunc(monto / 10)
monto <- monto % 10
cant5 <- trunc(monto / 5)
monto <- monto % 5
cant1 <- trunc(monto / 1)
monto <- monto % 1
Escribir cant100, " billetes de U$S 100 "
Escribir cant50, " billetes de U$S 50 "
Escribir cant20, " billetes de U$S 20 "
Escribir cant10, " billetes de U$S 10 "
Escribir cant5, " billetes de U$S 5 "
Escribir cant1, " billetes de U$S 1 "
FinAlgoritmo
Algoritmo EJERCICIO48 LG
cantidad<-7;
Dimension num[cantidad]
Para i<-1 Hasta cantidad Con Paso 1 Hacer
Escribir "Ingrese un numero para la posición “,i
Leer num[i]
FinPara
Escribir "Los numeros ingresados en posicion: "
Para i<-1 Hasta cantidad Con Paso 1 Hacer
Escribir num[i]
FinPara
FinAlgoritmo
Proceso adivina_Numero 49 LG
intentos <- 10
num_secreto <- azar(100)+1
Escribir "adivine el numero(de 1 a 100):"
Leer num_secreto
Mientras num_secreto<>num_ingresos y intentos>1 Hacer
si num_secreto>num_ingresos Entonces
Escribir "muy bajo"
SiNo
Escribir "muy alto"
FinSi
intentos <- intentos - 1
Escribir "le quedan ", intentos ," intentos:"
Leer num_ingresos
 FinMientras
si num_secreto=num_ingresos Entonces
Escribir "exacto! Usted adivino en", 11-intentos,"intentos"
SiNo
Escribir "el numero era:”, num_secreto
FinSi
FinProceso
Proceso EJERCICIO50 LG
//el usuario ingresa una frase, vamos a contar cuantas vocales tiene
Escribir "ingrese una frase"
Leer frase
//pasamos toda la frase a minusculas para no tener que preguntar 2 veces por cada
vocal
frase<-Minusculas(frase)

//lista de letras que vamos a buscar

vocales <- "aeiouáéíóú"
cantvocales <- 0

//comprar todas las letras de frase con las de vocales y contar coincidencia
para i<- 1 Hasta Longitud(frase) Hacer
para j <- 1 Hasta Longitud(vocales) hacer
si Subcadena (frase, i,i) =Subcadena(vocales,j,j) Entonces
cantvocales<-cantvocales+1
FinSi
FinPara
FinPara
Escribir " la frase contiene " , cantvocales , " vocales."
FinProceso