Base-16 representation: Difference between revisions

Content added Content deleted

Inline

@@ Line 49: / Line 49: @@
     for i := 1 until 500 do begin
         integer v;
-        logical needsAToF;
-        needsAToF := false;
         v := i;
-        while not needsAToF and v > 0 do begin
+        while v > 0 do begin
-            needsAToF := ( v rem 16 ) > 9;
+            if ( v rem 16 ) < 10
-            v := v div 16
+            then v := v div 16
+            else begin
-        end while_v_gt_0_and_notNeedsAToF ;
+                % found a number that needs a-f in its hex representation %
-        if needsAToF then begin
-            % found a number that needs a-f in its hex representation %
+                v := 0;
-            hCOunt := hCOunt + 1;
+                hCOunt := hCOunt + 1;
-            writeon( i_w := 3, s_w := 0, " ", i );
+                writeon( i_w := 3, s_w := 0, " ", i );
-            if hCount rem 20 = 0 then write()
+                if hCount rem 20 = 0 then write()
-        end if_needsAToF
+            end if_hexDigit_lt_10
+        end while_v_gt_0
     end for_i
-end.
+end.</lang>
-</lang>
 {{out}}
 <pre>