يك سوال كوچك

[jafar_hoggt]

سلام
من يك برنامه مي خواستم بنويسم يك كمي احتياج به كمك دارم زيرا مسلط به پاسكال نيستم
برنامه به صورت زير مثلا اگر 3 را وارد كني خروجي به صورت زير باشد

1 1 1 1 1
1 2 2 2 1
1 2 3 2 1
1 2 2 2 1
1 1 1 1 1

اگر 4 را وارد كردي
1 1 1 1 1 1 1
1 2 2 2 2 2 1
1 2 3 3 3 2 1
1 2 3 4 3 2 1
1 2 3 3 3 2 1
1 2 2 2 2 2 1
1 1 1 1 1 1 1
و همين طور ...
با تشكر

[hamidreza_buddy]

اینو امتحان کن:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[jafar_hoggt]

سلام
به پاسكال نوشتي
يكم توضيح بده
من تازه كارم
با تشكر

[jafar_hoggt]

repeat
n:=n-1
m:=m+1
for i:=1 to n do
for j:=1 to n do
if m<=i<=n and m<=j<=n do=m
until (n<m)
اين چه جوري است با آرايه اگه بخواهم بنويسم

[Farazb29]

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