Pascal/Turbo Pascal - ayuda con matrices en pascal

   
Vista:

ayuda con matrices en pascal

Publicado por Jonathan (2 intervenciones) el 01/12/2007 23:07:03
Necesito ayuda urgente debo presentar este taller para arreglar unas notas de un curso y me piden lo siguiente, no soy muy allegado a la programacion y sé muy poco de pascal

Desarrolle un programa para calcular la matriz que resulta de restar, a cada elemento de la matriz dada, la media aritmética de su fila, es decir :

1 2 3 4
5 6 7 8
11 2 3 6
14 5 1 10
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

RE:ayuda con matrices en pascal

Publicado por Jonathan (2 intervenciones) el 01/12/2007 23:40:24
PROGRAM EJER95;
USES winCRT;
CONST arr_num:ARRAY [1..4,1..4] of INTEGER=( (1,2,3,4),(5,6,7,8),(11,2,3,6),(14,5,1,10));

{se definen las variables}

VAR i,j,prom:INTEGER;
prom1, prom2,prom3,prom4:real;

{aqui se define la matriz y es desplegada en pantalla}

BEGIN
ClrScr;
FOR i:=1 TO 4 DO
FOR j:=1 TO 4 DO
arr_num[i,j]:=arr_num[i,j];
FOR i:=1 TO 4 DO
BEGIN
FOR j:=1 TO 4 DO
WRITE(arr_num[i,j]:4);
WRITELN (' ');
END;

{aqui se calcula el promedio por filas de la matriz}

FOR i:=1 TO 4 DO
BEGIN
FOR j:=1 TO 4 DO
BEGIN
IF i=1 THEN prom1:= prom1 + (arr_num[1,j])/4;
IF i=2 THEN prom2:= prom2 + (arr_num[2,j])/4;
IF i=3 THEN prom3:= prom3 + (arr_num[3,j])/4;
IF i=4 THEN prom4:= prom4 + (arr_num[4,j])/4;

END;
END;

WRITELN ('La media arimética de la fila 1 es: ',prom1:2:1);
WRITELN ('La media arimética de la fila 2 es: ',prom2:2:1);
WRITELN ('La media arimética de la fila 3 es: ',prom3:2:1);

eso es lo k tengo pero no se como crear la matriz resultante de restar a cada termino el promedio de su respectiva fila.

help !
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