تبليغات
تبلیغات در دانشجو کلوب محک :: موسسه خيريه حمايت از کودکان مبتلا به سرطان ::
جستجوگر انجمن.براي جستجوي مطالب دانشجو کلوپ مي توانيد استفاده کنيد 
برای بروز رسانی تاپیک کلیک کنید
 
امتیاز موضوع:
  • 2 رأی - میانگین امتیازات: 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 [-50..50,-50..50] of integer;
var x:a; i,j,k,d,n:integer;
begin
clrscr;
write('enter n:');
readln(n);
k:=121; d:=5;
while k>0 do
begin
for j:=d downto -d do
begin
k:=k-1; x[-d,j]:=k;
end;
for i:=1-d to d do
begin
k:=k-1; x[i,-d]:=k;
end;
for j:=1-d to d do
begin
k:=k-1; x[d,j]:=k;
end;
for i:=d-1 downto 1-d do
begin
k:=k-1; x[i,d]:=k;
end;
d:=d-1;
end;
for i:=-5 to 5 do
for j:=-5 to 5 do
if n=x[i,j] then
write('cor=(',j,',',-i,')');
readln;
end.

نویسنده: navid

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










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

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

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


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

پرش به انجمن:

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