program7.txt

编译原理课程设计大作业PL0文法简易编译器

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.