Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись данного десятичного числа — QBasic(Бейсик)

disel
1
2
3
4
5
например:
вводим число 347.162
и программа выводит цифры из которых
состоит число в порядке возрастания:
1 2 3 4 6 7
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DIM b(10)
INPUT a
DO WHILE INT(a) <> a
    a = a * 10
LOOP
DO
    k = k + 1
    b(k) = a MOD 10
    a = a \ 10
LOOP UNTIL a = 0
FOR i = 1 TO k
    FOR j = 2 TO k
        IF b(j) < b(j - 1) THEN SWAP b(j), b(j - 1)
    NEXT
NEXT
FOR i = 1 TO k
    PRINT b(i);
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment