محدد مصفوفة

get the algorithm from

http://mathworld.wolfram.com/Determinant.html

يا أخ ibr_exn أنا أعرف الطريقة الرياضية بس ما عرفت أكتبها كبرنامج و شكراً لك

هذا المثال عن عن مصفوفة تحدد اليوم

procedure TForm1.Button1Click(Sender: TObject);
var
adate:tdatetime;
days:array[1..7]of string;//تعريف المصفوفة
begin
days[1]:='الأحد';
days[2]:='الاثين';
days[3]:='الثلاثاء';
days[4]:='اللاربعاء';
days[5]:='الخميس';
days[6]:='الجمعة';
days[7]:='السبت';
adate:=strtodate(Edit1.text);
Label1.Caption:=days[dayofweek(adate)];
end

:rolleyes: :rolleyes: :rolleyes:

اخي سيف الدين يبدو ان هناك سوء فهم

الرجل يريد برنامج يحسب الكمية الرياضية Determinant لاي مصفوفة مربعة

uses crt;
const n=2; { size of a matrix }
type matr=array[1..n,1..n] of longint;
var a,b:matr;
    i,j,dt:longint;
procedure PrintMatr(m:matr;n:integer);
{ Procedure of a conclusion of a matrix on the screen}
var i,j:integer;
  begin
  for i:=1 to n do
    begin
    for j:=1 to n do
      write(m[i,j]:3);
    writeln;
    end;
  end;
procedure GetMatr(a:matr; var b:matr; m,i,j:integer);
{Deletion from a matrix of a line and column }
var ki,kj,di,dj:integer;
  begin
  di:=0;
  for ki:=1 to m-1 do
    begin
    if (ki=i) then di:=1;
    dj:=0;
    for kj:=1 to m-1 do
      begin
      if (kj=j) then dj:=1;
      b[ki,kj]:=a[ki+di,kj+dj];
      end;
    end;
  end;
Function Determinant(a:matr;n:integer):longint;
{ Calculation of the determinant of a matrix }
var i,j,d,k:longint;
    b:matr;
  begin
  d:=0; k:=1;
  if (n=1) then
    begin
    writeln('Determinant Cann''t run. N=',n); halt;
    end;
  if (n=1)
    then d:=a[1,1]
  else if (n=2)
    then d:=a[1,1]*a[2,2]-a[2,1]*a[1,2]
  else { n2 }
    for i:=1 to n do
      begin
      GetMatr(a,b,n,i,1);
      {writeln('i=',i,' a[',i,',1]=',a[i,1]);
      PrintMatr(b,n-1);}
      d:=d+k*a[i,1]*Determinant(b,n-1);
      k:=-k;
      end;
  Determinant:=d;
  end;
begin
{ Filling of a matrix by random numbers }
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
  a[i,j]:=random(5);
{ Seal of an initial matrix }
PrintMatr(a,n);
{ Calculation and conclusion of the determinant }
dt:=Determinant(a,n);
writeln('=========');
writeln('Determinant=',dt);
end.

اقتباس

اخي سيف الدين يبدو ان هناك سوء فهم

الرجل يريد برنامج يحسب الكمية الرياضية Determinant لاي مصفوفة مربعة

:(

ربما هناك سوء فهم :(

شكراً romanof على كل حال :lol: