Pascaluv trojuhelnik – Delphi – Fórum – Programujte.com

Zdravim všechny.

Potřeboval bych vysvětlit pár řádek z mého programu.

Z části jsem ho vymyslel, ale pár podmínek jsem našel na netu potřeboval bych je trošičku popsat, díky.

Jedná se o program, který má vykreslit pascaluv trojuhelnik.

Zatim moje řešeni. Budu vděčnej za každý náznak nevim si rady od toho for cyklu. 

const Max = 15;
      FF  = 10;
  type troj = array [1..Max] of integer;
  var I,J : integer;
      A : troj;
      n : integer;
  begin
  repeat
   writeln('zadej rad trojuhelniku');
   readln(n);
   until (n>=1) and (n<=max);
   for I:=1 to n do begin
        A[1]:=1;
        A[I]:=1;
        for J:=I-1 downto 2 do
        A[J]:=A[j-1]+A[J];
        write('':5*(n-I));
        for J:=1 to I do
        write (A[J]:FF);
        writeln;
      end;
  readln;
  end.

const Max = 15;
      FF  = 6;
  type troj = array [1..Max] of integer;
  var I,J : integer;
      A : troj;
      n : integer;
begin
  repeat
    writeln('zadej rad trojuhelniku');
    readln(n);
  until (n>=1) and (n<=max);  //Tady je pole A (dlouhe Max) naplnene nulami
  for I:=1 to n do //cyklus pro propostupne zvysovani I od 1 do n (n=rad P.t.)
  begin
    A[1]:=1;  //prvnimu clenu pole se priradi jednicka
    A[I]:=1;  //i-temu (v te chvili poslednimu) clenu  pole se priradi jednicka
    for J:=I-1 downto 2 do //cyklus od i-1 clenu do 2 clenu A
      A[J]:=A[j-1]+A[J]; //vnitrni cleny jsou souctem dvou clenu v radku nad nim
    write('':3*(n-I)); //udelani mezer aby cisla pod byla mezi temi nad nimi
    for J:=1 to I do //cyklus pro vypis radku P.t.
      write (A[J]:FF); //vypise prislusne cislo v radku P.t. z pole A
    writeln; //skok na dalsi radek vypisu
  end;
  readln;
  //Poznamka: pole A (delky n) je neustale prepisovano hodnotami prislusneho radku P.t.
end.

Tak jak je to napsáno to podle mě to vypisuje P.t. do řádu n-1.

P.t. začíná totiž řádkem pro n=0

Jak bys to opravil:

Pole troj bys nadefinoval type troj = array [1..Max+1] of integer;

a n bys po jeho přečtení zvětšil o 1. Tedy za řádek until (n>=1) and (n<=max); bys napsal n := n+1;

Díky moc, hodně si mi pomohl.

Myslíte si že je správně ?? Nejsem si jistej.

Díky za odpovědi.