سوال در مورد برنامه نویسی در پاسکال

[nimja]

سلام به همه دوستان
میخواستم یه برنامه تو پاسکال بنویسم که در خروجی اعداد زیر رو به همین شکل نمایش بده:

با استفاده از سه حلقه for
خیلی ممنون

 

[the_king]

البته این برنامه را به راحتی میشه بدون هرگونه loop اضافی با دو حلقه for هم نوشت،
یعنی چاپ کاراکترهای فاصله را هم با حلقه چاپ اعداد ترکیب کرد.

uses crt;
var
   i,j,k:integer;
begin
   clrscr;
   for i:=1 to 4 do
   begin
       for j:=1 to 4-i do
           write(' ');
       for k:=1 to 2*i-1 do
           if (k>i) then
              write(i*2-k)
           else
              write(k);
       writeln;
   end;
   readkey;
end.

«کد برنامه PAS در داخل یک فایل zip شده ضمیمه این پست می باشد»

 

[nimja]

البته این برنامه را به راحتی میشه بدون هرگونه loop اضافی با دو حلقه for هم نوشت،
یعنی چاپ کاراکترهای فاصله را هم با حلقه چاپ اعداد ترکیب کرد.

uses crt;
var
   i,j,k:integer;
begin
   clrscr;
   for i:=1 to 4 do
   begin
       for j:=1 to 4-i do
           write(' ');
       for k:=1 to 2*i-1 do
           if (k>i) then
              write(i*2-k)
           else
              write(k);
       writeln;
   end;
   readkey;
end.

«کد برنامه PAS در داخل یک فایل zip شده ضمیمه این پست می باشد»

خیلی خیلی مچکرم
با 2 تا for که فرمودید چه طور میشه؟

 

[nimja]

من هنوز منتظر هستم ها

 

[the_king]

شرمنده ام، برنامه رو نوشته بودم ولی یادم رفت پست بزنم.

uses crt;
var
   i,j:integer;
begin
   clrscr;
   for i:=1 to 4 do
   begin
       for j:=1 to i+3 do
           if (j<=4-i) then
              write(' ')
           else if (j>4) then
              write(4-j+i)
           else
              write(j+i-4);
       writeln;
   end;
   readkey;
end.

«کد برنامه PAS در داخل یک فایل zip شده ضمیمه این پست می باشد»