Нарисуйте треугольник Паскаля в PASCAL Программирование как алмаз - PullRequest
Новая
       20

Нарисуйте треугольник Паскаля в PASCAL Программирование как алмаз

0 голосов
/ 25 декабря 2011

Как я могу нарисовать треугольник Паскаля в PASCAL Программирование как ромб из n числа, которое мы получаем из ввода?

Edit: Эту программу я пробовал: 

program Pascal_triangle;
var
i,j,n : integer;
A : Array[1..6,1..6] of Integer;
begin
   n := 6;
   for i:=1 to n do
   begin
      for j:=1 to i do
      begin
         if (j=1) or (i=j) then
         begin
            A[i,j]:=1;
         end
         else
         begin
            A[i,j] := A[i-1,j] + A[i-1,j-1];
         end;
      end;
   end;
   for i:=1 to n do
   begin
      Gotoxy(41-i,i);
      for j:=1 to i do
         write(A[i,j])
   end;
   readln;
end.

но я получил ошибку в строке gotoxy, и мне нужно, чтобы она была бриллиантовой.

1 Ответ

0 голосов
/ 22 марта 2012

31 декабря '11 в 21: 22: Спасибо, я написал это и работает 

program Pascal_triangle;
var d,c,y,x,n : integer;
   begin
      readln(n);
      writeln;
      for y:=0 to n do
      begin
         c:=1;
         for d:=0 to n - y do
         begin
            write(' ');
         end;
         for x:=0 to y do
         begin
            write(c);
            write(' ');
            c := c * (y - x) DIV (x + 1);
         end;
         writeln;
      end;
      for y:=n-1 downto 0 do
      begin
         c:=1;
         for d:=0 to n - y do
         begin
            write(' ');
         end;
         for x:=0 to y do
         begin
            write(c);
            write(' ');
            c := c * (y - x) DIV (x + 1);
         end;
         writeln;
      end;
      readln;
   end.
...