Pascal/Turbo Pascal - Programación en Pascal

   
Vista:

Programación en Pascal

Publicado por Cristóbal (10 intervenciones) el 18/07/2017 21:57:21
Estimados alguien me puede ayudar con estos ejercicios?

1.Escribir un programa en Pascal que solicite 15 números, los almacene en un arreglo y luego calcule la media aritmética (promedio) de esos números.

2.Escribir un programa en Pascal que almacene en un arreglo de registros las características de cada persona: nombre, sexo, edad, peso, color de pelo, color de piel, color de ojos, nacionalidad y teléfono. Imprimir los datos de aquellos mayores de 24 años.
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

Programación en Pascal

Publicado por dario alderaan@ec-red.com (38 intervenciones) el 19/07/2017 07:02:40
Te dejo el ejercicio Nro 1 y Nro 2.
OJO: el ejercicio Nro 2 no va a compilar porque falta el ingreso de datos, pero con el codigo del procedure datosPersonas, imprime solo aquellos que son mayores que 24 anios.
Saludos.

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
uses crt;
{-----------------------------------}
procedure media;
var
	num:array[1..15] of integer;
	sum,i:integer;
	prom:real;
begin
	sum:=0;
	//llenado del arreglo con 15 numeros
	for i:=1 to 15 do begin
		write('Ingrese numero ',i,': ');
		readln(num[i]);
	end;
 
	//calculo del promedio
	for i:=1 to 15 do
		sum:=sum+num[i];
 
	prom:=sum/15;
 
	writeln;
	writeln('El promedio de los numeros es: ',prom:5:2);
end;
{-----------------------------------------------------}
procedure datosPersonas;
type
	datos = record
		nombre:string;
		sexo:char;
		edad:byte;
		peso:real;
		cpelo,cpiel,cojos:string;
		naciona:string;
		tele:string;
	end;
var
	personas:array[1..50] of datos;
	i:byte;
begin
	for i:=1 to 50 do begin
		with personas[i] do begin
			if personas[i].edad > 24 then begin
				writeln('Nombre: ',nombre);
				writeln('Sexo: ',sexo);
				writeln('Edad: ',edad);
				writeln('peso: ',peso);
				writeln('Color pelo: ',cpelo);
				writeln('Color piel: ',cpiel);
				writeln('Colo ojos: ',cojos);
				writeln('Nacionalidad: ',naciona);
				writeln('Telefono: ',tele);
			end;
		end;
	end;
end;
{-----------------------------------------------------}
begin
	clrscr;
	media;
	datosPersonas;
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