FACULTAD DE INGENIERIA DE

SISTEMAS Y ELECTRONICA

GUA PRCTICA - Sesin 7

rea: Ingeniera Asignatura: Principios de Algoritmos
Ciclo: I Turno: Maana - Tarde Semestre
FACULTAD Acadmico: 2017 - I
DE INGENIERIA DE
Docente: Ing. CIP Roberto Carlos Romn Anaya Fecha: 13 de Febrero al 18 de Febrero del 2017
SISTEMAS Y ELECTRONICA

Objetivo: Permitir desarrollar la lgica del alumno, mediante la resolucin de

problemas aplicando estructuras repetitivas con el uso del control Si y Segn Hacer.

Sesin 7: Estructura Condicional Simple, Doble, Mltiple y Anidada

I. Disee algoritmos en pseudocdigo para los siguientes problemas utilizando la

estructura selectiva con el control Si y Segn Hacer como sea conveniente.

1. Crear un algoritmo que permita realizar las operaciones matemticas bsicas,

como suma, resta, multiplicacin y divisin, tal como lo hara una calculadora. Se
debe tomar en cuenta que en el caso de la divisin el segundo nmero ingresado
no puede ser cero ya que nos dara una divisin irreal.
Solucin:
Proceso Prob_1
Definir bd Como Entero
Definir n1, n2, r Como Real
bd<-0
Escribir "Ingrese nro 1: "
Leer n1
Escribir "Ingrese nro 2: "
Leer n2
Escribir "Seleccione opcion + - * /: "
Leer op
Segun op Hacer
'+':
r<-n1+n2
'-':
r<-n1-n2
'*':
r<-n1*n2
'/':
Si n2<>0 Entonces
r<-n1/n2
Sino
Escribir "Division Irreal"
bd<-1
FinSi
De Otro Modo:
Escribir "Operador NO Valido"
FinSegun
Si bd=0 Entonces
Escribir "El Resultado es: ", r
FinSi
FinProceso
2. Disear un algoritmo que al ingresar un nmero entero que equivalga a un mes del
ao, indique cuantos das tiene dicho mes. Por ejemplo: al ingresar 1 que
representa a Enero debe mostrar 31 das, si ingresa 4 que representa Abril debe
mostrar 30 das. Si el mes de febrero pertenece a un ao bisiesto tendr 29 das
de lo contrario solo 28. Un ao bisiesto es mltiplo de 4.
Proceso Prob_2_otraforma
Definir m Como Entero
Escribir "Ingrese el Ao: "
 Leer a
Escribir "Ingrese el Nro de Mes: "
Leer m
Segun m Hacer
1,3,5,7,10,12:
Escribir "31 dias"
2:
Si (a MOD 4 = 0) y ((a MOD 100 <> 0) O (a MOD 400 = 0))
Entonces
Escribir "29 dias"
Sino
Escribir "28 dias"
FinSi
4,6,8,9,11:
Escribir "30 dias"
De Otro Modo:
Escribir "Nro de Mes NO Valido"
FinSegun
FinProceso

Proceso Prob_2_primeraforma
Definir m Como Entero
Escribir "Ingrese el Ao: "
Leer a
Escribir "Ingrese el Nro de Mes: "
Leer m
Segun m Hacer
1:
Escribir "31 dias"
2:
Si (a MOD 4 = 0) y ((a MOD 100 <> 0) O (a MOD 400 = 0))
Entonces
Escribir "29 dias"
Sino
Escribir "28 dias"
FinSi
3:
Escribir "31 dias"
4:
Escribir "30 dias"
5:
Escribir "31 dias"
6:
Escribir "30 dias"
7:
Escribir "31 dias"
8:
Escribir "30 dias"
9:
Escribir "30 dias"
10:
Escribir "31 dias"
11:
Escribir "30 dias"
12:
 Escribir "31 dias"
De Otro Modo:
Escribir "Nro de Mes NO Valido"
FinSegun

FinProceso

3. Una empresa de carga brinda servicio a todo el continente americano, la tarifa que
cobra por cada tonelada se muestra en el siguiente cuadro:

Destinos ($/tonelada)
Medio de transporte Norte Sur Centro
Areo 30 25 20
Martimo 25 20 15

Mostrar cuanto debe pagarse por el envo de una carga determinada.

