нужно переделать в объектно-ориентированное программирование

[Андрей11111]

begin
  writeln ('Программа умножает матрицу A на матрицу B');
  write('Введите число строк 1-й матрицы - A (<=50)--> ');readln;
  write('Введите число столбцов 1-й матрицы - A (<=50)--> ');readln;
  write('Введите число столбцов 2-й матрицы - B (<=50)--> ');readln;
  writeln('Введите 1-ю матрицу (A):');
  for ii:=1 to nn do
  for jj:=1 to kk do
    begin
      write('Введите A[',ii,',',jj,'] --> ');
      readln(AA[ii,jj]);
    end;

  writeln('Введите 2-ю матрицу (B):');
  for ii:=1 to kk do
  for jj:=1 to mm do
   begin write('Введите B[',ii,',',jj,'] --> '); readln(BB[ii,jj]);
   end;

  {Вычисляем элементы матрицы-результата}

    for ii:=1 to nn do
    for jj:=1 to mm do
      begin
        Summa:= 0;
        for ll:= 1 to kk do
          Summa:= Summa + AA[ii,ll]*BB[ll,jj];
          CC[ii,jj] := Summa;
      end;
{Выводим матрицу-результат:}
  writeln('---- Результат: -----');
  for ii:=1 to nn do
    begin
      for jj:=1 to mm do
        write(CC[ii,jj]:8:2);
      writeln;
    end;
readln;
end.

[s-andriano]

Ну так и создайте объект с тремя методами: ввод данных, вычисления, печать.

[Андрей11111]

я не умею, помоги пожалуйста

[s-andriano]

Я не вижу никаких собственных попыток что-то сделать.
Код, судя по всему, писал не ты.
Значит, оно тебе не нужно.

[kuy]

Андрей11111, первое - где описание переменных? Без описания переменных сложновато как-то переделать. Второе - программа не работает так как нужно, как можно не рабочую программу переделать?

  writeln ('Программа умножает матрицу A на матрицу B');
  write('Введите число строк 1-й матрицы - A (<=50)--> ');readln;
  write('Введите число столбцов 1-й матрицы - A (<=50)--> ');readln;
  write('Введите число столбцов 2-й матрицы - B (<=50)--> ');readln;
  writeln('Введите 1-ю матрицу (A):');

"readln;" - просто ожидает ENTER, и ничего ни к чему не присваивает, если тебе нужно ввести значение переменной "ii" - пиши так: readln(ii);
Если сделаешь рабочую программу, которую я себе скопирую и она будет работать, сделаю объект.

[Андрей11111]

так что нужно сделать?

[BDA]

Дописать представленную программу до рабочего состояния.
Тогда kuy согласится помочь с ООП.

[Андрей11111]

