Title: EJEMPLO DEL TEMA 6
1EJEMPLO DEL TEMA 6
2- Consumo (C) y renta mensual (RM) de 100 familias
(expresadas en 104 ) - Diseñar e implementar un programa en Pascal que
obtenga las medias y desviaciones tÃpicas de las
distribuciones marginales
C RM 15 5 35 45
30 10 15
40 5 20 25
50 15 5 5
3datos_tabla.txt
C RM 15 5 35 45
30 10 15
40 5 20 25
50 15 5 5
Calculo medias y d.tipicas marginales
Leer datos de fichero
Calcular media marginal de C
Calcular d.tipica marginal de C
Calcular media marginal de RM
Calcular d.tipica marginal de RM
4datos_tabla.txt
C RM 15 5 35 45
30 10 15
40 5 20 25
50 15 5 5
Calculo medias y d.tipicas marginales
Leer datos de fichero
Calcular sumas de frecuencias de todas columnas
Calcular media marginal de C
Calcular suma de una col.
Calcular d.tipica marginal de C
Aplicar fórmula de la media a las frecuencias y
valores de C
Calcular media marginal de RM
Mostrar la media
Calcular d.tipica marginal de RM
5datos_tabla.txt
C RM 15 5 35 45
30 10 15
40 5 20 25
50 15 5 5
Calculo medias y d.tipicas marginales
Leer datos de fichero
Calcular media marginal de C
Calcular d.tipica marginal de C
Aplicar fórmula de la d. tipica a las frecuencias
y valores de C
Calcular media marginal de RM
Calcular d.tipica marginal de RM
6datos_tabla.txt
C RM 15 5 35 45
30 10 15
40 5 20 25
50 15 5 5
Calculo medias y d.tipicas marginales
Leer datos de fichero
Calcular sumas de frecuencias de todas filas
Calcular media marginal de C
Calcular suma de una fila.
Calcular d.tipica marginal de C
Aplicar fórmula de la media a las frecuencias y
valores de RM
Calcular media marginal de RM
Mostrar la media
Calcular d.tipica marginal de RM
7datos_tabla.txt
C RM 15 5 35 45
30 10 15
40 5 20 25
50 15 5 5
Calculo medias y d.tipicas marginales
Leer datos de fichero
Calcular media marginal de C
Calcular d.tipica marginal de C
Calcular media marginal de RM
Aplicar fórmula de la d. tipica a las frecuencias
y valores de RM
Calcular d.tipica marginal de RM
8- Maria del Mar LeeDatosdeFichero
- Yasin SumaFilasdeMatriz
- Alex SumaColumnasdeMatriz
- Sonia CalculaMediadeVector
- Maria Teresa CalculaDTipicadeVector
- Maria José Ensambla el programa.
9- program experimento
- const
- carray 1..4 of integer (15,25,35,45)(valore
s de C) - RMarray 1..3 of integer (30,40,50)(valores
de RM) - var
- filaarray 1..4 of integer(guarda suma
columnas) - columnaarray 1..3 of integer(guarda suma
filas) - fichtext(fichero de datos)
- tablaarray1..3,1..4 of integer (guarda las
frecuencias de la distribucion) - m1,m2,dt1,dt2real(medias y desv.tipicas
marginales)
10- (Declaracion de procedimientos)
- procedure lee_datos (var tabarray of array of
integer var ficherotext) - (lee datos del fichero y los devuelve en tab)
- procedure suma_filas (tabarray of array of
integer var col array1..3 of integer) - (recibe la tabla y una columna vacia, suma las
filas y las guarda en la columna) - Var i,jinteger
- Begin
- For ilow(tab) to high(tab) do
- For j low(tab0) to high(tab0) do
- coli coli tabi,j
- End
11- procedure suma_columnas (tabarray of array of
integer var filarray 1..4 of integer) - (recibe la tabla y una fila vacia,suma las
columnas y las guarda en la fila) - Var i,j integer
- BEGIN
- For i low(tab0) to high(tab0)) do
- For j low(tab) to high(tab) do
- fili fili tabj,i
- END
12- function media_datos (vfarray of integervx
array of real)real - (recibe las frecuencias (vf) y los valores (vx)y
devuelve la media como un numero real) - function dsviacion_tipica (vf,vxarray of
integer mediareal)real - (recibe las frecuencias(vf) y los valores (vx) y
la media y devuelve la desviacion tipica como un
numero real)
13- (Programa principal)
- begin
- assign (fich,'datos_tabla.txt')
- lee_datos (tabla, fich)
- suma_columnas (tabla,fila)
- suma_filas (tabla,columna)
- m1 media_datos(fila,c)
- m2 media_datos(columna,rm)
- dt1 desviacion_tipica (fila,c,m1)
- dt2 desviacion_tipica (columnas,rm,m2)
- writeln ('La media del costo es ', m1)
- writeln ('La media de rm es ',m2)
- writeln ('La desviacion tipica del costo es
',dt1) - writeln ('La desviacion tipica de rm es ',dt2)
- end.