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