Algoritmia - ayudaaa porfa es mi final

 
Vista:

ayudaaa porfa es mi final

Publicado por rony daniel (1 intervención) el 27/06/2017 17:55:15
1. Se ha seleccionado N números de personas para realizar una encuesta, en un proceso repetitivo, se debe ingresar por cada uno la siguiente información:
- Grado de instrucción (Primaria, Secundaria, Superior)
- Edad
Se deberá mostrar el promedio de las edades, la mayor edad y la cantidad de personas por cada grado de instrucción.
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: 100
Oro
Ha mantenido su posición en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

ayudaaa porfa es mi final

Publicado por dario (18 intervenciones) el 28/06/2017 07:24:58
Te dejo el codigo en pascal.

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
uses crt;
var
	x,y,z,mayor,suma,n,i:integer;
	edad:array[1..100] of byte;
	grado:array[1..100] of char;
	prom:real;
begin
	clrscr;
	suma:=0;
	prom:=0;
	mayor:=0;
	x:=0;
	y:=0;
	z:=0;
 
	write('Cantidad de personas encuestadas: ');
	readln(n);
 
	//ingreso de datos
	for i:=1 to n do begin
		write('Grado de instruccion [P]=Primaria, [S]=Secundaria, [U]=sUperior: ');
		readln(grado[i]);
		write('Edad de la persona: ');
		readln(edad[i]);
	end;
 
	//promedio y otros
	for i:=1 to n do begin
		case grado[i] of
			'P':inc(x);
			'S':inc(y);
			'U':inc(z);
		end;
		suma:=suma + edad[i];
		if edad[i] > mayor then
			mayor:=edad[i];
	end;
	prom:=suma/n;
	writeln;
	writeln('Promedio de edades: ',prom:4:2);
	writeln('La edad mayor es: ',mayor);
	writeln('Grado de instruccion primaria ',x,' persona(s)');
	writeln('Grado de instruccion secundaria ',y,' persona(s)');
	writeln('Grado de instruccion superior ',z,' persona(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
1
Comentar