Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2012, 20:36   #1
Андрей11111
 
Регистрация: 22.05.2012
Сообщений: 7
По умолчанию 2 метода

Мне нужно написать 2 программы в паскаль, метод Крамера и умножение матрицы на матрицу, используя объектно-ориентированное програмирование. Помогите пожалуйста...
Андрей11111 вне форума Ответить с цитированием
Старый 28.05.2012, 21:07   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

С потолка:
Код:
type
 mat=object
   public
    m:array[1..10,1..10] of integer;
    procedure outta;
    function Mul(o:mat):mat;
    constructor Create;
 end;
{ mat }

constructor mat.Create;
var i,j:integer;
begin  for i:=1 to 10 do for j:=1 to 10 do m[i,j]:=random(10);end;


function mat.Mul(o: mat): mat;
var i,j,k:integer; a:mat;
begin
 a:=mat.Create;  FillChar(a.m,100*sizeof(integer),0);
 for i:=1 to 10 do
  for j:=1 to 10 do
   for k:=1 to 10 do
     a.m[i,j]:=a.m[i,j]+o.m[j,k]*m[k,j];
 Mul:=a;
end;


procedure mat.outta;
var i,j:integer;
begin for i:=1 to 10 do begin for j:=1 to 10 do begin write(m[i,j]:5);end; writeln;end;writeln;end;

var q,w,e:mat;

begin
 q:=mat.Create; w:=mat.Create;
 q.outta; w.outta;
 e:=q.Mul(w);
 e.outta;
 q.Free;w.Free;e.Free;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
С потолка, и не уверен что верно перемножение сделал, но матека не моя стихия.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.05.2012, 21:10   #3
Андрей11111
 
Регистрация: 22.05.2012
Сообщений: 7
По умолчанию

выдаёт, что ожидался идентификатор
Андрей11111 вне форума Ответить с цитированием
Старый 28.05.2012, 21:35   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну дык значит подожди. Скоро идентификатор приедет )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отмена вызова метода peplenko Общие вопросы C/C++ 2 12.04.2011 13:52
метода Гауса Виктория Нисова Visual C++ 2 01.04.2011 15:02
Вызов метода из метода kuzjma PHP 8 10.12.2010 02:38
реализация симплекс метода rasmus_rasmus_87 Помощь студентам 7 28.05.2009 06:54
выход с метода TaTT DoGG Общие вопросы .NET 2 02.03.2009 17:04