[Sevi4_by]

Класс для представления матриц целых чисел. Размер матрицы произволен. Реализовать операции над матрицами: сложение, умножение матрицы на скаляр, транспонирование, вычисление определителя (в случае, если это возможно).

[lmikle]

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

Класс для представления матриц целых чисел. Размер матрицы произволен. Реализовать операции над матрицами: сложение, умножение матрицы на скаляр, транспонирование, вычисление определителя (в случае, если это возможно).

Ну и в чем проблема. ООП никак не связано с типом интерфейса. Тебе просто надо, желательно в отдельном модуле, создать класс, поддерживающий/реализуюший то, что от тебя требуют. Ну а в консоли просто использовать этот класс.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

unit MyMatrixClass;   interface   type   TMyMatrixClass = class   private   ..   public     ...     property Values[I : Integer; J : Integer] : Integer read Get write Set;     ...   end;   implementation     ...   end.

[Sevi4_by]

Я прописал все процедуры, но не понимаю как вывести в консоль матрицу

[angvelem]

Как всегда используя Write/WriteLn.

[Sevi4_by]

Код:

1 2 3 4 5 6 7 8 9 10 11

var mas: array [0..n] of integer; i,j: mas; begin for i:=0 to i<n do inc(i); writeln(); gor j:=0 to j<m do inc(j); writeln(mas[i][j]); end.

MAD: Учимся правильно оформлять код!

[NumLock]

[Sevi4_by]

должна быть матрица произвольная и размер должен вводиться с клавиатуры, в в этом загвоздка

[NumLock]

[Sevi4_by]

Огромное спасибо! Вы лучший

[Sevi4_by]

Подскажите, как правильно оформить меню, в этом проекте?
Т.е. программа запускается, я вывожу матрицу и мне надо выбрать действия, которые нужно с ней сделать, как это будет выглядеть?
Понимаю, что уже надоел, но дело срочное очень

[NumLock]

запрашивай номер действия через Readln

[Sevi4_by]

Т.е. Я прописываю команды в модуле, а в главной программе просто вызываю их через readln?

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Writeln('1 - add'); Writeln('2 - mul'); Writeln('3 - transp'); Writeln('4 - calc determ'); Write('Enter func num:'); Readln(op); case op of   0: begin     // сложение   end;   1: begin     // умножение   end;   2: begin     // транспонирование   end;   3: begin    // вычисление определителя   end; end;

[Sevi4_by]

Тут должен быть один класс для выполнения действий? Например TMatrix и в нем должны быть прописаны мои действия с ней?

[Thrasher]

Очень древняя книга, но в ней хорошо описано как делать консольные приложения. Ну и всякое такое тоже интересно посмотреть.