one.wa

来自「PL/0语言的词法分析」· WA 代码 · 共 91 行

  21: const
   1: m
   7: =
   2: 7
  10: ,
   1: n
   7: =
   2: 85
  11: ;
  29: var
   1: x
  10: ,
   1: y
  10: ,
   1: z
  10: ,
   1: q
  10: ,
   1: r
  11: ;
  26: procedure
   1: multiply
  11: ;
  29: var
   1: a
  10: ,
   1: b
  11: ;
  19: begin
   1: a
  18: :=
   1: x
  11: ;
   1: b
  18: :=
   1: y
  11: ;
   1: z
  18: :=
   2: 0
  11: ;
  30: while
   1: b
  16: >
   2: 0
  22: do
  19: begin
  24: if
  25: odd
   1: b
  28: then
   1: z
  18: :=
   1: z
   3: +
   1: a
  11: ;
   1: a
  18: :=
   2: 2
   5: *
   1: a
  11: ;
   1: b
  18: :=
   1: b
   6: /
   2: 2
  11: ;
  23: end
  23: end
  11: ;
  19: begin
   1: x
  18: :=
   1: m
  11: ;
   1: y
  18: :=
   1: n
  11: ;
  20: call
   1: multiply
  11: ;
  24: if
   2: 4
  16: >
   2: 8
Illegal identifier then3 in line 17 column 8.
Compile Stopped.