کمک خیلی فوری برای پروژه پاسکال دانشگاه

[cyber boy]

سلام
یه پروژه معلم پاسکال دانشگاه بهمون داده ما هم که خنگ ! گوز پیچ شدیم توش نمیدونیم پکار کنیم!
3 نمره هم داره واسه آخر ترم .... امتحانو که باید بیخیال شیم لااقل ازین نمره ها بگیریم تا نیفتیم ...
ببینید گفته یه برنامه به حلقه ها بنویسید که اینو چاپ کنه :

        1
      1 2 1
    1 2 3 2 1
  1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1

اساتید کمکمون کنید که ما در حال بیچاره شدن هستیم! راستی تا فردا شب یعنی 4 شنبه وقت
داریم!!!

 

[MASoft]

۱) خیلی زشته بری تو دانشگاه، درس پاسکال رو بگذرونی بعد نتونی یه برنامه به این سادگی بنویسی !
۲) اصلا دل خوشی ازت ندارم ! (خودت دلیلشو بهتر میدونی)
۳) تکرار گزینه ۲
۳) این با FreePascal کار میکنه. هیچ تضمینی روی کامپایلرهای دیگه نمیدم.
​

Program Test;
uses SysUtils;
var i,j: integer;
begin
writeln();
for i := 1 to 5 do
begin
for j := 1 to (5-i)*2 do
write(' ');
for j := 1 to i do
write(inttostr(j) + ' ');
for j := (i-1) downto 1 do
write(inttostr(j) + ' ');
writeln();
end;
end.
​

 

[Mojgan110]

توي فرومه بيمس ، جوابت را نوشتم

 

[cyber boy]

خب ... مرسی MAsoft ... منت گذاشتی .... خودمم صبح فک کردم نوشتم :
مژگان جان همونجا تو bmc جوابتو دادم

program mos;
var
a,b,c,s : integer;

begin
s:=5;
for a:=1 to 5 do
begin
write('':s);
s:=s-1;
for b:=1 to i do
write(b);
for c:=i-1 downto 1 do
write(c);

end;
end.