• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 30 رای - 2.7 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی
حالت خطی
#4
[align=center]سورس محاسبه دترمینان ماتریس 3 در 3[/align]
کد:
uses wincrt;

var
   a : array[1..3,1..3] of integer;
   diter,m,f,i,j : integer;
begin
     writeln('Enter Number Of Matrix');
     for i:=1 to 3 do
         for j:= 1 to 3 do
             begin
                  writeln('Enter A[',i,j,']');
                  read(A[i,j]);
             end;

     m := ((a[1,1]*a[2,2]*a[3,3])+(a[1,2]*a[2,3]*a[3,1])+(a[1,3]*a[2,1]*a[3,2]));
     f := ((a[1,3]*a[2,2]*a[3,1])+(a[1,2]*a[2,1]*a[3,3])+(a[1,1]*a[2,3]*a[3,2]));
     diter := m-f;
     writeln;
     writeln('Determinant Of Matrix Is : ',diter);
end.
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
RE: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - توسط Amin_Mansouri - 08-04-2011، 10:34 PM

پرش به انجمن:


Browsing: 1 مهمان