ptest1.pll

来自「一个嵌入式系统的C代码」· PLL 代码 · 共 20 行

PROGRAM ptest1 (Input, Output);

VAR
  n, k, x : INTEGER;

BEGIN
  n := 1;
  k := 1;
  REPEAT
    FOR x := 1 to n DO
      WRITE('  ');
    WRITELN('Hello, World!');
    n := n + k;
    IF n = 1 THEN
      k := 1;
    IF n = 6 THEN
      k := -1
  UNTIL n = 0;
END.