задачка с объектами

[LyaLyaLya]

ПЛИЗ, помогите разобраться!!!!

исправте мну ошибочку, оч прошу, завтра сдавать последнюю лабу....

Требование к выполнению работы:
1. Описать объект, определяющий одномерный или двумерный массив , размерность данного массива, процедуры и\или функции, реализирующие ввод-вывод и обработку массива согласно заданию.
2. В основной программе создать два-три объекта и выполнить их обработку.

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


вот что я накатала:

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

var x,y,z:ooo;
i,j:integer;

procedure ooo.vvod;
var i,j:byte;
begin
 for i:=1 to n do
  for J;=1 to m do
  x[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(x[i,j]:6:0);
 end;
end;

procedure ooo.sum_m;
var i,j:byte;
begin
summ:=0;
for j:=1 to n do 
for i:=1 to m do
 begin
 if x[i,j]>0 then
 summ[i]:=summ[i]+x[i,j];
 write(summ:6:0);
 end;
end;

begin 
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;
end.

[MalexG]

Ваша ошибка в том, что не совсем правильно представляете, что такое объект!
Объект - это динамическая структура со своими полями (данными) и методами (процедурами и функциями). Т.к. это динамическая структура, то под нее необходимо выделять память, а после работы с этой структурой память необходимо освободить. Для этих целей служат специальные методы, так называемые "конструктор" объекта и "деструктор". Остальные методы применяются по назначению, ради которого и создан объект.
Рекомендую что-нибудь почитать, это очень серьезная тема.

[Sasha_Smirnov]

А код такой солидный!

[MalexG]

Исправленный вариант. Извините переменные обозвал по-своему.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TArr = array of array of integer;
  TMatrix = object
    ColCount: byte;   // Количество столбцов в массиве
    RowCount: byte;   // Количество строк в массиве
    Arr: TArr;        // Динамический массив
    procedure Init(AColCount, ARowCount: byte);
    procedure GetMatrix;
    function GetSumm: integer;
    procedure Done;
end;

var
  Matrix1, Matrix2, Matrix3: TMatrix;

procedure TMatrix.Init(AColCount, ARowCount: byte);
var
  i,j: byte;
begin
 ColCount := AColCount;
 RowCount := ARowCount;       
 SetLength(Arr, RowCount, ColCount);  // Создание динамического массива
 for i := 0 to RowCount-1 do
   for j := 0 to ColCount-1 do
     Arr[i,j] := random(100) - 50;
end;

procedure TMatrix.GetMatrix;
var
  i,j: byte;
begin
  writeln;
  for i := 0 to RowCount-1 do
  begin
    for j := 0 to ColCount-1 do
      write(Arr[i,j], #9);
    writeln;
  end;
end;

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

  for j := 0 to ColCount-1 do
  begin
    IsNegative := false;
    Summ := 0;
    i := 0;
    while (i < RowCount) or not IsNegative do
    begin
      if Arr[i,j] > 0 then
        Summ := Summ + Arr[i,j]
      else
        IsNegative := true;
      inc(i);
    end;
    if not IsNegative then
      ResSumm := ResSumm + Summ;
  end;
  GetSumm := ResSumm;
end;

procedure TMatrix.Done;
begin
  // Освобождение памяти, занимаемой динамическим массивом
  Arr := nil;    
end;

begin 
  randomize;

  Matrix1.Init(5,6);
  Matrix2.Init(10,8);
  Matrix3.Init(8,7);

  Matrix1.GetMatrix;
  Matrix2.GetMatrix;
  Matrix3.GetMatrix;

  writeln;
  writeln;

  writeln(Matrix1.GetSumm);
  writeln(Matrix2.GetSumm);
  writeln(Matrix3.GetSumm);

  Matrix1.Done;
  Matrix2.Done;
  Matrix3.Done;

  readln;
end.

[LyaLyaLya]

хм, а как сделать без динамического объекта? а то мы их еще не учили...

[MalexG]

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

хм, а как сделать без динамического объекта? а то мы их еще не учили...

То, что вы выложили и есть статический вариант объекта. Я выложил рабочий вариант вашей задачи. Внес коррективы и т.п.

[MalexG]

Если вас смущает использование динамического массива, используйте обычный массив. В этом случае процедура Done не потребуется.

[ul_m]

хм, а где взять модуль SysUtils и что такое {$APPTYPE CONSOLE}??

[maladoy]

консольное приложение!!!!

[ul_m]

с 17 ошибкой