Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » AYUDA URGENTE

Pascal/Turbo Pascal - AYUDA URGENTE

Volver
Nuevo Tema
<<>>
 
Vista:

AYUDA URGENTE

Publicado por Lucas (2 intervenciones) el 11/12/2021 12:37:41
El Sindicato de trabajadores de juegos de azar está analizando la información de los ganadores
de loterias y quinielas. El Sindicato dispone de una estructura de datos con información de todos
los premios ganados. De cada premio ganado se conoce: DNI del ganador, su edad en años,
número ganador, nombre del juego (quiniela matutina, quiniela vespertina, etc.) y monto del
premio obtenido. La información se encuentra ordenada por el nombre del juego.
A.
Realice un módulo que reciba la información de todos los ganadores y una edad, y retorne
la información de todos los ganadores de premios de menos de 100.000 pesos mayores de
dicha edad.
B.
Realice un módulo que reciba la información de todos los ganadores de premios de menos
de 100.000 pesos mayores de 20 años y, a partir de la misma, informe:
Monto total obtenido por cada juego.
Cantidad de ocurrencias de cada digito (del 0 al 9) entre los números ganadores.
Nombre y apellido del ganador que obtuvo el menor premio.
Nota: incluir el programa principal donde se invoquen los módulos implementados.
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: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

AYUDA URGENTE

Publicado por dario (87 intervenciones) el 17/12/2021 09:22:45
Hola, aca tienes una idea de como hacerlo.
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
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
63
64
65
66
67
68
69
uses crt;
const
	MAXIMO = 100;
type
	premios_ganados = record
		dni_ganador:longint;
		edad:byte;
		numero_ganador:longint;
		nombre_juego:string;
		monto_premio:real;
	end;
var
	juegos:array[1..MAXIMO] of premios_ganados;
	j,age,i,flag:byte;
	dni:longint;
	opc:char;
begin
	clrscr;
	flag:=1;
	i:=1;
 
	writeln('Ingreso de datos'); writeln;
	while flag = 1 do begin
		write('Numero de DNI [0 para terminar]: ');
		readln(dni);
 
		if dni = 0 then
			flag:=0
		else begin
			juegos[i].dni_ganador := dni;
			write('Edad del jugador: ');
			readln(juegos[i].edad);
			write('Numero ganador: ');
			readln(juegos[i].numero_ganador);
			write('Nombre del juego: ');
			readln(juegos[i].nombre_juego);
			write('Monto del premio ganado: ');
			readln(juegos[i].monto_premio);
			inc(i);
			writeln;
		end;
	end;
 
	//Consultas
	repeat
		clrscr;
		writeln('a) Mostrar ganadores de cierta edad');
		writeln('s) Salir');
		write('Seleccione su opcion ==> ');
		readln(opc);
		case opc of
			'a': begin
					write('Ingrese una edad: ');
					readln(age);
					for j:=1 to i do begin
						if (juegos[j].edad > age) and (juegos[j].monto_premio < 100000)
							then begin
									writeln(juegos[j].dni_ganador);
									writeln(juegos[j].edad);
									writeln(juegos[j].numero_ganador);
									writeln(juegos[j].nombre_juego);
									writeln(juegos[j].monto_premio:4:2);
								 end;
					end;
					readln;
				end;
		end;
	until opc = 's';
end.
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