Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Algoritmia » Resolución de algoritmos

Algoritmia - Resolución de algoritmos

Volver
Nuevo Tema
<<>>
 
Vista:

Resolución de algoritmos

Publicado por Andrea Valeria (2 intervenciones) el 14/07/2024 01:39:31
Ayuda, no tengo ni idea de programación y necesito entregar esto urgente!!!

Imagina que eres el encargado de un cine y se te solicita sala y cada columna representa un día de la semana. A continuación, se detallan los pasos del algoritmo:

1- Definir una matriz A de tamaño n x m donde n representa la cantidad de salas y m representa la cantidad de días a la semana

2- Solicitar al usuario ingresar la cantidad de clientes que asistieron a cada Sala en cada día y almacenar los datos en la matriz A

3- Calcular la cantidad de asistentes en cada Sala y almacenar los resultados en un vector B de tamaño n

4- calcular la cantidad promedio de asistentes por día en todas las salas y mostrar el resultado

El algoritmo debe mostrar los resultados obtenidos en cada una de las operaciones
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

Resolución de algoritmos

Publicado por dario (106 intervenciones) el 17/10/2024 06:29:08
Hola, lo hice en Basic espero lo entiendas.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
'Algoritmo para cine'
Dim As Integer i,j,salas
Dim diasSemana As Integer = 7
Dim matriz() As Integer
Dim num As Integer
 
'Las salas tienen un maximo de 50 personas y minimo de 10 personas'
Dim last As Integer = 50, first As Integer = 10
 
Randomize Timer
 
Input "Cuantas salas tiene el cine: ",salas
 
Redim matriz(1 To salas,1 To diasSemana)
 
For i = 1 To salas
	For j = 1 to diasSemana
		num = Rnd * (last - first) + first
		matriz(i,j) = num
	Next
Next
 
'Mostrar matriz'
Print
For i = 1 To salas
	For j = 1 to diasSemana
		Print matriz(i,j);
	Next
	Print
Next
 
'Calcular asistentes en cada sala y guardarlo en vector B'
Dim As Integer s,total
Dim vectorb(salas) As Integer
 
Print
Print "Total de cada sala"
For i = 1 to salas
	s = 0
	total = 0
	For j = 1 to diasSemana
		total = total + matriz(i,j)
	Next
	vectorb(i) = total
	Print "Sala ";i;" = "; total
Next
 
'Calcular asistentes promedio por dia'
Print
Print "Promedio por dia"
Dim suma As Integer
Dim prome As Single
 
For j = 1 to diasSemana
	suma = 0
	prome = 0
	For i = 1 to salas
		suma = suma + matriz(i,j)
	Next
	prome = suma / salas
	Print "Dia ";j;" = ";prome
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar