yyyy.pas

关于课件 好多种结构的算法 等等 大家自己看吧

PROGRAM  PR_1(INPUT,OUTPUT);
   VAR
      ym:REAL;
       y,y1,m,d:INTEGER;
   BEGIN
       READLN(ym);
       y:=trunc(ym);
       y1:=y mod 100;
       m:=trunc(ym *100) mod 100 ;
       d:=trunc(ym *1E4) mod 100 ;
       Writeln(y:8,y1:4,m:4,d:4); 
   END .