Anonymní profil karel – Programujte.com

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

Díky za odpovědi.

Díky moc, hodně si mi pomohl.

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.