ПАСКАЛЬ РАБОТА С МАТРИЦАМИ!

[as1212]

Здраствуйте, помоготе пожалуйста очень нужно решить

Найдите средние геометрические из интервала [10; 50] элементов каждого столбца матрицы Х (4,5). Результат запишите в массив В.

Вот мой код но он не выдает тго, чого нужно

PROGRAM O;
USES CRT;
CONST M=4;N=5;
VAR X:ARRAY[1..M,1..N] OF REAL; B:ARRAY[1..M] OF REAL;
    SR:ARRAY[1..N] OF REAL; I,J,K:INTEGER; P,sg:REAL; H:CHAR;
BEGIN CLRSCR;
 FOR I:=1 TO M DO
  BEGIN WRITELN('ВВЕДИТЕ ',N,' ЧИСЕЛ ',I,'-ОГО РЯДА');
   FOR J:=1 TO N DO
    READ (X[I,J]);  END;
WRITELN(' ':20,'GIVVEN MATRIX');
FOR I:=1 TO M DO  BEGIN
 FOR J:=1 TO N DO  WRITE(X[I,J]:5:1);  WRITELN; END;
  {VICHISLENIE SREDNIH GEOMETRICHESKIH}
 FOR J:=1 TO M DO
   BEGIN
    B[J]:=X[1,J]; P:=1; K:=0;
    FOR I:= 1 TO N DO
   if (B[J]> 10) and (B[J]<50) then
   BEGIN  P:=P*B[J]; K:=K+1; sg:=exp(ln(p)/k); B[J]:=sg; END;
  END;
 FOR J:=1 TO M DO
WRITELN(B[J]);
 FOR J:=1 TO M DO
WRITELN(B[J]);
H:=READKEY
END.

[rubius2008]

вот, проверяйте

PROGRAM O;
USES CRT;
CONST M=4;N=5;
VAR X:ARRAY[1..M,1..N] OF REAL; B:ARRAY[1..M] OF REAL;
SR:ARRAY[1..N] OF REAL; I,J,K:INTEGER; P,sg:REAL; H:CHAR;
BEGIN CLRSCR;
  FOR I:=1 TO M DO
  BEGIN WRITELN('ВВЕДИТЕ ',N,' ЧИСЕЛ ',I,'-ОГО РЯДА');
            FOR J:=1 TO N DO READ (X[I,J]); 
  END;
  WRITELN(' ':20,'GIVVEN MATRIX');
  FOR I:=1 TO M DO BEGIN
    FOR J:=1 TO N DO WRITE(X[I,J]:5:1); 
    WRITELN; 
  END;
{VICHISLENIE SREDNIH GEOMETRICHESKIH}
FOR J:=1 TO M DO BEGIN
 P:=1; K:=0;
 FOR I:= 1 TO N DO
  if (X[i,J]>=10) and (X[i,J]<=50) then
  BEGIN P:=P*X[i,J]; K:=K+1; END;
 if k<>0 then B[J]:=exp(ln(p)/k) else B[J]:=0;  
END;

FOR J:=1 TO M DO
WRITELN(B[J]);
H:=READKEY
END.

[as1212]

Вот что выбивает

http://programmersforum.ru/attachmen...1&d=1318107574

http://programmersforum.ru/attachmen...1&d=1318107574

[rubius2008]

пишет что вложения нет

[as1212]

непонял, обьясните пожалуйста!

[rubius2008]

я про ссылки в предыдущем сообщении

[as1212]

в сторочке if (X[i,J]>=10) and (X[i,J]<=50) then пишет что выход за граници диапазона измениния индекса 1..4

[TinMan]

Сообщение от as1212

в сторочке if (X[i,J]>=10) and (X[i,J]<=50) then пишет что выход за граници диапазона измениния индекса 1..4

Поменяй местами верхние пределы циклов - внешний до N, а внутренний до M, и еще граница B должна быть N, и цикл вывода тоже до N.

2 rubius2008:
я бы не рекомендовал тут присваивать 0 в случае отсутствия чисел из заданного диапазона в столбце, лучше присвоить -1. А при выводе, наткнувшись на отрицательное, выдавать сообщение, что мол нет таких.

CONST
  M=4;
  N=5;
  x1= 10;
  x2= 50;
VAR
  X:ARRAY[1..M,1..N] OF REAL;
  B:ARRAY[1..N] OF REAL;
  SR:ARRAY[1..N] OF REAL;
  I,J,K:INTEGER;
  P,sg:REAL;
  H:CHAR;

BEGIN
  FOR I:=1 TO M DO BEGIN
    WRITELN('ВВЕДИТЕ ',N,' ЧИСЕЛ ',I,'-ОГО РЯДА');
    FOR J:=1 TO N DO x[i,j]:= random*100;  //READ (X[I,J]);
  END;
  WRITELN(' ':20,'GIVVEN MATRIX');
  FOR I:=1 TO M DO BEGIN
    FOR J:=1 TO N DO WRITE(X[I,J]:7:2);
    WRITELN;
  END;
  {VICHISLENIE SREDNIH GEOMETRICHESKIH}
  FOR J:=1 TO N DO BEGIN
    P:=1; K:=0;
    FOR I:= 1 TO M DO
      if (x1<=X[i,J]>) and (X[i,J]<=x2) then BEGIN
      P:=P*X[i,J];
      K:=K+1;
    END;
    if k<>0 then B[J]:=exp(ln(p)/k) else B[J]:= -1;
  END;

  FOR J:=1 TO N DO
    if b[j]<0 then writeln('нет чисел из заданного диапазона в столобце ',j)
    else WRITELN(B[J]:7:2);
  readln
END.

[JUDAS]

Папа, поясни что такое

if (x1<=X[i,J]>) and (X[i,J]<=x2) then BEGIN

и ещо одно пап, k ты проверил, не спорю, а если p=0 то всё будет типо нормально ?

if k<>0 then B[J]:=exp(ln(p)/k) else B[J]:= -1;

-----------
Руки или голова, или проффесионализм зашкаливает?

[rubius2008]

Сообщение от as1212

в сторочке if (X[i,J]>=10) and (X[i,J]<=50) then пишет что выход за граници диапазона измениния индекса 1..4

поменяйте в описание массива Х местами M и N, и все

VAR X:ARRAY[1..N,1..M] OF REAL;

2 TinMan чем вызвана данная рекомендация? В любом случае вряд ли когда-либо получится 0 при средне геометрическом в данной постановке задачи