Proceso Prob_3
p<-0
an<-30
as<-25
ac<-20
mn<-25
ms<-20
mc<-15
Escribir "Ingrese Nro de Toneladas: "
Leer t
Escribir "Seleccione Medio de Transporte (1-2): "
Leer op
Escribir "Ingrese el Destino (N/S/C)"
Leer d
Segun op Hacer
1:
Si d='N' Entonces
p<-an*t
Sino
Si d='S' Entonces
p<-as*t
Sino
p<-ac*t
FinSi
FinSi
2:
Si d='N' Entonces
p<-mn*t
Sino
Si d='S' Entonces
p<-ms*t
Sino
p<-mc*t
FinSi
FinSi
De Otro Modo:
Escribir "Opcion NO Valida"
FinSegun
Escribir "El pago total es: ", p
 FinProceso

4. Una agencia de viajes cobra un inters a sus clientes sobre el costo del paquete
turstico de acuerdo a la siguiente informacin: destino y nmero de ciudades a
visitar. Los intereses sern aplicados segn el siguiente cuadro:

Destino
Nmero de ciudades
Nacional (%) Internacional (%)
13 3 5
48 4 6
9 ms 8 10

Mostrar el monto de inters y el monto total a pagar por un paquete turstico.

5. Un supermercado ofrece a sus clientes descuentos de acuerdo al monto de

compra, como se muestra en el siguiente cuadro:

Compra (S/.) Descuento (%)

100 250 3
251 500 5
501 - ms 10

Dependiendo del rubro de la compra, se le aplica el siguiente impuesto sobre la

compra ya descontada.
Rubro Impuesto (%)
Comestibles 15
Artefactos 30
Proceso Prob_5
td1<-0.03
td2<-0.05
td3<-0.10
ti1<-0.15
ti2<-0.30
Escribir "Ingrese el rubro (1-2): "
Leer r
Escribir "Ingrese el monto de la compra: "
Leer c
Segun r Hacer
1:
Si c>=100 Y c<=250 Entonces
d<-td1*c
cf<-c-d
Sino
Si c<=500 Entonces
d<-td2*c
cf<-c-d
Sino
d<-td3*c
cf<-c-d
FinSi
FinSi
i<-ti1*cf
2:
Si c>=100 Y c<=250 Entonces
d<-td1*c
cf<-c-d
Sino
Si c<=500 Entonces
d<-td2*c
cf<-c-d
Sino
d<-td3*c
cf<-c-d
FinSi
FinSi
i<-ti2*cf
FinSegun
total<-cf+i
Escribir "EL descuento es: ", d
Escribir "El monto del impuesto es: ", i
Escribir "El pago total es: ", total
FinProceso

Proceso Prob_5_Corregido
cf<-0
i<-0
d<-0
td1<-0.03
td2<-0.05
td3<-0.10
ti1<-0.15
ti2<-0.30
Escribir "Ingrese el rubro (1-2): "
Leer r
Escribir "Ingrese el monto de la compra: "
Leer c
Segun r Hacer
1:
Si c<100 Entonces
d<-0
Sino
Si c>=100 Y c<=250 Entonces
d<-td1*c
Sino
Si c>250 Y c<=500 Entonces
d<-td2*c
Sino
d<-td3*c
FinSi
FinSi
FinSi
cf<-c-d
i<-cf*ti1
2:
Si c<100 Entonces
d<-0
 Sino
Si c>=100 Y c<=250 Entonces
d<-td1*c
Sino
Si c>250 Y c<=500 Entonces
d<-td2*c
Sino
d<-td3*c
FinSi
FinSi
FinSi
cf<-c-d
i<-cf*ti2
De Otro Modo:
Escribir "Opcion NO Valida"
FinSegun
total<-cf+i
Escribir "Descuento es: ", d
Escribir "Impuesto es: ", i
Escribir "Total a pagar es: ", total
FinProceso

El algoritmo debe mostrar el monto de descuento, el monto del impuesto y el pago

total que har un determinado cliente.

6. Una tienda de venta de polos ha establecido porcentajes de descuento sobre el

precio, de acuerdo a las siguientes caractersticas: Tipo de algodn (Simple, Pima),
Tipo de prenda (Formal, Deportiva):
Tipo de prenda
Tipo de algodn Formal Deportiva
Simple 15% 10%
Pima 10% 5%
Proceso Prob_6
desc<-0
sf<-0.15
sd<-0.10
pf<-0.10
pd<-0.05
Escribir "Ingrese el Precio: "
Leer precio
Escribir ""
Escribir "TIPO DE ALGODON"
Escribir "---------------"
Escribir "(1) Simple"
Escribir "(2) Pima"
Escribir "Seleccione tipo de algodon (1-2): "
Leer op
Escribir ""
Escribir "TIPO DE PRENDA"
Escribir "---------------"
Escribir "(F) Formal"
Escribir "(D) Deportiva"
Escribir "Seleccione tipo de prenda (F/D): "
Leer tp
 Segun op Hacer
