代码大全

18-10
A
B
C
D
A D B C D A
B C D 18-11 Pascal
18-11 Pascal
while PixelColor = RedColor do begin

statement1 ;

statement2 ;

...

end ;

begin begin

18-12
18-12 Pascal

if SoldCount > 1000 then begin

Markdown := 0.10 ;

Profit := 0.05 ;

end

else Markdown := 0.05 ;

then begin else then

case
18-13

18-13 Pascal
if ( SoldCount > 10 and PrevMonthSales > 10 ) then
if ( SoldCount > 100 and PrevMonthSales > 10 ) then
if ( SoldCount > 1000 ) then begin
Markdown := 0.10
Profit := 0.05
end
else Markdown := 0.05
else Markdown := 0.025
else Markdown := 0.0 ;