Pascal/Turbo Pascal - Listas Pascal

   
Vista:

Listas Pascal

Publicado por Agostina (1 intervención) el 04/07/2017 16:23:59
Hola, tengo una consulta. Tengo este ejercicio:

"Un cine dispone de una lista con la información de los tickets del dia (nro.caja, nro. ticket, monto)correpondientes a sus 5 cajas. Genere una lista con las cajas con montos menores a $1000."

como hago para crear una nueva lista usando los datos de la lista que me dan? Saludos
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

Listas Pascal

Publicado por dario dariodr32@yahoo.com (31 intervenciones) el 06/07/2017 16:04:20
A ver si esto te sirve.

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
uses crt;
var
	i:byte;
	n_caja,caja:array[1..5] of byte;
	ticket:array[1..5] of byte;
	n_monto,monto:array[1..5] of word;
begin
	clrscr;
	for i:=1 to 5 do begin
		writeln('Caja Nro ',i);
		caja[i]:=i;
		write('Numero de tickets vendidos: ');
		readln(ticket[i]);
		write('Monto total: ');
		readln(monto[i]);
	end;
 
	//mostrar los montos menores a 1000
	for i:=1 to 5 do begin
		if monto[i] < 1000 then begin
			n_caja[i]:=caja[i];
			n_monto[i]:=monto[i];
		end;
	end;
 
	//mostrar nueva lista
	for i:=1 to 5 do begin
		writeln('Caja Nro ',n_caja[i]);
		writeln('Monto ',n_monto[i]);
	end;
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
Revisar política de publicidad