1:
Si tp="F" Entonces
desc<-sf*precio
FinSi
Si tp="D" Entonces
desc<-sd*precio
FinSi
2:
Si tp="F" Entonces
desc<-pf*precio
FinSi
Si tp="D" Entonces
desc<-pd*precio
FinSi
De Otro Modo:
Escribir "Opcion NO Valida"
FinSegun
total<-precio-desc
Escribir "El total a pagar es: ", total
FinProceso

Calcular el importe a pagar por una prenda.

7. Un centro comercial permite comprar productos financiados por 3 tipos de tarjetas
de crdito que aplican un inters sobre cada cuota fraccionada del monto original
de la deuda, tal como se indica a continuacin:

Tipo de Tarjeta Inters (%)

Visa 5
Premium 3
Electrn 1

El cliente solo puede financiar una compra hasta el mximo de 8 cuotas, en caso
contrario la venta no debe proceder. Calcular el monto que debe pagar en una
cuota.
Proceso Prob_7

Escribir "Ingrese el valor de la Compra: "

Leer compra

Escribir "Ingresar Nro de Cuotas: "

Leer n

Escribir ""

Escribir "TIPO DE TARJETA"

Escribir "---------------"
Escribir "(1) Visa"

Escribir "(2) Premiun"

Escribir "(3) Electron"

Leer op

cm<-compra/n

Segun op Hacer

1:

Si n<=8 Entonces

i<-0.05*cm

Sino

Escribir "Compra no procede"

FinSi

2:

Si n<=8 Entonces

i<-0.03*cm

Sino

Escribir "Compra no procede"

FinSi

3:

Si n<=8 Entonces

i<-0.01*cm

Sino

Escribir "Compra no procede"

 FinSi

De Otro Modo:

Escribir "Opcion No Valida"

FinSegun

pagar<-cm+i

Escribir "La cuota mensual a pagar es: ", pagar

FinProceso

8. Un club social ofrece a sus socios tres planes de pagos:

Planes Pago anual (S/.)

Bsico 1000
Familiar 1600
Premium 2500

Si el socio desea adquirir adicionalmente un seguro contra accidentes, tiene que

pagar 4% ms sobre el pago anual. Calcular el pago adicional y el monto final que
tiene que pagar un socio.
Proceso Prob_8_CONconstantes
Definir resp Como Caracter
Definir p Como Entero
Definir pa, bp, fp, pp, porc, final Como Real
pa<-0
bp<-1000
fp<-1600
pp<-2500
porc<-0.04
Escribir "Seleccione el Plan (1-3): "
Leer p
Escribir "Desea Un Seguro contra accidentes (S/N): "
Leer resp
Segun p Hacer
1:
Si resp='S' Entonces
pa<-bp*porc
final<-bp+pa
Sino
final<-bp
FinSi
2:
Si resp='S' Entonces
pa<-fp*porc
final<-fp+pa
Sino
final<-fp
FinSi
 3:
Si resp='S' Entonces
pa<-pp*porc
final<-pp+pa
Sino
final<-pp
FinSi
De Otro Modo:
Escribir "Opcion NO Valida"
FinSegun
Escribir "Pago adicional es: ", pa
Escribir "Monto final a pagar es: ", final
FinProceso
Proceso Prob_8_sinconstantes
pa<-0
Escribir "Seleccione el Plan (1-3): "
Leer p
Escribir "Desea Un Seguro contra accidentes (S/N): "
Leer resp
Segun p Hacer
1:
Si resp='S' Entonces
pa<-1000*0.04
final<-1000+pa
Sino
final<-1000
FinSi
2:
Si resp='S' Entonces
pa<-1600*0.04
final<-1600+pa
Sino
final<-1600
FinSi
3:
Si resp='S' Entonces
pa<-2500*0.04
final<-2500+pa
Sino
final<-2500
FinSi
De Otro Modo:
Escribir "Opcion NO Valida"
FinSegun
Escribir "Pago adicional es: ", pa
Escribir "Monto final a pagar es: ", final
FinProceso

