ورود

نسخه کامل مشاهده نسخه کامل : يك سوال كوچك



jafar_hoggt
13-12-2007, 21:29
سلام
من يك برنامه مي خواستم بنويسم يك كمي احتياج به كمك دارم زيرا مسلط به پاسكال نيستم
برنامه به صورت زير مثلا اگر 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
14-12-2007, 12:41
اینو امتحان کن:

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

jafar_hoggt
14-12-2007, 19:30
سلام
به پاسكال نوشتي
يكم توضيح بده
من تازه كارم
با تشكر

jafar_hoggt
21-12-2007, 22:16
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
22-12-2007, 23:02
من فکر میکنم این برنامه فقط یک چهارم مربع رو چاپ میکنه.
من تو سی شارپ اینو نوشتم اگه زحمت می کشین به پاسکال ترجمه کنین بزارمش.
مرسی