2-мерный массив на ООП, помогите исправить ошибку Опции

[NiMfetKa]

вот задание:
Заданы 3 матрицы действительных чисел 5х6, 10х8, 8х7. Определить сумму элементов в тех столбцах, которые не содержат отрицательных элементов. Сравнить результаты обработки матриц.

вот мой листинг:

Program pr7;
uses crt;
type matr=array [1..10,1..10] of integer;
ooo = object;
n,m:byte;
a:matr;
procedure Vvod(n,m:byte);
procedure vivod;
function sum_m: integer;
end;

var x,y,z:ooo;


procedure ooo.vvod;
var i,j:byte;
begin
 for i:=1 to n do
  for J;=1 to m do
  a[i,j]:=random(20);
end;


procedure ooo.vivod;
var i,j:byte;
begin
for i:=1 to n do
 begin writeln;
  for j:=1 to m do
  write(a[i,j]:6:0);
 end;
end;


function ooo.sum_m: integer;
var
  i, j: byte;
  Summ, ResSumm: integer;
  IsNegative: boolean;
begin
  ResSumm := 0;

  for j := 1 to n do
  begin
    IsNegative := false;
    Summ := 0;
    i := 0;
    while (i < m) or not IsNegative do
    begin
      if a[i,j] > 0 then
        Summ := Summ + a[i,j]
      else
        IsNegative := true;
      inc(i);
    end;
    if not IsNegative then
      ResSumm := ResSumm + Summ;
  end;
  sum_m := ResSumm;
end;



begin
 clrscr;
x.vvod(5,6);
y.vvod(10,8);
z.vvod(8,7);
 x.vivod;
 y.vivod;
 z.vivod;
writeln;
writeln;
 x.summ;
 y.summ;
 z.summ;
writeln(x.sum_m);
writeln(y.sum_m);
writeln(z.sum_m);
 readln;
end.

но почему-то после

Код

ooo = object;

выбивает 2 ошибку

[Айра]

Точку с запятой убери после object Он разве тебе не пишет, что хочет увидеть идентификаторы, а не ";" ?
(дальше не смотрела)

[NiMfetKa]

теперь 4 ошибка после

Код

procedure ooo.vvod;
var i,j:byte;

[Lapp]

теперь 4 ошибка после

Код

procedure ooo.vvod;
var i,j:byte;

После объявления процедуры? Параметры вставь, как выше.

Ты лучше приводи сам текст ошибки тоже..

[Айра]

а вызываешь как ooo.vvod(5,6)? на так нужно ж указать программе, что у процедуры есть параметры.. В выложенном здесь коде у тебя это было..

Из замеченного далее:
есть проблема с выводом (тут тоже нужно указывать значения m и n) и с sum_m.. Указывать второй раз ее тип не нужно, опять же значение m и n откуда программе брать? и обрати внимание на i и j, точнее на то, какие они принимают значения и существуют ли элементы массивов с такими номерами..



Добавлено через 1 мин.
Да.. сумма должна считаться отдельно по каждому столбцу, неимеющему отрицательных, или на всю матрицу?

Сообщение отредактировано: Айра - 9.01.2009 2:07

[NiMfetKa]

ему не нра вар почему-то...

[Айра]

И еще:
0. в цикле while нужно не or а and и (j <= m)
1. у тебя значения элементов массива всегда будут >=0..

ему не нра вар почему-то...

покажи описательную часть.. ты что-то изменила относительно варианта из 1го поста?

Добавлено через 4 мин.

сумма должна считаться отдельно по каждому столбцу, неимеющему отрицательных, или на всю матрицу?

к чему я это.. если второй вариант, то отдельные вызовы функции sum_m можно убрать и оставить только writeln'ы..

Сообщение отредактировано: Айра - 9.01.2009 2:19

[Lapp]

ему не нра вар почему-то...

Слушай, NiMfetKa, а какой у тя компилятор, если не секрет?

[Айра]

Ошибка 4 - duplicate identifier (сорри, не то скопировала, теперь исправила) - дублированны\двойной идентификатор.. [telepathy_on] проверь, не описала ли ты переменные i и j где-нибудь вне процедуры.. [telepathy_off]

Сообщение отредактировано: Айра - 9.01.2009 2:28

[volvo]

теперь 4 ошибка после

procedure ooo.vvod;
var i,j:byte;

Прав компилятор на все 100%... У тебя уже есть N, как член объекта, ты еще и как параметр метода хочешь использовать N? Нельзя. Давай другое имя либо параметру, либо члену класса...

[Lapp]

Прав компилятор на все 100%...

Ну, на 99%..
Turbo этого не требует.

[volvo]

Турбо как раз и требует, чтобы не было повторений в именах параметров... А вот FPC компилирует нормально...

[Lapp]

NiMfetKa, скажи, чем компилируешь!

Добавлено через 5 мин.

Турбо как раз и требует, чтобы не было повторений в именах параметров... А вот FPC компилирует нормально...

Хм, да, забавно...
А FP в моде TP - вроде, кушает..

[NiMfetKa]

и что должно долучиться ?

[Lapp]

Хотя в моде FP - не пропускает. Причем, раньше

[NiMfetKa]

TURBO PASCAL 7.1

[Lapp]

и что должно долучиться ?

Хороший вопрос..
Думаю - прогресс!

Добавлено через 2 мин.
Мне кажется, параметры у Vvod можно просто убрать...

[Айра]

Тоже проверила, fpc все равно, tp7.0 ругается..
А я решила проблему изгнанием n и m из членов объекта и принятием в ряды параметров процедур\функций

В общем, у меня получились такие бредни (оставляю возможность не смотреть)))

Спойлер (Показать/Скрыть)

Program pr7;
uses crt;
type matr=array [1..10,1..10] of integer;
ooo = object
a:matr;
procedure Vvod(n,m: byte);
procedure vivod(n,m: byte);
function sum_m(n,m: byte): integer;
end;

var x,y,z:ooo;


procedure ooo.vvod;
var i,j:byte;
begin
 for i:=1 to n do
  for J:=1 to m do
  a[i,j]:=random(20);
end;


procedure ooo.vivod;
var i,j:byte;
begin
for i:=1 to n do
 begin writeln;
  for j:=1 to m do
  write(a[i,j]:6);
 end;
writeln;
end;

function ooo.sum_m;
var
  i, j: byte;
  Summ, ResSumm: integer;
  IsNegative: boolean;
begin
  ResSumm := 0;

  for i := 1 to n do
  begin
    IsNegative := false;
    Summ := 0;
    j := 1;
    while (j <= m) and not IsNegative do
    begin
      if a[i,j] > 0 then
        Summ := Summ + a[i,j]
      else
        IsNegative := true;
      inc(j);
    end;
    if not IsNegative then
      ResSumm := ResSumm + Summ;
  end;
  sum_m := ResSumm;
end;

begin
  clrscr;
  randomize;
  x.vvod(5,6);
  y.vvod(10,8);
  z.vvod(8,7);
  x.vivod(5,6);
  y.vivod(10,8);
  z.vivod(8,7);
  writeln;
  writeln;
  writeln(x.sum_m(5,6));
  writeln(y.sum_m(10,8));
  writeln(z.sum_m(8,7));
  readln;
end.

[NiMfetKa]

а где третий массив? и надо искать сумму строк...

[Айра]

а что с третим массивом? за основу брала твой вариант.. там было только три вывода.. да и спрашивала я тебя уже, что именно надо делать..

к тому же:

пост #1

Определить сумму элементов в тех столбцах

теперь

и надо искать сумму строк...

в такой ситуации моя телепатия бессильна..