1.
imprimir los números del 1 al 10
Algoritmo CicloPara
Escribir "Programa que utiliza ciclo para"
Escribir "Imprimir los números del 1 al 10"
Para i <- 1 Hasta 10 Con Paso 1 Hacer
Escribir i
FinPara
FinAlgoritmo
2. utiliza un ciclo "mientras" (while) para imprimir los números del 1 al 10:
Algoritmo CicloMientras
Escribir "Programa que utiliza ciclo mientras"
Escribir "Imprimir los números del 1 al 10"
Definir i Como Entero
i <- 1
Mientras i <= 10 Hacer
Escribir i
i <- i + 1
FinMientras
FinAlgoritmo
3. programa en PSeInt que utiliza un ciclo "hacer mientras" (do while)
Algoritmo CicloDoMientras
Escribir "Programa que utiliza ciclo hacer mientras"
Escribir "Sumar números ingresados hasta que se ingrese un número
negativo"
Definir numero Como Entero
Definir suma Como Entero
suma <- 0
Hacer
Escribir "Ingrese un número:"
Leer numero
suma <- suma + numero
Mientras numero >= 0
Escribir "La suma total es:", suma
FinAlgoritmo
4. El banco "vvv" desea calcular para cada uno de sus N clientes su saldo actual, su pago
mínimo y su pago para no generar intereses. Además, quiere calcular el monto de lo que
ganó por concepto interés con los clientes morosos. Los datos que se conocen de cada
cliente son: saldo anterior, monto de las compras que realizó y pago que depositó en el
corte anterior. Para calcular el pago mínimo se considera 15% del saldo actual, y el pago
para no generar intereses corresponde a 85% del saldo actual, considerando que el saldo
actual debe incluir 12% de los intereses causados por no realizar el pago mínimo y $200
de multa por el mismo motivo.
Proceso BancoBandidoDePelucheDeNClientes
ganacia_por_intereses <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el valor de compras
realizadas:";
Leer compras_realizadas;
Escribir Sin Saltar "Ingresa el valor de pago del
corte anterior:";
Leer pago_del_corte_anterior;
Escribir Sin Saltar "Ingresa el valor de saldo
anterior:";
Leer saldo_anterior;
Si saldo_anterior*0.15>pago_del_corte_anterior
Entonces
intereses <- saldo_anterior*0.12;
multa <- 200;
SiNo
intereses <- 0;
multa <- 0;
FinSi
saldo_actual <- saldo_anterior+compras_realizadas-
pago_del_corte_anterior+intereses+multa;
pago_minimo <- saldo_actual*0.15;
pago_para_no_generar_intereses <- saldo_actual*0.85;
ganacia_por_intereses <-
ganacia_por_intereses+intereses;
Escribir "Valor de intereses: ", intereses;
Escribir "Valor de multa: ", multa;
Escribir "Valor de pago minimo: ", pago_minimo;
Escribir "Valor de pago para no generar intereses: ",
pago_para_no_generar_intereses;
Escribir "Valor de saldo actual: ", saldo_actual;
Escribir "";
FinPara
Escribir "Valor de ganacia por intereses: ",
ganacia_por_intereses;
FinProceso
5. Permita saber cuántos alumnos son los aprobados y cuantos los no aprobados de
una cantidad n de alumnos, obteniendo también el promedio los aprobados y de los no
aprobados.
Algoritmo AlumnosAprobados
Escribir "Programa para calcular la cantidad de alumnos aprobados
y no aprobados"
Escribir "Obtener el promedio de los aprobados y los no aprobados"
Definir n, calificacion, sumaAprobados, sumaNoAprobados Como
Entero
Definir contadorAprobados, contadorNoAprobados Como Entero
sumaAprobados <- 0
sumaNoAprobados <- 0
contadorAprobados <- 0
contadorNoAprobados <- 0
Escribir "Ingrese la cantidad de alumnos:"
Leer n
Para i <- 1 Hasta n Con Paso 1 Hacer
Escribir "Ingrese la calificación del alumno ", i, ":"
Leer calificacion
Si calificacion >= 60 Entonces
sumaAprobados <- sumaAprobados + calificacion
contadorAprobados <- contadorAprobados + 1
Sino
sumaNoAprobados <- sumaNoAprobados + calificacion
contadorNoAprobados <- contadorNoAprobados + 1
FinSi
FinPara
Escribir "Cantidad de alumnos aprobados:", contadorAprobados
Escribir "Cantidad de alumnos no aprobados:", contadorNoAprobados
Si contadorAprobados > 0 Entonces
promedioAprobados <- sumaAprobados / contadorAprobados
Escribir "Promedio de calificaciones de los aprobados:",
promedioAprobados
Sino
Escribir "No hay alumnos aprobados"
FinSi
Si contadorNoAprobados > 0 Entonces
promedioNoAprobados <- sumaNoAprobados /
contadorNoAprobados
Escribir "Promedio de calificaciones de los no
aprobados:", promedioNoAprobados
Sino
Escribir "No hay alumnos no aprobados"
FinSi
FinAlgoritmo
6. programa en PSeInt que genera la tabla de multiplicar de cualquier número ingresado
por el usuario
Algoritmo TablaMultiplicar
Escribir "Programa para generar la tabla de multiplicar de un número"
Escribir "Ingrese un número:"
Leer numero
Escribir "Tabla de multiplicar del número", numero, ":"
Para i <- 1 Hasta 10 Con Paso 1 Hacer
resultado <- numero * i
Escribir numero, " x ", i, " = ", resultado
FinPara
FinAlgoritmo
7. Una empresa guarda los datos de sus N empleados, generando una ficha donde se
registra: área de trabajo (Sistemas o Contabilidad), edad y sueldo. Se pide mostrar:
a) La mayor edad.
b) Cantidad de empleados del área de Sistemas.
c) Cantidad de empleados del área de Contabilidad.
d) Promedio de sueldos.
Proceso AreasDeSistemasOContabilidad
empleados_de_contabilidad <- 0;
empleados_de_sistemas <- 0;
mayor_edad <- 0;
promedio_de_sueldos <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de sueldo:";
Leer sueldo;
Escribir "Selecciona el valor de area de trabajo.";
Escribir " 1.- Sistemas";
Escribir " 2.- Contabilidad";
Escribir Sin Saltar " :";
Repetir
Leer area_de_trabajo;
Si area_de_trabajo<1 O area_de_trabajo>2 Entonces
Escribir Sin Saltar "Valor incorrecto.
Ingrésalo nuevamente.: ";
FinSi
Hasta Que area_de_trabajo>=1 Y area_de_trabajo<=2;
Si area_de_trabajo = 1 Entonces
empleados_de_sistemas <- empleados_de_sistemas+1;
SiNo
empleados_de_contabilidad <-
empleados_de_contabilidad+1;
FinSi
promedio_de_sueldos <- promedio_de_sueldos+sueldo;
Si i = 1 O mayor_edad<edad Entonces
mayor_edad <- edad;
FinSi
Escribir "";
FinPara
Si n = 0 Entonces
promedio_de_sueldos <- 0;
SiNo
promedio_de_sueldos <- promedio_de_sueldos/n;
FinSi
Escribir "Valor de empleados de contabilidad: ",
empleados_de_contabilidad;
Escribir "Valor de empleados de sistemas: ",
empleados_de_sistemas;
Escribir "Valor de mayor edad: ", mayor_edad;
Escribir "Valor de promedio de sueldos: ",
promedio_de_sueldos;
FinProceso
