代码大全

(singke) #1

if


IF Month=1 THEN Days=3l
ELSEIF Month=2 THEN Days=28
ELSEIF Month=3 THEN Days=31
ELSEIF Month=4 THEN Days=30
ELSEIF Month=5 THEN Days=31
ELSEIF Month=6 THEN Days=30
ELSEIF Month=7 THEN Days=31
ELSEIF Month=8 THEN Days=31
ELSEIF Month=9 THEN Days=30
ELSEIF Month=10 THEN Days=31
ELSEIF Month=11 THEN Days=30
ELSEIF Month=12 THEN Days=31
ENDIF

, , Basic ,

′ INITIALIZE TABLE OF "Days Per Month" DATA

DATA 3 1 28 31 30 31 30 31 31 30 31 30 31
DIM DaysPerMonth(I)
FOR I=1 TO 1 2
READ DaysPerMonth(I)
NEXT I

if






























Days=DaysPerMonth(Month)
Days=DaysPerMonth(Month IsLeapYear)
if
Month
if
2
,
, Pascal

if ( Sex = Female ) then begin
if ( MaritalStatus = Single ) then begin
if ( SmokingStatus = NonSmoking ) then begin
if ( Age < 1 8 ) then
Rate := 40.00

Free download pdf