-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una empresa dedicada a la producción de software ofrece a sus clientes aplicaciones comerciales clasificado de la siguiente manera:
TIPO | DESCRIPCION | COSTO
1 | CONTABILIDAD BASICA | $5000.00
2 | CONTABILIDAD DE COSTOS | $6500.00
3 | CONTABILIDAD AVANZADA | $7000.00
Las aplicaciones comerciales se venden por número de licencia. La primera licencia esta incluida dentro del costo del paquete, para cada licencia adicional se cobra $.2000.00 por cada una.
Si el cliente así lo desea (Respuesta S(1) o N(2)) se le ofrece un plan de mantenimiento del software a un precio adicional de $.8,000 para la modalidad 1, 9,000 para la 2 y 10,000 para la 3.
Para la modalidad 2 y 3 se debe comprar un manual de usuario a un precio adicional del $.1500.00. A los clientes que compren mas de una licencia se les otorga un descuento del 25% del precio del manual.
Emitir una factura al usuario que muestre:
1. Precio base de la licencia
2. Costo por licencias adicionales
3. Costo por plan de mantenimiento
4. Costo por manual de usuario
5. Descuento
6. Costo total
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Escribir Sin Saltar "Ingresa el valor de numero de licencias:";
Leer numero_de_licencias;
base_licencia <- 0;
costo_mantenimiento <- 0;
costo_manual <- 0;
licencias_adicionales <- (numero_de_licencias-1)*2000;
Escribir "Selecciona el valor de tipo.";
Escribir " 1.- Contabilidad básica";
Escribir " 2.- Contabilidad de costos";
Escribir " 3.- Contabilidad avanzada";
Escribir Sin Saltar " :";
Repetir
Leer tipo;
Si tipo<1 O tipo>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo>=1 Y tipo<=3;
Escribir "Selecciona el valor de plan mantenimiento.";
Escribir " 1.- Si";
Escribir " 2.- No";
Escribir Sin Saltar " :";
Repetir
Leer plan_mantenimiento;
Si plan_mantenimiento<1 O plan_mantenimiento>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que plan_mantenimiento>=1 Y plan_mantenimiento<=2;
Si tipo = 1 Entonces
base_licencia <- 5000;
FinSi
Si tipo = 2 Entonces
base_licencia <- 6500;
costo_manual <- 1500;
FinSi
Si tipo = 3 Entonces
base_licencia <- 7000;
costo_manual <- 1500;
FinSi
Si plan_mantenimiento = 1 Y tipo = 1 Entonces
costo_mantenimiento <- 8000;
FinSi
Si plan_mantenimiento = 1 Y tipo = 2 Entonces
costo_mantenimiento <- 9000;
FinSi
Si plan_mantenimiento = 1 Y tipo = 3 Entonces
costo_mantenimiento <- 10000;
FinSi
Si numero_de_licencias>1 Entonces
descuento <- costo_manual*0.75;
SiNo
descuento <- 0;
FinSi
costo_total <- base_licencia+licencias_adicionales+costo_mantenimiento+costo_manual-descuento;
Escribir "Valor de base licencia: ", base_licencia;
Escribir "Valor de costo mantenimiento: ", costo_mantenimiento;
Escribir "Valor de costo manual: ", costo_manual;
Escribir "Valor de costo total: ", costo_total;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de licencias adicionales: ", licencias_adicionales;
FinProceso