9. La empresa Cruz del Sur realiza ofertas de pasajes a 3 destinos diferentes, slo de
acuerdo a la cantidad de pasajes que se compra, como se muestra en el siguiente
cuadro:

Destino Precio (S/.) De 4 a 10 pasajes (%) De 11 a ms pasajes (%)

Arequipa 84.00 10 15
Moquegua 96.00 15 20
 Tacna 125.00 20 25

Un cliente solo puede comprar pasajes para una ciudad. Mostrar el monto de
descuento y el total que tiene que pagar un determinado cliente.

10. Calcular el pago bsico que se hace por un servicio de transporte de carga
interprovincial. La empresa que brinda este servicio solo tiene tres destinos cuya
tarifa es por kilo transportado:

Destino Tarifa por kilo

Tarapoto S/. 15.00
Jan S/. 20.00
Chachapoyas S/. 10.00

El pago bsico puede incrementarse de acuerdo a la modalidad de servicio, tal

como figura en el siguiente cuadro:
Modalidad de servicio Incremento (%)
A (agencia agencia) 0
B (agencia domicilio) 25
C (domicilio domicilio) 45

Finalmente se debe mostrar el pago final por el servicio de transporte.

Proceso Prob_10_CONconstantes
Definir peso, pb, i, final Como Real
Definir d Como Entero
Definir m Como Caracter
t<-15
j<-20
ch<-10
ai<-0
bi<-0.25
ci<-0.45
Escribir "Ingrese el Peso en Kg.: "
Leer peso
Escribir "Seleccione el destino (1-3): "
Leer d
Escribir "Elija la modalidad (A/B/C): "
Leer m
Segun d Hacer
1:
pb<-t*peso
Si m='A' Entonces
i<-ai
FinSi
Si m='B' Entonces
i<-bi*pb
FinSi
Si m='C' Entonces
i<-ci*pb
FinSi
2:
pb<-j*peso
Si m='A' Entonces
i<-ai
 FinSi
Si m='B' Entonces
i<-bi*pb
FinSi
Si m='C' Entonces
i<-ci*pb
FinSi
3:
pb<-ch*peso
Si m='A' Entonces
i<-ai
FinSi
Si m='B' Entonces
i<-bi*pb
FinSi
Si m='C' Entonces
i<-ci*pb
FinSi
De Otro Modo:
Escribir "Opcion No Valida"
FinSegun
final<-pb+i
Escribir "Pago final es: ", final
FinProceso

Proceso Prob_10_SINconstantes
Definir peso, pb, i, final Como Real
Definir d Como Entero
Definir m Como Caracter
Escribir "Ingrese el Peso en Kg.: "
Leer peso
Escribir "Seleccione el destino (1-3): "
Leer d
Escribir "Elija la modalidad (A/B/C): "
Leer m
Segun d Hacer
1:
pb<-15*peso
Si m='A' Entonces
i<-0
FinSi
Si m='B' Entonces
i<-0.25*pb
FinSi
Si m='C' Entonces
i<-0.45*pb
FinSi
2:
pb<-20*peso
Si m='A' Entonces
i<-0
FinSi
Si m='B' Entonces
i<-0.25*pb
FinSi
 Si m='C' Entonces
i<-0.45*pb
FinSi
3:
pb<-10*peso
Si m='A' Entonces
i<-0
FinSi
Si m='B' Entonces
i<-0.25*pb
FinSi
Si m='C' Entonces
i<-0.45*pb
FinSi
De Otro Modo:
Escribir "Opcion No Valida"
FinSegun
final<-pb+i
Escribir "Pago final es: ", final
FinProceso

plus
Proceso Cuatro_Operaciones_1
Definir s, r, m, d, n1, n2, opc como Real
Escribir "Ingrese 1er Numero: "
Leer n1
Escribir "Ingrese 2do Numero: "
Leer n2
// Menu Principal
Escribir "M E N U P R I N C I P A L"
Escribir "=========================="
Escribir "(1) Sumar"
Escribir "(2) Restar"
Escribir "(3) Multiplicar"
Escribir "(4) Dividir"
Escribir " "
Escribir "Seleccione una opcin (1-4): "
Leer opc
Segun opc Hacer
1:
s<-n1+n2
Escribir "La Suma es: ", s
2:
r<-n1-n2
Escribir "La Resta es: ", r
3:
m<-n1*n2
Escribir "La Multiplicacion es: ", m
4:
d<-n1/n2
Escribir "La Division es: ", d
De Otro Modo:
Escribir "Opcion No Valida"
Fin Segun
FinProceso