Rešitev: program Pascalov trikotnik (Pascal)

Iz MaFiRaWiki

(Razlika med različicami)
Različica od 15:51, 10 julij 2007
NinoBasic (Pogovor | prispevki)

← Prejšnja različica
Različica od 15:52, 10 julij 2007
NinoBasic (Pogovor | prispevki)

Naslednja različica →
Vrstica 22: Vrstica 22:
</pre> </pre>
-Preizkušeno na prevajalnikih: Free Pascal 2.1.4, Borland Delphi 7.+Preizkušeno s prevajalniki: Free Pascal 2.1.4, Borland Delphi 7.

Različica od 15:52, 10 julij 2007

Naloga: program Pascalov trikotnik

Program PascalovTrikotnik;
var
  n, i, j: Integer;
  vrsta: Array of Int64;
begin
  Read(n);
  SetLength(vrsta, n);
  for i := 1 to n do
  begin
    vrsta[i-1] := 1;
    for j := i-2 downto 1 do
      Inc(vrsta[j], vrsta[j-1]);
    Write(vrsta[0]);
    for j := 1 to i-1 do
      Write(' ', vrsta[j]);
    WriteLn;
  end;
end.

Preizkušeno s prevajalniki: Free Pascal 2.1.4, Borland Delphi 7.

Osebna orodja