Ejercicios Metodología de la Programación con PseInt.
Una empresa quiere hacer una compra de varias piezas a una fábrica de refacciones. La empresa, dependiendo del monto total de la compra, decidirá que hacer para pagar al fabricante.
- Si el monto total de la compra excede de $500 000 la empresa tendrá la capacidad de invertir de su propio dinero un 55% del monto de la compra, pedir prestado al banco un 30% al 10% y el resto lo pagara solicitando un crédito al fabricante.
- Si el monto total de la compra no excede de $500 000 la empresa tendrá capacidad de invertir de su propio dinero un 70% y el restante 30% lo pagara solicitando crédito al fabricante.
- El fabricante cobra por concepto de intereses un 8% sobre la cantidad que se le pague a crédito.
1 Proceso FinanciarCompraMateriales
2 //Una empresa
quiere hacer una compra de varias piezas de la misma
3 //clase a una
fabrica de refacciones.
4 //La empresa,
dependiendo del monto total de la compra,
5 //decidirá que
hacer para pagar al fabricante.
6 //Si el monto
total de la compra excede de $500 000 la empresa
7 //tendrá la
capacidad de invertir de su propio dinero un 55%
8 //del monto de
la compra, pedir prestado al banco un 30% al 10%
9 //y el resto lo
pagara solicitando un crédito al fabricante.
10 //Si el monto
total de la compra no excede de $500 000 la empresa
11 //tendrá
capacidad de invertir de su propio dinero un 70%
12 //y el restante
30% lo pagara solicitando crédito al fabricante.
13 //El fabricante
cobra por concepto de intereses un 8% sobre
14 //la cantidad
que se le pague a crédito.
15 Definir TotalCompra, Contado
, Banco, Fabri Como Entero;
16 Definir InteresesBanco ,
InteresesFab Como Real;
17 Escribir "Dime el total
de la compra";
18 Leer TotalCompra;
19 Si TotalCompra >
500000
entonces
//C 55 B 30 F 15
20 Contado <- TotalCompra * 0.55;
21 Banco <- TotalCompra * 0.30;
22 Fabri <- TotalCompra * 0.15;
23 Sino // C 70 B 00 F
30
24 Contado <- TotalCompra * 0.70;
25 Banco <- 0; //TotalCompra *
0.00;
26 Fabri <- TotalCompra * 0.30;
27 FinSi
28 InteresesBanco <- Banco * 0.10;
29 InteresesFab <- Fabri * 0.08;
30 Escribir "Total:", TotalCompra;
31 Escribir "Contado:"
,
Contado;
32 Escribir "Banco:" , Banco, "
Intereses:" ,InteresesBanco ;
33 Escribir "Fabri:" , Fabri, "
Intereses:" ,InteresesFab ;
34 FinProceso
Leer 2 números, si son iguales que los multiplique, si el primero es mayor que el segundo que los reste y si no que los sume.
1 Proceso Leer2NumerosYMSR
2 //Leer 2
números; si son iguales que los multiplique,
3 //si el primero
es mayor que el segundo que los reste
4 //y si no que
los sume.
5 Definir NumA, NumB,
Resultado Como Real;
6 Escribir "Dime el 1
numero";
7 Leer NumA;
8 Escribir "Dime el 2
numero";
9 Leer NumB;
10 Si NumA = NumB
Entonces
11 Resultado <- NumA * NumB;
12 Sino
13 Si NumA > NumB
Entonces
14 Resultado <- NumA - NumB;
15 Sino
16 Resultado <- NumA + NumB;
17 FinSi
18 FinSi
19 Escribir "Resultado
" , Resultado;
20 FinProceso
Leer tres números diferentes e imprimir el numero mayor de los tres.
1 Proceso LeerTresNumerosDifYMostrarelMayor
2 Definir NumA , NumB,
NumC, Mayor Como Real;
3 Escribir "Dime el
numero A";
4 Leer NumA;
5 Repetir
6 Escribir "Dime el
Numero B";
7 Leer NumB;
8 Hasta Que NumB <> NumA
9 Repetir
10 Escribir "Dime el
Numero C";
11 Leer NumC;
12 Hasta Que NumC <> NumB
& NumC <> NumA
13 si NumA > NumB
Entonces
14 si NumA > NumC
Entonces
15 Mayor <- NumA;
16 Sino
17 Mayor <- NumC;
18 FinSi
19 Sino //B > A
20 Si NumB > NumC
Entonces
21 Mayor <- NumB;
22 Sino
23 Mayor <- NumC;
24 FinSi
25 FinSi
26 Escribir "El Mayor es
" ,Mayor;
27 FinProceso
Determinar la cantidad de dinero que recibirá un trabajador por concepto de las horas extras trabajadas en una empresa, sabiendo que cuando las horas de trabajo exceden de 40, el resto se consideran horas extras y que estas se pagan al doble de una hora normal cuando no exceden de 8, si las horas extras exceden de 8 se pagan las primeras 8 al doble de lo que se pagan las horas normales y el resto al triple.
1 Proceso HorasExtras
2 //Determinar la
cantidad de dinero que recibirá
3 //un trabajador
por concepto de las horas extras
4 //trabajadas en
una empresa, sabiendo que cuando
5 //las horas de
trabajo exceden de 40,
6 //el resto se
consideran horas extras y que estas
7 //se pagan al
doble de una hora normal cuando no
8 //exceden de 8;
si las horas extras exceden de 8
9 //se pagan las
primeras 8 al doble de lo que se
10 //pagan las
horas normales y el resto al triple.
11 Definir TotalHoras, Horas,
HorasDobles, HorasTriples Como Entero;
12 Definir PrecioHora, Sueldo
Como
Real;
13 Escribir "Dime el
precio de la hora:";
14 Leer PrecioHora;
15 Escribir "Dime las
horas trabajadas.";
16 Leer TotalHoras;
17 HorasDobles<-0;
18 HorasTriples <-0;
19 Si TotalHoras >
40
Entonces
20 Horas <- 40;
21 TotalHoras <- TotalHoras - 40;
22 Si TotalHoras >
8
Entonces
23 HorasDobles <- 8;
24 HorasTriples <- TotalHoras - 8;
25 Sino
26 HorasDobles <- TotalHoras;
27 FinSi
28 Sino
29 Horas <- TotalHoras;
30 FinSi
31 Escribir "Horas ",Horas," EstrasD
",HorasDobles," EstrasT ",HorasTriples;
32 Sueldo <- (Horas + (2*HorasDobles) +
(3*HorasTriples))
* PrecioHora;
33 Escribir "Esta Semana
tu sueldo es " , Sueldo , " Euros.";
34 FinProceso
No hay comentarios:
Publicar un comentario