Stem-and-leaf plot: Difference between revisions
m
→{{header|QuickBASIC}}
(→{{header|QuickBASIC}}: Added a solution.) |
|||
Line 764:
==={{header|QuickBASIC}}===
{{trans|BBC BASIC|But Shell sort is used.}}
<syntaxhighlight lang="qbasic">
REM Stem-and-leaf plot
Line 809:
FOR I% = Incr% TO N% - 1
J% = I% - Incr%
WHILE J% >=
IF A%(J%) > A%(J% + Incr%) THEN
SWAP A%(J%), A%(J% + Incr%)
| |||