InOder

Procedure InOder ( Number : INTEGER);

{Print the digits of Number in InOder order--from left to right }

VAR LeftDigits: INTEGER;

BEGIN {InOder}

LeftDigits := Number div 10;

IF LeftDigits <> 0 THEN

InOder ( LeftDigits );

WRITE ( Number mod 10 )

END; {InOder}

Previous slide

Next slide

Back to first slide

View graphic version