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 con problemas en Free Pascal

Pascal/Turbo Pascal - Ayuda con problemas en Free Pascal

Volver
Nuevo Tema
<<>>
 
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)Ayuda con problemas en Free Pascal
Juan (12/06/2018 21:55:30)328 visitas
1 respuesta
Mensajes realizados anteriormente (No estaban la última vez que entraste)Ayuda con problemas en Free Pascal
dario (13/06/2018 16:51:17)
sin imagen de perfil
Val: 1
Ha disminuido su posición en 22 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con problemas en Free Pascal

Publicado por Juan (1 intervención) el 12/06/2018 21:55:30
Hola buenas tardes, soy estudiante universitario y tengo unos problemas a la hora de programar en free pascal.
tengo una serie de ejercicios que necesito ayuda:
1) Cargar un vector con 20 números aleatorios enteros entre 100 y 200 y luego mostrar sus valores.
2) Generar un vector, en donde, los elementos del vector, es el triple de su posición (índice).
3) Haciendo uso del vector utilizado en 2), calcular la suma de los valores del vector, y luego hacer uso del módulo en el programa principal y mostrar el resultado que se obtenga.
4) Leer 40 valores correspondientes cada uno a la edad de los pasajeros de un ómnibus de larga distancia y almacenarlos en un vector en memoria. La posición del vector (índice) representa el número de asiento de cada pasajero.
a) Imprimir las edades de los pasajeros que se hallan en asientos impares.
b) Imprimir el número de asientos de aquellos pasajeros cuya edad sea mayor a 12 años.
c) Además, calcular:
a. El porcentaje de pasajeros mayores a 65 años con respecto al total de pasajeros.
b. Obtener e imprimir el número de asiento y la edad del mayor y el menor de los pasajeros.

si me podrían ayudar se los agradecería...
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: 66
Oro
Ha aumentado 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con problemas en Free Pascal

Publicado por dario (38 intervenciones) el 13/06/2018 16:51:17
Ejercicio Nro 4.
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
uses crt;
const
	PASAJEROS = 40;
var
	asientome,mayor,menor,asiento,c,i:integer;
	edad:array[1..PASAJEROS] of byte;
	porc:real;
begin
	clrscr;
	//llenar array

	for i:=1 to PASAJEROS do begin
		write('Edad # ',i,': ');
		readln(edad[i]);
	end;
 
	//imprimir asientos impares

	writeln;
	writeln('Edad de pasajeros en asientos impares');
	for i:=1 to PASAJEROS do begin
		if (i mod 2 <> 0) then
			write(edad[i],' ');
	end;
 
	//numero de asientos personas > 12 anios

	writeln;
	writeln('número de asientos de aquellos pasajeros cuya edad sea mayor a 12 años');
	for i:=1 to PASAJEROS do begin
		if (edad[i] > 12) then
			write(i,' ');
	end;
 
	//porcentaje de pasajeros > 65 anios

	writeln;
	for i:=1 to PASAJEROS do begin
		if (edad[i] > 65) then
			inc(c);
	end;
	porc:=(c * 100) / PASAJEROS;
	writeln('Porcentaje de pasajeros > 65 anios ',porc:4:2,'%');
 
	//edad mayor y menor

	mayor:=0;
	menor:=edad[1];
 
	for i:=1 to PASAJEROS do begin
		if edad[i] > mayor then begin
			mayor:=edad[i];
			asiento:=i;
		end;
		if edad[i] < menor then begin
			menor:=edad[i];
			asientome:=i;
		end;
	end;
 
	writeln;
	writeln('El mayor tiene ',mayor,' anios y esta en el asiento # ',asiento);
	writeln('El menor tiene ',menor,' anios y esta en el asiento # ',asientome);
 
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