تبليغات
تبلیغات در دانشجو کلوب محک :: موسسه خيريه حمايت از کودکان مبتلا به سرطان ::
جستجوگر انجمن.براي جستجوي مطالب دانشجو کلوپ مي توانيد استفاده کنيد 
برای بروز رسانی تاپیک کلیک کنید
 
امتیاز موضوع:
  • 1 رأی - میانگین امتیازات: 5
  • 1
  • 2
  • 3
  • 4
  • 5

تعویض قطر اصلی و فرعی در یک ماتریس - پاسکال

نویسنده پیام
  • navid
    آفلاین
  • مدیر بازنشسته
    **
  • ارسال‌ها: 1,344
  • تاریخ عضویت: مرداد ۱۳۹۰
  • اعتبار: 85
  • تحصیلات:لیسانس
  • علایق:برنامه نویسی
  • محل سکونت:Istanbul, Turkey
  • سپاس ها 1152
    سپاس شده 3031 بار در 1139 ارسال
  • امتیاز کاربر: 27,279$
  • حالت من:حالت من
ارسال: #1
تعویض قطر اصلی و فرعی در یک ماتریس - پاسکال

کد:
program pascal;
 uses crt;
 type a= array [1..100,1..100] of integer;
 var x:a; i,j,n,f,s,k,d,e,b:integer;
begin
 clrscr;
 write('enter n in matrix n * n:');
 readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     write('enter number x[',i,' , ',j,']:');
     readln(x[i,j]);
     if i=j then
      begin
       s:=x[i,j]; k:=i; b:=j;
      end;
     if i+j=n+1 then
      begin
       f:=x[i,j]; d:=i; e:=j;
      end;
    end;
   x[k,b]:=f; x[d,e]:=s;
  end;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(x[i,j]:5);
   writeln;
  end;
 readln;
end.

نویسنده: navid
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35



مطالب مشابه ...










تن آدمی شریف است به جیب آدمیت و همین لباس زیباست نشان آدمیت !

۴-۷-۱۳۹۰ ۱۰:۳۸ عصر
جستجو یافتن همه ارسال های کاربر اهدا امتیازاهدای امتیاز به کاربر پاسخ پاسخ با نقل قول
 سپاس شده توسط ♔ αϻἰг κнаη ♔ ، senior engineer

برای بروز رسانی تاپیک کلیک کنید


مطالب مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  بازی جنگ فضایی-پاسکال Macsi - space fighting game. ♔ αϻἰг κнаη ♔ 0 421 ۲-۳-۱۳۹۱ ۱۱:۴۳ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  استخر شنا و تعداد افراد ان-پاسکال ♔ αϻἰг κнаη ♔ 0 259 ۲-۳-۱۳۹۱ ۱۱:۴۰ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  برنامه تقویم -پاسکال ♔ αϻἰг κнаη ♔ 0 442 ۲-۳-۱۳۹۱ ۱۱:۳۲ عصر
آخرین ارسال: ♔ αϻἰг κнаη ♔
  سورس کد گرفتن یک عدد و نمایش عامل های اول آن به زبان پاسکال navid 2 860 ۲۶-۸-۱۳۹۰ ۰۸:۵۸ عصر
آخرین ارسال: navid
  ضرب دو ماتریس - پاسکال navid 0 1,866 ۴-۷-۱۳۹۰ ۱۰:۴۱ عصر
آخرین ارسال: navid
  ترانهاده یک ماتریس - پاسکال navid 0 1,382 ۴-۷-۱۳۹۰ ۱۰:۴۰ عصر
آخرین ارسال: navid
  جمع ردیف های یک ماتریس - پاسکال navid 0 357 ۴-۷-۱۳۹۰ ۱۰:۳۴ عصر
آخرین ارسال: navid
  جمع دو ماتریس - پاسکال navid 0 771 ۴-۷-۱۳۹۰ ۱۰:۳۰ عصر
آخرین ارسال: navid
  مرتب کردن دو آرایه غیر مرتب در یک آرایه - پاسکال navid 0 520 ۴-۷-۱۳۹۰ ۱۰:۲۷ عصر
آخرین ارسال: navid
  چاپ سری اعداد به صورت ردیفی - پاسکال navid 0 383 ۴-۷-۱۳۹۰ ۱۰:۱۹ عصر
آخرین ارسال: navid

پرش به انجمن:

کاربرانِ درحال بازدید از این موضوع: 1 مهمان