ftest1b.pll

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

PROGRAM FTEST_1B (OUTPUT);

VAR
  i, opf : INTEGER;

BEGIN
  ASSIGN(opf@, 'NUMBER.DAT');
  REWRITE(opf@);
  FOR i := 1 TO 500 DO
  BEGIN
    Writeln(opf@, i%)
  END;
  CLOSE(opf@);
  Writeln(opf%);
END.