PROBLEMAS PROPUESTOS

TRABAJO 1
Calcular el porcentaje de hombres y mujeres que hay en un grupo de personas
Proceso pocentaje_h_m
Definir h, m, porhom, pormuj como real;
Escribir "Ingrese cantidad de hombres:";
Leer h;
Escribir "Ingrese cantidad de mujeres:";
Leer m;
porhom<-100*h/(h+m);
pormuj<-100*m/(h+m);
Escribir "Porcentaje de hombres es:",porhom,"%";
Escribir "Porcentaje de mujeres es:",pormuj,"%";
FinProceso

Calcular el salario que recibe por mes un empleado que trabaja por horas,
retenindole el 7 por ciento por concepto de seguro de trabajo
Proceso Salario
Definir hora_xdia, salario_xhora, sueldo_xmes, sueldo_liquido como
real;
Escribir "Ingrese las horas trabajas por dia:";
Leer hora_xdia;
Escribir "Ingrese salario por hora:";
Leer salario_xhora;
sueldo_xmes<-hora_xdia*salario_xhora*30;
sueldo_liquido<-sueldo_xmes-sueldo_xmes*0.07;
Escribir "Su salario es:",sueldo_xmes,"soles";
Escribir "su salario descontando su 7% es:",sueldo_liquido,"soles";
FinProceso

Dado el precio de un artculo y la cantidad de artculos comprados, calcular el total

a pagar considerando que se paga el 12% por concepto de impuesto sobre ventas
(IGV).
Proceso IGV
Definir precio, cantidad, subtotal, total como real;
Escribir "Ingrese el precio del articulo:";
Leer precio;
Escribir "Ingrese la cantidad a comprar de articulos:";
Leer cantidad;
total<-precio*cantidad-precio*cantidad*0.12;
Escribir "Pagara en total s/. ",total,"soles descontando en 12% de IGV";
FinProceso

Calcular la nota final de un estudiante del curso de Lgica de Programacin, para

ello se debe tomar en cuenta lo siguiente: que se realizaron cuatro exmenes
valorados en 80% cada uno y cuatro prcticas de laboratorio valoradas en 20
puntos cada una
Proceso Nota_final
Definir exa1, exa2, exa3, exa4, prac1, prac2, prac3, prac4, total, sum1,
sum2 como real;
Escribir "Ingrese nota de examen 1:";
Leer exa1;
Escribir "Ingrese nota de examen 2:";
Leer exa2;
 Escribir "Ingrese nota de examen 3:";
Leer exa3;
Escribir "Ingrese nota de examen 4:";
Leer exa4;
Escribir "Ingrese nota de practica 1:";
Leer prac1;
Escribir "Ingrese nota de practica 2:";
Leer prac2;
Escribir "Ingrese nota de practica 3:";
Leer prac3;
Escribir "Ingrese nota de practica 4:";
Leer prac4;
sum1<-exa1+exa2+exa3+exa4;
sum2<-prac1+prac2+prac3+prac4;
total<-(sum1*0.8+sum2*0.2)/4;
Escribir "Su promedio final es: ",total;
FinProceso

Dados dos puntos en el plano cartesiano, calcular la longitud del segmento

determinado por ellos

