Pascal Triangle

התכנית מציגה את משולש פסקל בצורה של קווים אנכיים ואופקיים.
ארבע קווים אנכיים על מספר אי זוגי, ושני קווים אופקיים על מספר זוגי.
כפי שרואים, יוצאת דיאגרמה מחזורית מעניינת.

הקובץ

program PascalT;
uses Crt;
const MaxRows=30;

function Pascal(a,b:Byte):Longint;
var
n:Byte;       {'Pascal' returns the value of the cell}
store:Longint;{recieved in the row recieved.}
begin {Pascal}
if(a=0)then store:=0
else
begin {else}
  store:=1;
  for n:=1 to b-1 do store:=(store*(a-n)) div n;
end; {else}
Pascal:=store;
end; {Pascal}

var row,cell:Byte;

begin {main}
TextMode(259);TextBackground(0);TextColor(0);ClrScr;TextColor(7);
for row:=1 to MaxRows do
begin
  for cell:=1 to 40-row do write(' ');
  for cell:=1 to row do if((pascal(row,cell) mod 2)=0)then write(chr(205),chr(205))else write(chr(186),chr(186));
  Writeln;
end;
ReadKey;
end. {main}