{ File: pitagor2.pas } { Scopo: cicli for annidati (caso in cui il numero di iterazioni del ciclo piu` interno non dipende dall'iterazione del ciclo piu` esterno } program TavolaPitagorica; { Stampa una tavola pitagorica con riga e colonna di intestazione. } const Nmax = 15; var riga, colonna : 1..Nmax; i : integer; { indice usato per la stampa dei '-' } begin { stampa della riga di intestazione } write(' ':5); for colonna := 1 to Nmax do write(colonna:4); writeln; for i := 1 to 5 + Nmax * 4 do write('-'); writeln; for riga := 1 to Nmax do begin write(riga:2, ' | '); for colonna := 1 to Nmax do write(riga * colonna : 4); writeln end end. { TavolaPitagorica }