Algoritmia - Obras de subasta

 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 9 puestos en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

Obras de subasta

Publicado por Diego Fernando (1 intervención) el 25/04/2020 22:30:26
Una casa de subastas desea registrar las obras de arte que se van adquiriendo y clasificarlas en categorías de precio de acuerdo al año estimado en el que fueron creadas, el país de procedencia y el movimiento artístico al que pertenece. Ya que no se cuenta con una bodega grande, pueden tenerse almacenadas hasta 100 obras y de cada una debe registrarse el país de procedencia, el año estimado de creación y el estilo (Por ahora se están recibiendo de 3 países europeos: 1, Italia; 2, Francia y 3, España; y de 3 movimientos artísticos: 1, Barroco; 2, Impresionismo y 3, Modernismo) y se catalogan de la siguiente forma:

Categoría Alta: Aquí se catalogan aquellas obras que provengan de España, Italia o Francia, del movimiento barroco y cuyo año de creación esté entre 1600 y 1650.
Categoría Media: Aquí se catalogan aquellos obras del Impresionismo que provengan de Francia, cuya fecha de creación esté entre 1860 y 1900; o aquellas cuya fecha esté entre 1900 y 1920, y provengan de Italia o españa.
Categoria Baja: En esta categoría se catalogan aquellas obras del modernismo con fecha de creación desde 1960 sin importar el país de procedencia.


El programa debe permitir:

Guardar la información de cada obra que vaya llegando (fecha, país de procedencia y movimiento) en arreglos de una dimensión.
Catalogar cada obra de acuerdo a sus características: indicar cada obra a qué categoría pertenece.
Mostrar cuántas obras corresponden a cada categoría e indicar cuál categoría tiene el mayor número de obras.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 303
Oro
Ha mantenido su posición en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

Obras de subasta

Publicado por dario (80 intervenciones) el 30/04/2020 07:55:47
Hola, quieres algo asi.
Salu2.

1
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
uses crt;
const
	MAXIMO = 5;
var
	procedencia:array[1..MAXIMO] of byte;
	creacion:array[1..MAXIMO] of integer;
	estilo:array[1..MAXIMO] of byte;
	categoria:string;
	alta,media,baja,i:byte;
begin
	clrscr;
	baja:=0;
	alta:=0;
	media:=0;
 
	for i:=1 to MAXIMO do begin
		write('Pais de procedencia (1. Italia, 2. Francia, 3. Espana): ');
		readln(procedencia[i]);
		write('Ano de creacion: ');
		readln(creacion[i]);
		write('Movimientos artisticos (1. Barroco, 2. Impresionismo, 3. Modernismo): ');
		readln(estilo[i]);
		writeln;
	end;
 
	for i:=1 to MAXIMO do begin
		if ((estilo[i] = 3) and (creacion[i] >= 1960)) and ((procedencia[i] = 1)
			or (procedencia[i] = 2) or (procedencia[i] = 3)) then
				inc(baja);
		if ((estilo[i] = 2) and (procedencia[i] = 2) and (creacion[i] >=1860) and (creacion[i] <= 1900))
			or ((creacion[i] >= 1900) and (creacion[i] <= 1920) and (procedencia[i] = 1) or (procedencia[i] = 3)) then
				inc(media);
	end;
 
	writeln('Numero de obras de categoria baja: ',baja);
	writeln('Numero de obras de categoria media: ',media);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar