Reverse

Procedure Reverse ( Number : INTEGER);

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

VAR LeftDigits: INTEGER;

BEGIN {Reverse}

WRITE ( Number mod 10 );

LeftDigits := Number div 10;

IF LeftDigits <> 0 THEN

Reverse ( LeftDigits )

END; {Reverse}

Previous slide

Next slide

Back to first slide

View graphic version