نتایح جستجو

خیلی سخت نیست :razz: فکر کنم باید برای اعداد 1 تا N سری رو تشکیل بده و وقتی آخرین عدد 13 بود اون عددی که باهاش سری رو نوشته به عنوان خروجی نشون بده.

ترجمه کردم که majid421 دیگه بهونه ای نداشته باشن :biggrin:

ترجمه اولین سوال ACM ترجمه اولین سوال ACM بحران نیرو زمستان امسال به علت بارش کم باران و در نتیجه کم شدن سطح آب پشت سد در نیوزیلند و بحران نیرو، نقشه ای برای قطع برق مناطقی از کشور بصورت منظم و کاملا منصفانه طرح ریزی شد. کشور به N منطقه تقسیم شد (Auckland منطقه شماره 1 و Wellington منطقه...

ضمنا تصمیم گرفتم برای جایزه 100 credit هر هفته رای بگیریم. نظرتون چیه؟

فقط کافیه هر چیزی که برای حل مساله ی مطرح شده مفید می دونین توی این تاپیک بنویسین تا با کمک هم جواب درست رو پیدا کنیم. اگه پیشنهاد جایزه کردیم برای این بود که مهندسای عزیز بیشتر تشویق بشن برای شرکت توی بحث ;)

اولین سوال ACM اولین سوال ACM Power Crisis During the power crisis in New Zealand this winter (caused by a shortage of rain and hence low levels in the hydro dams), a contingency scheme was developed to turn off the power to areas of the country in a systematic, totally fair, manner. The...

http://www.abcramak.blogfa.com

:gol: www.abcramak.blogfa.com :gol:

و هر كس تو اين بحث شركت كنه خودم بهش امتياز ميدم :biggrin:

البته هر كس فقط يك بار جايزه مي گيره :D يعني اگه كسي همه سوالا رو جواب بده قبول نيست.

هر هفته رو يكي از اين سوالا تمركز مي كنيم. اولين كسي كه جواب درست رو پست كنه 100 credit جايزه مي گيره. از 10 شهريور شروع مي كنيم. لطفا تا اون موقع اگه نظر و پيشنهادي دارين بنويسين.

خوب كسي نمي خواد شروع كنه؟

فايل zip 2.3 MB نمي تونم اينجا ضميمه كنم. اگه ايميل بدين براتون مي فرستم :)

تاپیک قبلیم که طرفداری نداشت. ببینم اینو چیکار می کنین :razz:

همچنان کسی نظری نداره؟ خوب شاید این برنامه یه کم سخت بود. :w08: با یه برنامه ساده تر چطورین؟ مثلا ... :w20: نمی دونم بابا کمک کنین :w06:

مرسی، درستش کردم ;)

type tarr=array [0..8,0..8,0..8] of integer; var arr:tarr; i,j,k,t,l,p:integer; s:string; procedure mat3(var i,j,p:integer); begin if j<3 then begin if i<3 then p:=1 else if i>5 then p:=3 else p:=2; end; if (j>2) and (j<6) then begin if i<3 then p:=4 else if i>5 then p:=6 else p:=5; end; if j>5...

خوبه که موافقین ولی انگار خیلی ها موافق نیستن بابا یه چیزی بنویسین دیگه

پس چی شد؟ من برنامه رو نوشتم تموم شد! :cool: یعنی کسی نظری نداره؟! :surprised:

یه ماتریس 9*9 داریم که همون سودوکو هست (هر جا گفتم ماتریس منظورم اینه!) یه آرایه سه بعدی 9*9*9 (و هر جا گفتم آرایه منظورم اینه!) قبل از هر کاری آرایه رو پر می کنم: for i:=1 to 9 do for j:=1 to 9 do for k:=1 to 9 do arr[i,j,k]:=k و تمام خانه های ماتریس رو صفر می ریزم: for i:=1 to 9 do for j:=1...