Pascal入门-.docVIP

Pascal编程入门 第3章 循环结构程序设计 PAGE 40 PAGE 41 Pascal入门资料 （2）  HYPERLINK /yionline/articles/143546.html Pascal入门资料?（2） 例7?设计一个函数比较两个dates日期类型记录变量的迟早。　　设函数名、形参及函数类型定义为：　　AearlyB(A,B:dates):boolean;　　函数的形参为两个dates类型的值参数。当函数值为true?时表示日期A早于日期B,否则日期A迟于日期B或等于日期B。显然不能对Ａ、Ｂ两个记录变量直接进行比较，而要依具体的意义逐域处理。　　源程序如下：　　program?ex6_7;　　type?dates=record　　　　　　year:1900.1999;　　　　　　month:1..12;　　　　　　day:1..31　　　　　end;　　var?x,y:dates;　　function?AearlyB(A,B:dates):boolean;　　var?earln:boolean;　　begin　　　early:=false;　　　if?(A.yearB.year)?then?early:=true;　　　if?(A.year=B.year)and(A.monthB.month)　　　th