Serie — Georg Nees, 1969

Dissertation 1969 · S. 185 / 188

ALGOL 60

'PROCEDURE' SERIE
 (QUER,HOCH,XMAL,YMAL,FIGUR).,
'VALUE' QUER, HOCH, XMAL, YMAL.,
'REAL' QUER, HOCH.,
'INTEGER' XMAL, YMAL.,
'PROCEDURE' FIGUR.,
'BEGIN'
  P.= -QUER*XMAL*.5.,
  Q.=YANF.= -HOCH*YMAL*.5.,
  'FOR' COUNTX.=1 'STEP' 1 'UNTIL' XMAL 'DO'
  'BEGIN' Q.=YANF.,
    'FOR' COUNTY.=1 'STEP' 1 'UNTIL' YMAL 'DO'
    'BEGIN' FIGUR., Q.=Q+HOCH
    'END'., P.=P+QUER
  'END'
'END' SERIE.,

'PROCEDURE' S., 'BEGIN'
  'INTEGER' D.,
  LEER(P+1,Q+1)., LINE(P+HOR-1,Q+1).,
  LINE(P+HOR-1,Q+VER-1).,
  LINE(P+1,Q+VER-1)., LINE(P+1,Q+1).,
  'FOR' D.=1 'STEP' 1 'UNTIL' M 'DO'
  'BEGIN' LEER(P+1+D,Q+1).,
          LINE(P+1+D,Q+VER-1)
  'END'.,
  M.=M+1
'END' S.,

M.=1., HOR.=65., VER.=20.,
SERIE(HOR,VER,4,7,S).,

Diese Seite · Zeichenkern

JavaScript

P = -HOR * XMAL * 0.5;
Q = YANF = -VER * YMAL * 0.5;
for (let COUNTX = 1; COUNTX <= XMAL; COUNTX++) {
  Q = YANF;
  for (let COUNTY = 1; COUNTY <= YMAL; COUNTY++) {
    S();          // Umriss, dann M senkrechte Striche
    Q += VER;
  }
  P += HOR;
}
// S zählt M nach jeder Zelle hoch.
// SERIE(65, 20, 4, 7, S) → 28 Zellen.

Abschnitt 3.2.1: SERIE teilt ein achsenparalleles Rechteck in XMAL mal YMAL kongruente Zellen um den Ursprung, erste Zelle im dritten Quadranten, innere Schleife entlang Y. Die Figur S zeichnet den um 1 eingesetzten Umriss und so viele senkrechte Striche, wie der Zähler M angibt — so liest man die Reihenfolge der 28 Zellen. Bild 21 ist rein deterministisch. Das Blatt steht wie der Scan hochkant.