代码大全

(singke) #1

KnockCoverOff( Ball );
end
else if MainColor := Blue then


begin
Rollout( Ball );
end
end
else FatalError( "Unrecognized kind of ball.”)
end; case


WhiteAndBlue


18-36

18-36 Pascal
case BallColor of
Blue:
Rollout( Ball );
Orange:
SpinOnFinger( Ball );
FluorescentGreen
Spike( Ball );
White:
KnockCoverOff( Ball );
WhiteAndBlue:
begin
if( MainColor = White ) then
begin
KnockCoverOff( Ball );
end
else if( MainColor = Blue ) then
begin
Rollout( Ball );
end
end
else
FatalError "Unrecognized Kind of Ball "
end case


case
Free download pdf