Proceso Cartesiano
Definir x1, x2, y1, y2, distancia como real;
Escribir "Ingrese coordenada X1 de punto 1:";
Leer x1;
Escribir "Ingrese coordenada Y1 de punto 1:";
Leer y1;
Escribir "Ingrese coordenada x1 de punto 2:";
Leer x2;
Escribir "Ingrese coordenada x1 de punto 2:";
Leer y2;
distancia<-rc((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
Escribir "La distancia en el plano carteciano entre los puntos es:
",distancia;
FinProceso

TRABAJO 2
Un profesor incentivar a los alumnos que obtengan promedio final mayor que
98%, asignndoles una nota final de 100%. Si se realizaron tres exmenes
valorados en 80% y un acumulativo valorado en 20% , calcule la nota final obtenida
por un alumno
Proceso media_aritmetica
Definir nota1, nota2, nota3, acumulativo, total, porcentaje, notafinal
como real;
Escribir "Ingrese examen 1:";
Leer nota1;
Escribir "Ingrese examen 2:";
Leer nota2;
Escribir "Ingrese examen 3:";
Leer nota3;
Escribir "Ingrese acumulativo:";
Leer acumulativo;
total<-(nota1+nota2+nota3)*0.8/3+acumulativo*0.2;
porcentaje<-total*100/20;
si porcentaje <=98 Entonces
Escribir "UD. tiene una nota de 20 como insentivo";
 sino
Escribir "UD. tiene una nota de ", total;
FinSi
FinProceso

Dados tres nmeros positivos a, b y c que denotan las longitudes de tres

segmentos, determinar si con ellos se forma un tringulo. Segn un teorema de
Geometra se deben cumplir las tres desigualdades siguientes: a+b>c, a+c>b y
b+c>a. Si se cumplen las tres condiciones calcular el semipermetro y el rea del
tringulo por la frmula de Hern
Proceso triangulo
Definir a, b, c, semiperi, area como real;
Escribir "Ingrese lado A del triangulo:";
Leer a;
Escribir "Ingrese lado B del triangulo:";
Leer b;
Escribir "Ingrese lado C del triangulo:";
Leer c;
si a+b>c Entonces
si a+c>b Entonces
si b+c>a Entonces
semiperi<-(a+b+c)/2;
Escribir "El semiperimetro del triangulo es:",
semiperi;
area<-rc(semiperi*(semiperi-a)*(semiperi-b)*(semiperi-
c));
Escribir "El area por formula de heron es:", area;
sino
Escribir "Ingrese valores correctos";
FinSi
sino
Escribir "Ingrese valores correctos";
FinSi
sino
Escribir "Ingrese valores correctos";
FinSi
FinProceso

En un grupo se requiere clasificar a los alumnos de la siguiente manera: si el

alumno tiene nota final mayor a 19 debe clasificarse como excelente; si tiene nota
mayor de 17 hasta 19 como muy bueno; si la nota es ma3or de 14 hasta 16 como
bueno, mayor de 10 hasta 13 como regular y si la nota es menor como
desaprobado. Dada la nota final indicar el nivel obtenido por el alumno
Proceso sin_titulo
Definir NOTA como entero;
Escribir "Ingrese nota del alumno:";
Leer NOTA;
si NOTA >=19 Entonces
Escribir "ALUMNO EXECELENTE";
SINO
si NOTA >= 17 & NOTA <19 Entonces
Escribir "ALUMNO MUY BUENO";
SINO
si NOTA >= 14 & NOTA <=16 Entonces
Escribir "ALUMNO BUENO";
SINO
si NOTA > 10 & NOTA <=13 Entonces
Escribir "ALUMNO REGULAR";
 SINO
si NOTA <= 10 Entonces
Escribir "ALUMNO DESAPROBADO";
SINO
Escribir "INGRESE NOTA CORRECTA";
FinSi
FinSi
FinSi
FinSi
FinSi
FinProceso

Dada una fecha en el formato dd/mm/aaaa, verificar si esta correcta. Ejemplo si se

ingresa 12 3 2009, corresponder al 12 de marzo del 2009 y esta correcta, pero si
se ingresa 32 1 2009, hay error en el da
Proceso FECHA
Definir dia, mes, anio como entero;
Escribir "Ingrese fecha:";
Leer dia, mes, anio;
si dia >= 1 & dia <=31 Entonces
si mes >= 1 & mes <=12 Entonces
si anio >= 1990 & anio <=2100 Entonces
Escribir "FECHA CORRECTA";
FinSi
FinSi
sino
Escribir "HAY UN ERROR EN EL AO";
FinSi
FinProceso

Calcular el valor a pagar por la compra de medicinas en una farmacia, sabiendo

que el adulto mayor (personas con edad mayor o igual a 60 aos) tiene por ley,
derecho al 20% de descuento en las farmacias. Adems esta farmacia tiene la
poltica de otorgar un descuento del 15 % si se trata de un infante menor de 10
aos y del 10 % en cualquier otro caso. Esta poltica de descuento se aplica
nicamente a la venta de medicinas
Proceso FARMACIA
Definir edad, adulto, infante, demas, pago, monto como entero;
Escribir "INGRESE EDAD DE CLIENTE:";
Leer edad;
Escribir "INGRESE MONTO:";
Leer monto;
si edad >=60 entonces
pago<-monto-monto*0.2;
Escribir "tiene descuento de 20% y su pago es:", pago;
sino
si edad <=10 entonces
pago<-monto-monto*0.15;
Escribir "tiene descuento de 15% y su pago es:", pago;
Sino
si edad >10 & edad< 60 entonces
pago<-monto-monto*0.1;
Escribir "tiene descuento de 10% y su pago es:", pago;
FinSi

finsi
FinSi
 En Hotel Playa Dorada, se ha establecido la siguiente tarifa diaria para la
temporada de verano: habitacin sencilla 35 soles, habitacin doble 60 soles, el
de una habitacin sencilla de lujo 100 soles y el de una doble de lujo 250 soles. Si
la estada es de tres das o ms se da un descuento del 10% y se tiene derecho al
desayuno. Calcular el total a pagar por un cliente que se hospeda en dicho hotel,
y considere el impuesto sobre ventas que actualmente es del 18 %
Proceso hotel_playa
Definir dias, monto, subtotal, total como entero;
Escribir "ingrese numero de dias que quiera hospedarse:";
Leer dias;
Escribir "ESCOJA QUE TIPO DE HABITACION TOMAR";
Escribir "HABITACION SENCILLA--- 35 soles ---OPCION 1:";
Escribir "HABITACION DOBLE--- 60 soles ---OPCION 2:";
Escribir "HABITACION SENCILLA DE LUJO--- 100 soles ---OPCION 3:";
Escribir "HABITACION DOBLE DE LUJO--- 250 soles ---OPCION 4:";
Leer opcion;
segun opcion hacer
1:
si dias >=3 entonces
subtotal<-dias*35-dias*35*0.1;
total<-subtotal-subtotal*0.18;
Escribir "El monto a pagar con su descuento del 10%
es:", total,"GANO SU DESAYUNO";
Sino
subtotal<-dias*35;
Escribir "El monto a pagar es:", subtotal ;
finsi
2:
si dias >=3 entonces
subtotal<-dias*60-dias*60*0.1;
total<-subtotal-subtotal*0.18;
Escribir "El monto a pagar con su descuento del 10%
es:", total,"GANO SU DESAYUNO";
Sino
subtotal<-dias*60;
Escribir "El monto a pagar es:", subtotal ;
finsi
3:
si dias >=3 entonces
subtotal<-dias*100-dias*100*0.1;
total<-subtotal-subtotal*0.18;
Escribir "El monto a pagar con su descuento del 10%
es:", total,"GANO SU DESAYUNO";
Sino
subtotal<-dias*100;
Escribir "El monto a pagar es:", subtotal ;
finsi
4:
si dias >=3 entonces
subtotal<-dias*250-dias*250*0.1;
total<-subtotal-subtotal*0.18;
Escribir "El monto a pagar con su descuento del 10%
es:", total,"GANO SU DESAYUNO";
Sino
subtotal<-dias*250;
Escribir "El monto a pagar es:", subtotal ;
finsi
De Otro Modo:
Escribir "INGRESE ALGUN VALOR";
FinSegun
 FinProceso

Hacer un algoritmo donde se ingresa el nmero de da de la semana y nos

devuelva el nombre del da.
Proceso dia_semana
Definir dia como entero;
Escribir "Ingrese dia de la semana:";
Leer opcion;
segun opcion hacer
1:
Escribir "El 1 representa al LUNES";
2:
Escribir "El 2 representa al MARTES";
3:
Escribir "El 3 representa al MIERCOLES";
4:
Escribir "El 4 representa al JUEVES";
5:
Escribir "El 5 representa al VIERNES";
6:
Escribir "El 6 representa al SABADO";
7:
Escribir "El 7 representa al DOMINGO";
De Otro Modo:
Escribir "INGRESE NUMERO DE 1 A 7";
FinSegun
FinProceso

Programa donde se ingresa la edad de una persona y nos devuelva su etapa de

vida:
0-5 aos infante
6-12 aos nio
13-18 aos adolescente
19-25 aos joven
26-60 aos adulto
De 60 a ms Adulto mayor

Proceso edad_persona
Definir edad como entero;
Escribir "INGRESE EDAD DE LA PERSONA:";
Leer edad;
si edad >= 0 & edad <=5 entonces
Escribir "UD. ES UN INFANTE";
sino
si edad >= 6 & edad <=12 entonces
Escribir "UD. ES UN NIO";
Sino
si edad >= 13 & edad <=18 entonces
Escribir "UD. ES UN ADOLECENTE";
sino
si edad >= 19 & edad <=25 entonces

Escribir "UD. ES UN JOVEN";

Sino
si edad >= 26 & edad <=60 entonces
 Escribir "UD. ES UN ADULTO";
Sino
si edad > 60 entonces

Escribir "UD. ES UN ADULTO

MAYOR";
Sino
FinSi
FinSi
FinSi
FinSi

finsi
FinSi
FinProceso

Programa donde se ingresa la nota de un estudiante y nos devuelva su condicin.

20 Excelente
17-19 muy bueno
14-16 bueno
11-13 regular
08-10 deficiente
05 -07 Insuficiente
De otro modo 00

Proceso NOTA_ESTUDIANTE
Definir nota como entero;
Escribir "INGRESE NOTA DE ESTUDIANTE:";
Leer nota;
si nota >= 0 & nota <=5 entonces
Escribir "UD. ES UN INFANTE";
sino
si nota >= 5 & nota <=7 entonces
Escribir "INSUFICIENTE";
Sino
si nota >= 8 & nota <=10 entonces
Escribir "DEFICIENTE";
sino
si nota >= 11 & nota <=13 entonces

Escribir "REGULAR";
Sino
si nota >= 14 & nota <=16 entonces

Escribir "BUENO";
Sino
si nota >= 17 & nota <=19 entonces

Escribir "MUY BUENO";

Sino
si nota = 20 entonces

Escribir "EXCELENTE";
Sino
Escribir "00";
FinSi
FinSi
FinSi
FinSi
 Finsi
FinSi
FinSi

TRABAJO 3

Leer un nmero entero y mostrar todos los enteros comprendidos entre 1 y el

nmero ledo.
Proceso numero_entero
Definir N,S,I como entero;
I<-0;
Escribir "Ingrese Nmero";
Leer N;
Para S<-1 Hasta N Con Paso 1 Hacer
S<-S+I;
Escribir "Numero=",S;
Fin Para
FinProceso

Leer un nmero entero y mostrar todos los pares comprendidos entre 1 y el

nmero ledo.

Proceso pares
Definir N,S,I como entero;
I<-0;
Escribir "Ingrese Nmero";
Leer N;
Para S<-1 Hasta N Con Paso 1 Hacer
S<-S+I;
si s mod 2 = 0 entonces
Escribir "Numero=",S;
finsi
Fin Para
FinProceso

Leer un nmero entero y mostrar todos los divisores exactos del nmero
comprendidos entre 1 y el nmero ledo
Proceso numero_divisores
Definir num,S,I como entero;

Escribir "Ingrese Nmero";

Leer num;
Para I<-1 Hasta num Hacer
si num mod I= 0 entonces
Escribir "Los numeros divisores son=",I;
FinSi
Fin Para
FinProceso

Leer dos nmeros y mostrar todos los enteros comprendidos entre ellos
Proceso entre
Definir N,I como entero;
Escribir "Ingrese primer numero";
Leer I;
 Escribir "Ingrese segundo numero";
Leer N;
si N>I entonces
Para I<-I Hasta N Con Paso 1 Hacer
Escribir "Numero=",I;
Fin Para
FinSi
FinProceso

Leer dos nmeros y mostrar todos los nmeros terminados en 4 comprendidos

entre ellos.

Proceso terminados_en4
Definir num2,S,num1, N como entero;
Escribir "Ingrese primer numero";
Leer num1;
Escribir "Ingrese segundo numero";
Leer num2;

si num2>num1 entonces
Para num1<-num1 Hasta num2 Con Paso 1 Hacer
N=num1 mod 10;
si N=4 Entonces
Escribir "Los numeros son=",num1;
FinSi

Fin Para
FinSi

FinProceso

Mostrar en pantalla todos los enteros comprendidos entre 1 y 100

Proceso num1_100
Definir N,S,I como entero;
I<-0;
N<-100;
Para S<-1 Hasta N Con Paso 1 Hacer
S<-S+I;
Escribir "Numero=",S;
Fin Para

FinProceso

Mostrar en pantalla todos los pares comprendidos entre 20 y 200.

Proceso pares
Definir N,S,I como entero;
I<-0;
N<-200
Para S<-20 Hasta N Con Paso 1 Hacer
S<-S+I;
si s mod 2 = 0 entonces
Escribir "Numero=",S;
finsi
Fin Para
FinProceso
 Mostrar en pantalla todos los nmeros terminados en 6 comprendidos entre 25 y
205.

Proceso terminados_en6
Definir num2,S,num1, N como entero;
num1<-25;
num2<-225;

Para num1<-num1 Hasta num2 Con Paso 1 Hacer

N=num1 mod 10;
si N=6 Entonces
Escribir "Los numeros son=",num1;
FinSi

Fin Para

FinProceso

Leer un nmero entero y determinar a cunto es igual la suma de todos los enteros
comprendidos entre 1 y el nmero ledo.

Proceso suma_nnumeros
Definir N,I, sum como entero;
Escribir "Ingrese Nmero";
Leer N;
Para I<-0 Hasta N Con Paso 1 Hacer
sum<-sum+I;
Fin Para
Escribir "La suma de todos los numeros es=",sum;
FinProceso

Leer un nmero entero de dos dgitos y mostrar en pantalla todos los enteros
comprendidos entre un dgito y otro.

Proceso sum_entredigitos
Definir N, prim, seg, sum como entero;
Escribir "Ingrese Nmero";
Leer N;
si N>9 & N<100 entonces
prim = trunc(N/10);
seg = N mod 10
FinSi
Para I<-prim Hasta seg Con Paso 1 Hacer
sum<-sum+I;
Fin Para
Escribir "La suma de todos los digitos es=",sum;
FinProceso