5. Leer
un numero entero y calcular su factorial
N <- NUMERO (ENTERO)
CT <- CONTADOR (ENTERO)
F <- FACTORIAL (ENTERO)
INICIO
LEA n
SI (n<0) ENTONCES
ESCRIBA " no existe
factorial para números negativos"
FIN SI
F - 1
Ct <- 1
MIENTRAS (ct <=n) HAGA
F <- f*ct
Ct <- ct+1
FIN MIENTRAS
ESCRIBA "", f
FIN
6. Leer
un número (asumir que es una base) y leer otro número (asumir que es un
exponente) y elevar dicha base a dicho exponente
B <- BASE (ENTERO)
E <- EXPONENTE (ENTERO)
R <- RESULTADO (ENTERO)
RS <- RESPUESTA (CARÁCTER)
S/N <- SI/NO (CARÁCTER)
INICIO
Rs<- 's'
MIENTRAS ( rs='s') HAGA
LEA b, e
r <- b^e
ESCRIBA " ", r
ESCRIBA " desea continuar
s/n"
LEA rs
FIN MIENTRAS
FIN
7. Para
que una persona pueda ejercer su voto en una elección de gobierno debe ser
mayor de edad y debe ser colombiano. (aplique un ciclo), (nacionalidad=1)
NA <- NACIONALIDAD (ENTERO)
E <- EDAD (ENTERO)
R <- RESPUETA (CARÁCTER)
S-N <- SI-NO (CARÁCTER)
INICIO
R <- 'S'
MIENTRAS (R='S') HAGA
LEA e, na
SI (E>18) Y (NA=1) ENTONCES
ESCRIBA " puede ejercer
su voto"
SINO
ESCRIBA " no puede
ejercer su voto"
FIN SI
ESCRIBA " desea continuar
s/n"
LEA R
FIN MIENTRAS
FIN
8. Para
que una persona pueda casarse debe ser mayor de edad y soltero
E<- EDAD (ENTERO)
EC<- ESTADO CIVIL (ENTERO)
INICIO
LEA e
ESCRIBA " tenga en cuenta
la siguiente información soltero=1, otros=2
"
LEA ec
MIENTRAS (E <> 0) HAGA
SI (E > 18) Y ( EC =1) ENTONCES
ESCRIBA " puede cursarse"
SINO
ESCRIBA " no puede
casarse”
FIN SI
LEA E, EC
FIN MIENTRAS
FIN
9. Determinar
cuántos números pares hay entre el 1 y 100
CT <- CONTADOR (ENTERO)
INICIO
CT <- 1
MIENTRAS (CT<=100) HAGA
CT <- CT+1
SI (CT MOD 2=0) ENTONCES
ESCRIBA "", CT
FIN SI
FIN MIENTRAS
FIN
10. Hacer
un algoritmo que encuentre la suma de los valores de un conjunto de números
enteros cantidad de valores negativos, positivos, iguales a cero y el total de
números en el conjunto
NR<- NUMERO (ENTERO)
AXN<- AUXILIAR NEGATIVOS (ENTERO)
AXP<- AUXILIAR POSITIVOS (ENTERO)
AXC<- AUXILIAR CEROS (ENTERO)
SL<- SOLUCION (ENTERO)
CTT<- CONTADOR TOTAL (ENTERO)
CN<- CONTADOR NEGATIVO (ENTERO)
CP<- CONATDOR POSITIVO (ENTERO)
CC<- CONTADOR CERO (ENTERO)
R <- RESPUESTA (CARÁCTER)
S/N <- SI/NO (CARÁCTER)
INICIO
R <- 'S'
AXN, AXP, AXC, CTT, CN, CP, CC <- 0
MIENTRAS (R='S') HAGA
LEA NR
SI (NR<0) ENTONCES
AXN <- AXN+NR
CN <- CN+1
SINO
SI (NR=0) ENTONCES
AXC <-AXC+NR
CC <- CC+1
SINO
SI (NR>0) ENTONCES
AXP <- AXP+NR
CP <-CP+1
FIN SI
FIN SI
FIN SI
CTT <- CTT+1
ESCRIBA " desea continuar
S/N"
LEA R
FIN MIENTRAS
SL <- AXN+AXP+AXC
ESCRIBA SL, CN, CP, CC, CTT
FIN
11. Se
tiene una serie N números enteros. Se quiere saber si dentro de ellos existe,
por lo menos, uno cuyo valor se cero.
CN <- CANTIDAD DE NUMEROS (ENTERO)
N<- NUMERO (ENTERO)
CT<- CONTADOR (ENTERO)
AXC <- AUXILIAR DE CERO (ENTERO)
INICIO
CT <- 0
AXC <- 0
LEA CN
MIENTRAS (CT<=CN) HAGA
LEA N
SI (N=0) ENTONCES
AXC <- AXC+1
FIN SI
CT <- CT+1
FIN MIENTRAS
ESCRIBA " ", AXC
FIN
12. Un
vendedor desea calcular la comisión total sobre la venta de varios artículos.
Al vendedor le corresponde el 10% de comisión sobre el artículo, cuyo precio es
menor o igual a 100000 pesos y el 7% de comisión sobre aquellos artículos
precio sea mayor a 100000 pesos. Elabore un algoritmo para obtener la comisión
total, si se conoce que el vendedor hizo N ventas.
N<- NUMERO VENTAS (ENTERO)
CT <- CONTADOR (ENTERO)
CM <- COMISION (REAL)
VT<- VENTA (REAL)
AC<- ACUMILADOR (REAL)
INICIO
CT <-0
AC <- 0
LEA N
MIENTRAS (CT<=N) HAGA
LEA VT
SI (VT > 100000) ENTONCES
CM <- VT*0.1
AC <- AC+CM
SINO
CM <- VT * 0.07
AC <- AC+CM
FIN SI
CT <- CT +1
FIN MIENTRAS
ESCRIBA " ", CM
FIN
13. En
un curso se practica cuatro evaluaciones
con los siguientes porcentajes 25%, 20%, 25% y 30% respectivamente. Por cada
estudiante se lee código y las cuatro notas. Hacer un algoritmo que calcule la
nota definitiva de cada estudiante, el promedio de notas definitivas del curso
y el porcentaje de perdedores.
NE <- NOMBRE ESTUDIANTE (CADENA
[20])
CDE <- CODIGO ESTUDIANTE (ENTERO)
P1 <- PRUEBA UNO (REAL)
P2 <- PRUEBA DOS (REAL)
P3 <- PRUEBA TRES (REAL)
P4 <- PUREBA CUATRO (REAL)
D <- DEFINITIVA (REAL)
PD <- PROMEDIO DE NOTAS (REAL)
CTE <- CONTADOR DE ESTUDIANTES (ENTERO)
TD <- ACUMULADOR DEFINITIVA (REAL)
PP <- PORCENTAJE DE PERDEDORES (REAL)
CTP <- CONTADOR PERDEDORES (ENTERO)
INICIO
CTE <- 0
CTP <- 0
TD <- 0
LEA CDE
MIENTRAS (CDE<>0) HAGA
LEA NE, P1, P2, P3, P4
P1 <- P1*0.25
P2 <- P2*0.2
P3 <- P3*0.25
P4 <- 4*0.3
D <- P1+P2+P3+P4
SI (ND<3.5) ENTONCES
CTP <- CTP+1
FIN SI
ESCRIBA “ ”, NE , " es: ", D
CTE <- CTE+1
TD <- TD+D
LEA CDE
FIN MIENTRAS
PD <- TD/CTE
PP <- (CTP*100)/CTE
ESCRIBA " ", PD, PP
FIN
14. Elabore
un algoritmo que haga el siguiente censo para una empresa de transporte.
A)
Número de vehículos modelo sea anterior a1995
B)
Número de vehículos cuyo modelo sea de 1995 o
posterior y cuya capacidad sea menor a 35 pasajeros
C)
Números de buses cuyo modelo sea posterior a1995
con capacidad mayor 35 pasajeros
D)
Número de buses con capacidad menor a 35
pasajeros
E) El
total de vehículos de la empresa
Por cada
vehículo de la empresa tiene la siguiente información
-tipo de
vehículo (1=buseta, 2=bus)
- Modelo de
vehículo
- Capacidad de
vehículo
A <- CONDICION A (ENTERO)
B <- CONDICION B (ENTERO)
C <- CONDICION C (ENTERO)
D <- CONDICION D (ENTERO)
TVE <- TOTAL DE VEHICULOS EMPRESA (ENTERO)
TV <- TIPO VEHICULO (ENTERO)
MV <- MODELO DE VEHICULO (ENTERO)
CV <- CPACIDAD DEL VEHICULO (ENTERO)
INICIO
TVE <- 0
A <- 0
B <- 0
C <- 0
D <- 0
LEA TV
MIENTRAS (tv <> 0) HAGA
LEA MV, CV
SI (TV = 2) Y (MV > 1995) Y (CV > 35) ENTONCES
C<- C + 1
SINO
SI (MV < 1995) Y (TV = 1) ENTONCES
A <- A + 1
SINO
SI (MV >= 1995) Y (CV < 35) Y (TV = 1) ENTONCES
B <- B + 1
SINO
SI (MV >= 1995) Y (CV < 35 Y (TV = 2)
ENTONCES
B <- B + 1
SINO
SI (TV = 2) Y (CV < 35) ENTONCES
D <- D + 1
FIN SI
FIN SI
FIN SI
FIN SI
FIN SI
LEA TV
TVE <- TVE + 1
FIN MIENTRAS
ESCRIBA "", A, B, C,
D, TVE
FIN
15. Se
tiene un archivo con las ventas, el nombre y el código de 20 vendedores. A cada
vendedor se le liquida la comisión de acuerdo a la siguiente tabla
Si el valor de la venta < 2`000.000
COM <- $100.000+2%ventas
Si el valor de la venta >= 2´000.000 y < 5`000.000 COM <- $150.000+3%ventas
Si el valor de la venta >= 5´000.000 COM <- $200.000+4%ventas
VV <- VALOR VENTA (REAL)
CM <- COMISION (REAL)
N <- NOMBRE (CADENA [30])
CD <- CODIGO (ENTERO)
CTV <- CONATADOR VENDEDORES (ENTERO)
INICIO
CTV <- 1
MIENTRAS (CTV<=20) HAGA
LEA N, CD, VV
SI (VV < 2000000) ENTONCES
CM <- (VV*0.02) + 100000
SINO
SI (VV >= 2000000) Y (VV<5000000) ENTONCES
CM <- (VV*0.03) + 150000
SINO
CM <- (VV*0.04) + 200000
FIN SI
FIN SI
ESCRIBA "",CM
CTV <- CTV + 1
FIN MIENTRAS
FIN
16. Se
tiene un archivo de trabajadores; cada registro tiene el nombre, horas
trabajadas y valor hora, calcule el salario. La retención del 8% si salario es
> $2´800.000, de lo contario retención va ser del 3%. Calcule el total de
salarios pagados por la empresa, el total de retención y el promedio de
salarios. El fin de archivo se controla con un código 00000
N <- NOMBRE (CADENA [30])
HT<- HORAS TRABAJADAS (ENTERO)
CD <- CODIGO (ENTERO)
VH<- VALOR DE LA HORA (REAL)
RT <- RETENCION (REAL)
TSPE <- TOTAL SALARIOS PAGADOS POR LA EMPRESA (REAL)
TR <- TOTAL RETENCION (REAL)
PS< - PORCENTAJE SALARIOS (REAL)
S <- SALARIO (REAL)
TT <- TOTAL TRABAJADORES (ENTERO)
INICIO
TSPE <- 0
TR <-0
TT <- 1
LEA CD
MIENTRAS (CD<>000) HAGA
LEA HT, VH
S <- VH*HT
SI (S>2800000) ENTONCES
RT <- S*0.08
SINO
RT <- S*0.03
FIN SI
LEA CD
TSPE <- TSPE+S
TR <- TR+RT
TT <- TT+1
FIN MIENTRAS
PS <- TSPE/TT
ESCRIBA “” TSPE, TR, PS
FIN
17. En
un grupo de 100 estudiantes se debe averiguar e imprimir lo siguiente
Calificación más alta en matemáticas
Calificación promedio
Cuantos ganaron la materia
Cuantos lo perdieron (< 3.0)
De cada estudiante se lee un registro con los siguientes campos: nombre
del estudiante y calificación de la materia de matemáticas
A los que ganaron la materia de matemática
CMAM <- CALIFICACION MAS ALTA MATEMATICAS (REAL)
CP <- CALIFICACION PROMEDIO (REAL)
CEGM <- CONTADOR ESTUDIANTES GANADOR LA MATERIA (ENTERO)
CEPM <- CONTADOR ESTUDIANTES PERDIERON LA MATERIA (ENTERO)
NE <- NOMBRE ESTUDIANTE (CAEDENA
[20])
CM <- CALIFICACION MATEMATICAS (REAL)
CTE <- CONTADOR ESTUDIANTES (ENTERO)
CMY <- CALIFICACION MAYOR (REAL)
SC <- SUMA CALIFICACIONES (REAL)
INICIO
CEGM <- 0
CEPM <- 0
CTE <- 1
SC <- 0
CMY <- 0
MIENTRAS (CTE <= 100) HAGA
LEA NE, CM
SI (CM < 3.0) ENTONCES
CEPM <- CEPM + 1
SINO
CEGM <- CEGM + 1
ESCRIBA " ", NE, CM
FIN SI
SC <- SC + CM
CONTE <- CONTE + 1
SI (CM > CMY) ENTONCES
CMY <- CM
FIN SI
FIN MIENTRAS
CP <- SC / CTE)
ESCRIBA "", CMY, CP
FIN
18. En
un censo en un barrio de 500 familias se pregunta por cada familia, cuántos
hombres y cuantas mujeres hay en cada familia, hallar la cantidad de mujeres y
la cantidad de hombres en todo el barrio, el porcentaje de hombres
CT <- CONTADOR (ENTERO)
TH <- TOTAL HOMBRES (ENTERO)
TM <- TOTAL MUJERES (ENTERO)
NM <- NUMERO MUJERES (ENTERO)
NH <- NUMERO HOMBRES (ENTERO)
TG <- TOTAL DE GENTE (ENTERO)
PH <- PORCENTAJE HOMBRES (REAL)
INICIO
TG <- 0
CT <- 1
TH <- 0
TM <- 0
MIENTRAS (CT<=500) HAGA
LEA NM, NH
TM <- TM + NM
TH <- TH + NH
TG <- TM+TH
CT <- CT+1
FIN MIENTRAS
PH <- (TH * 100) / TG
ESCRIBA TM, TH, PH
FIN
19. Una
empresa liquida la comisión de la ventas a sus vendedores así:
Para ventas inferiores a $ 2´000.000 la comisión es del 4%, para
ventas que van de 2`000.000 a 4´000.000
es del 5% y para ventas superiores de 4´000.000 son del 8%. La comisión se
liquida sobre un monto total de las ventas mes de cada vendedor. Por cada
vendedor se lee un registro con los siguientes datos: código, nombre, valor
total de las ventas en el mes. El informe debe contener lo siguiente por cada
vendedor.
Código del vendedor
Nombre
Valor total de sus ventas
Valor de la comisión
El algoritmo debe tener totales de:
Valor total vendido en la empresa
Valor total de comisiones
Fin de datos nombre XXXXXXX
CM <- COMISION (REAL)
VV <- VALOR VENTAS (REAL)
VTVE <- VALOR TOTAL VENDIDO EN LA EMPRESA (REAL)
VTC <- VALOR TOTAL DE COMISIONES (REAL)
CD <- CODIGO (ENTERO)
NOM <- NOMBRE (CADENA [25]
INICIO
VTVE <- 0
VTC <- 0
LEA NOM
MIENTRAS (NOM <> XXXXX) HAGA
LEA CD, VV
SI (VV < 2000000) ENTONCES
CM <- VV*0.04
SINO
SI (VV >= 2000000) Y (VV <= 4000000) ENTONCES
CM <- (VV*0.05)
SINO
CM <- VV*0.08
FIN SI
FIN SI
ESCRIBA “", CD, VV, CM
LEA CD
VTVE <- VTVE + VV
VTC <- VTC + CM
FIN MIENTRAS
ESCRIBA VTVE, VTC
FIN
20. Se
tiene los datos de los trabajadores de una fábrica; por cada trabajador se lee
un registro con: nombre, el código, estado civil, sexo, el valor de la hora
trabajada y el número de horas trabajadores en el mes. Hallar el salario neto
de cada trabajador e imprimirlo, teniendo en cuenta que si el salario bruto
mensual es >= 750.000 se le hace una retención para impuestos 5% y 3% para
seguridad social y 2% para fondo de pensiones; si es < 750.000 solo se le
hace una retención del 2% para seguridad social y 1% para fondo de pensiones.
Además hallar porcentaje de mujeres, en promedio de salarios brutos total de
retención para seguridad social. Fin de dato sexo 00
NOM <- NOMBRE (CADENA [30])
COD <- CODIGO (ENTERO)
EC <- ESTODO CIVIL (ENTERO)
SX <- SEXO (ENTERO)
VH <- VALOR HORA (ENTERO)
NH <- NUMERO HORAS (ENTERO)
CONTT <- CONTADOR TRABAJADORES (ENTERO)
SN <- SALRIO NETO (REAL)
SB <- SALRIO BRUTO (REAL)
RET <- RETENCION (REAL)
SS <- SEGURIDAD SOCIAL (REAL)
FP<- FONDO PENCIONES (REAL)
PM <- PORCENTAJE MUJERES (REAL)
TSB <- TOTAL SALRIO BRUTO (REAL)
TRSS <- TOTAL RETENCION SEGURIDAD SOCIAL (REAL)
NM<- NUMERO MUJERES (REAL)
PSB<- PROMEDIO SALARIO BRUTO (REAL)
INICIO
CONTT <- 0
NM <- 0
TSB <- 0
TRSS <- 0
LEA SX
MIENTRAS (SX <> 0 ) HAGA
LEA NOM, COD, EC, VH, NH
SB <- VH * NH
SI ( SB >= 750000 ) Y ( SX = 1 ) ENTONCES
SS <- SB * 0.03
FP <- SB * 0.02
SN <- SB - SS -FP
NM <- NM + 1
SINO
SI (SB < 750000) Y (SX=1) ENTONCES
SS <- SB*0.02
FP <- SB*0.01
SN <- SB-SS-FP
NM <- NM+1
SINO
SI (SB>=750000) ENTONCES
SS <- SB * 0.03
FP <- SB * 0.02
SN <- SB - SS – FP
SINO
SI ( SB < 750000 ) ENTONCES
SS <- SB * 0.02
FP <- SB * 0.01
SN <- SB - SS – FP
FIN SI
FIN SI
FIN SI
FIN SI
ESCRIBA " ",SN
CONTT <- CONTT+1
TSB <- TSB + (VH*NH)
TRSS <- TRSS+SS
LEA SX
FIN MIENTRAS
PM <- (NM*100)/CONTT
PSB <- TSB/CONTT
ESCRIBA ""PM, PSB, TRSS
FIN
