program7.txt

来自「编译原理课程设计大作业PL0文法简易编译器」· 文本 代码 · 共 7 行

var day, y, m, d:integer;
begin 
   y := 1;
   m := 0;
   d := 0;
   day := (1461*y) div 4 + (153*m + 2) div 5 + d;
end.