Programing.BlogSky.com
X
تبلیغات
رایتل


برنامه زیر مثلث عددی به صورت  شکل زیر است: 


                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 

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


برای مشاهده سورس برنامه به ادامه مطلب مراجعه فرمایید.


برنامه زیر مثلث عددی به صورت  شکل زیر است:
                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

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

 

 


program mosallas;
uses crt;
var
   i,j,k,f,g:Integer;
BEGIN
     textcolor(7);
     textbackground(1);
     clrscr;
     j:=8;
     for i:=1 to 5 do
     begin
          for g:=1 to j do
              write(' ');
          for k:=1 to i do
              write(k,' ');
          for f:=( i-1) downto 1 do
              write(f,' ');
          j:=j-2;
          writeln;
     end;
     readln;
end.