я не смогу. у меня ещё второй вариант этой задачи:
Program Umnoj2;
Const Max=50;
Var AA,BB,CC: array [1..Max,1..Max] of Double;
{to est' mesto dlya matric videlyaem s zapasom}
ii,jj,kk,nn,mm,ll : integer; Summa: double;
begin
writeln ('Programma umnozhaet matricu A na matricu B');
write('Vvedite chislo strok 1-y matricy - A (<=50)--> ');readln(NN);
write('Vvedite chislo stolbcov 2-y matricy - A (<=50)--> ');readln(KK);
write('Vvedite chislo stolbcov 2-y matricy - B (<=50)--> ');readln(MM);
writeln('Vvedite 1-yu matricu (A):');
for ii:=1 to nn do
for jj:=1 to kk do
begin
write('Vvedite A[',ii,',',jj,'] --> ');
readln(AA[ii,jj]);
end;

writeln('Vvedite 2-yu matricu (B):');
for ii:=1 to kk do
for jj:=1 to mm do
begin write('Vvedite B[',ii,',',jj,'] --> '); readln(BB[ii,jj]);
end;

{Vychislyaem elementy matricy-rezul'tata}

for ii:=1 to nn do
for jj:=1 to mm do
begin
Summa:= 0;
for ll:= 1 to kk do
Summa:= Summa + AA[ii,ll]*BB[ll,jj];
CC[ii,jj] := Summa;
end;
{Vyvodim matricy-rezul'tat}
writeln('---- rezul'tat: -----');
for ii:=1 to nn do
begin
for jj:=1 to mm do
write(CC[ii,jj]:8:2);
writeln;
end;
readln;
end.

[kuy]

Андрей11111, апостроф для вывода в консоль пишется с двума штрихами (по крайней мере в моём компиляторе, мб в твоём с одной, но я сомневаюсь), вот: не writeln('---- rezul'tat: -----');, а writeln('---- rezul''tat: -----');
Ну а в целом второй вариант программы очень даже не плохой. Если нужны комментарии обращайся, а вкратце: я создал объект, в поля скопировал твои переменные, 3 метода(ввод данных, вычисления, печать), тоже в них твой код скопировал и вызвал в программе.

Const Max=50;

type
 Matrix = object
   public
    kk,nn,mm: integer;
    Summa: double;
    AA,BB,CC: array [1..Max,1..Max] of Double;
    procedure input;
    procedure calculations;
    procedure output;
   end;

procedure Matrix.input;
var ii,jj:integer;
begin
 write('Vvedite chislo strok 1-y matricy - A (<=50)--> '); readln(NN);
 write('Vvedite chislo stolbcov 2-y matricy - A (<=50)--> '); readln(KK);
 write('Vvedite chislo stolbcov 2-y matricy - B (<=50)--> '); readln(MM);
 writeln('Vvedite 1-yu matricu (A):');
 for ii:=1 to nn do
  for jj:=1 to kk do
   begin
    write('Vvedite A[',ii,',',jj,'] --> ');
    readln(AA[ii,jj]);
   end;
 writeln('Vvedite 2-yu matricu (B):');
 for ii:=1 to kk do
  for jj:=1 to mm do
   begin
    write('Vvedite B[',ii,',',jj,'] --> ');
    readln(BB[ii,jj]);
   end;
end;

procedure Matrix.calculations;
var ii,jj,ll:integer;
begin;
 for ii:=1 to nn do
  for jj:=1 to mm do
   begin
    Summa:= 0;
    for ll:= 1 to kk do
     Summa:= Summa + AA[ii,ll]*BB[ll,jj];
    CC[ii,jj] := Summa;
   end;
end;

procedure Matrix.output;
var ii,jj:integer;
begin
 writeln('---- rezul''tat: -----');
 for ii:=1 to nn do
  begin
   for jj:=1 to mm do
    write(CC[ii,jj]:8:2);
   writeln;
  end;
end;

var MyMatrix:Matrix;
begin
 writeln ('Programma umnozhaet matricu A na matricu B');
 MyMatrix.input;
 MyMatrix.calculations;
 MyMatrix.output;
 readln;
end.

[Андрей11111]

спасибо большое))))
можешь ещё метод крамера переделать под ООП?)
program Kramer;
uses crt;
type
Tmass=array[1..20] of real;
Tmatrix=array[1..20] of Tmass;
procedure Per(k,n:integer;var a:Tmatrix;var p:integer);
var z:Real;j,i:integer;
begin
z:=abs(a[k,k]);
i:=k;
p:=0;
for j:=k+1 to n do
begin
if abs(a[j,k])>z then
begin
z:=abs(a[j,k]);
i:=j;
p:=p+1;
end;
end;
if i>k then
for j:=k to n do
begin
z:=a[i,j];
a[i,j]:=a[k,j];
a[k,j]:=z;
end;
end;
function Znak(p:integer):integer;
begin
if p mod 2=0 then
Znak:=1 else Znak:=-1;
end;
procedure Opr(n:integer;a:tmatrix;var det:real);
var k,i,j,p:integer;r:real;
begin
det:=1.0;
for k:=1 to n do
begin
if a[k,k]=0 then Per(k,n,a,p);
det:=znak(p)*det*a[k,k];
for j:=k+1 to n do
begin
r:=a[j,k]/a[k,k];
for i:=k to n do
begin
a[j,i]:=a[j,i]-r*a[k,i];
end;
end;
end;
end;
var a:Tmatrix;
c:array[1..20] of Tmatrix;
b,x:Tmass;
det,det1:real;
n,k,j,i:integer;
begin
clrscr;
write('Порядок системы n=');
readln(n);
writeln('Введите коэффициенты системы:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
readln;
writeln('Введите свободные члены:');
for i:=1 to n do
read(b[i]);
readln;
clrscr;
writeln('Расширенная матрица системы:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:7:2);
write(b[i]:9:2);
writeln;
end;
Opr(n,a,det);{определитель системы исходной}
for i:=1 to n do
begin
for k:=1 to n do
begin
for j:=1 to n do
c[i][k,j]:=a[k,j];
c[i][k,i]:=b[k];
end;
Opr(n,c[i],det1);
if(det=0)and(det1=0) then
begin
writeln('Система не определена!');
readln;
exit;
end;
if(det=0)and(det1<>0) then
begin
writeln('Система не имеет решений!');
readln;
exit;
end;
x[i]:=det1/det;{корень}
end;
writeln('Корни сиcтемы:');
for i:=1 to n do
writeln('x',i,'=',x[i]:7:3);
readln
end.