Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Pollywog
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 48
#1

Даны четыре действительных числа. Упорядочить их по убыванию

18.03.2013, 23:16. Просмотров 1302. Ответов 8
Метки нет (Все метки)

Даны четыре действительных числа. Упорядочить их по убыванию. делается как-то через IF, но не могу представить как
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2013, 23:16
Ответы с готовыми решениями:

Упорядочить одномерный массив по убыванию
Привет!Пожалуйста помогите, построить алгоритм решения задачи (блок-схему) и...

Создать и упорядочить массив по убыванию
Сформировать массив Y из элементов массива X(n) с циклическим сдвигом их на d...

Упорядочить столбцы матрицы по убыванию произведений их элементов
Дана матрица целых чисел X(n, m). Упорядочить ее столбцы по убыванию...

Упорядочить столбцы матрицы по убыванию произведений их элементов
Помогите решить задачу Дана матрица целых чисел X(n, m). Упорядочить ее...

Упорядочить столбцы матрицы по убыванию произведений их элементов
Дана матрица целых чисел X(n, m). Упорядочить ее столбцы по убыванию...

8
Pollywog
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 48
20.03.2013, 17:35  [ТС] #2
UP!

Добавлено через 17 часов 44 минуты
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
CLS
INPUT "vvedite a "; a
INPUT "vvedite b "; b
INPUT "vvedite c "; c
INPUT "vvedite d "; d
IF (a>b>c>d) THEN
    PRINT ; a,b,c,d 
    ELSE
    IF (a>c>b>d) THEN
        PRINT ; a,c,b,d 
        ELSE
        IF (a>d>c>d) THEN
            PRINT ; a,d,c,b 
            ELSE
            IF (a>b>d>c) THEN
                PRINT ; a,b,d,c
                ELSE 
                IF (b>a>c>d) THEN
                    PRINT ; b,a,c,d
                    ELSE
                    IF (b>c>a>d) THEN
                        PRINT ; b,c,a,d
                        ELSE
                        IF (b>d>a>c) THEN
                            PRINT ; b,d,a,c
                            ELSE
                            IF (b>c>d>a) THEN
                                PRINT ; b,c,d,a
                                ELSE
                                IF (c>a>b>d) THEN
                                    PRINT ; c,a,b,d
                                    ELSE
                                    IF (c>b>a>d) THEN
                                        PRINT ; c,b,a,d
                                        ELSE
                                        IF (c>d>a>b) THEN
                                            PRINT ; c,d,a,b
                                            ELSE
                                            IF (c>d>b>a) THEN
                                                PRINT ; c,d,b,a
                                                ELSE
                                                IF (d>a>b>c) THEN
                                                    PRINT ; d,a,b,c
                                                    ELSE
                                                    IF (d>b>a>c) THEN
                                                        PRINT ; d,b,a,c
                                                        ELSE
                                                        IF (d>c>a>b) THEN
                                                            PRINT ; d,c,a,b
                                                            ELSE
                                                            IF (d>c>b>a) THEN
                                                                PRINT ; d,c,b,a
                                                                END IF
                                                                INPUT zzz
                                                            END
ребят скажите, что не так, почему не работает

Добавлено через 23 минуты
такс теперь она запускается, но не выводит порядок чисел
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
CLS
INPUT "vvedite a "; a
INPUT "vvedite b "; b
INPUT "vvedite c "; c
INPUT "vvedite d "; d
IF (a>b>c>d) THEN
    PRINT ; a,b,c,d 
ELSE
    END IF
    IF (a>c>b>d) THEN
        PRINT 
    ELSE
        END IF
        IF (a>d>c>d) THEN
            PRINT ; a,d,c,b 
        ELSE
            END IF
            IF (a>b>d>c) THEN
                PRINT ; a,b,d,c
            ELSE 
                END IF
                IF (b>a>c>d) THEN
                    PRINT ; b,a,c,d
                ELSE
                    END IF
                    IF (b>c>a>d) THEN
                        PRINT ; b,c,a,d
                    ELSE
                        END IF
                        IF (b>d>a>c) THEN
                            PRINT ; b,d,a,c
                        ELSE
                            END IF
                            IF (b>c>d>a) THEN
                                PRINT ; b,c,d,a
                            ELSE
                                END IF
                                IF (c>a>b>d) THEN
                                    PRINT ; c,a,b,d
                                ELSE
                                    END IF
                                    IF (c>b>a>d) THEN
                                        PRINT ; c,b,a,d
                                    ELSE
                                        END IF
                                        IF (c>d>a>b) THEN
                                            PRINT ; c,d,a,b
                                        ELSE
                                            END IF
                                            IF (c>d>b>a) THEN
                                                PRINT ; c,d,b,a
                                            ELSE
                                                END IF
                                                IF (d>a>b>c) THEN
                                                    PRINT ; d,a,b,c
                                                ELSE
                                                    END IF
                                                    IF (d>b>a>c) THEN
                                                        PRINT ; d,b,a,c
                                                    ELSE
                                                        END IF
                                                        IF (d>c>a>b) THEN
                                                            PRINT ; d,c,a,b
                                                        ELSE
                                                            END IF
                                                            IF (d>c>b>a) THEN
                                                                PRINT ; d,c,b,a
                                                            END IF 
                                                                INPUT zzz
                                                            END
0
IUMag
57 / 54 / 37
Регистрация: 02.04.2012
Сообщений: 131
20.03.2013, 17:43 #3
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
CLS
INPUT "vvedite a "; a
INPUT "vvedite b "; b
INPUT "vvedite c "; c
INPUT "vvedite d "; d
IF (a > b AND b > c AND b > d) THEN
PRINT ; a, b, c, d
ELSE
END IF
IF (a > c AND c > b AND b > d) THEN
PRINT a, c, b, d
ELSE
END IF
IF (a > d AND d > c AND c > d) THEN
PRINT ; a, d, c, b
ELSE
END IF
IF (a > b AND b > d AND d > c) THEN
PRINT ; a, b, d, c
ELSE
END IF
IF (b > a AND a > c AND c > d) THEN
PRINT ; b, a, c, d
ELSE
END IF
IF (b > c AND c > a AND a > d) THEN
PRINT ; b, c, a, d
ELSE
END IF
IF (b > d AND d > a AND a > c) THEN
PRINT ; b, d, a, c
ELSE
END IF
IF (b > c AND c > d AND d > a) THEN
PRINT ; b, c, d, a
ELSE
END IF
IF (c > a AND a > b AND b > d) THEN
PRINT ; c, a, b, d
ELSE
END IF
IF (c > b AND b > a AND a > d) THEN
PRINT ; c, b, a, d
ELSE
END IF
IF (c > d AND d > a AND a > b) THEN
PRINT ; c, d, a, b
ELSE
END IF
IF (c > d AND d > b AND b > a) THEN
PRINT ; c, d, b, a
ELSE
END IF
IF (d > a AND a > b AND b > c) THEN
PRINT ; d, a, b, c
ELSE
END IF
IF (d > b AND b > a AND a > c) THEN
PRINT ; d, b, a, c
ELSE
END IF
IF (d > c AND c > a AND a > b) THEN
PRINT ; d, c, a, b
ELSE
END IF
IF (d > c AND c > b AND b > a) THEN
PRINT ; d, c, b, a
END IF
END
1
Pollywog
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 48
20.03.2013, 17:50  [ТС] #4
IUMag, спасибо!
Вот я тупой канешь.... еще сижу и думал, в чем ошибка то(( тупо AND забыл(
0
m-ch
5261 / 804 / 269
Регистрация: 25.02.2011
Сообщений: 1,116
Записей в блоге: 1
20.03.2013, 18:32 #5
а зачем так сложно реализовывать, не легче ли пузырьком массив отсортировать

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
CLS
DIM a(4)
FOR i = 1 TO 4
  INPUT "vvedite chislo"; a(i)
  FOR j = 1 TO i - 1
    IF a(i) > a(j) THEN SWAP a(i), a(j)
NEXT j, i
FOR i = 1 TO 4
  PRINT a(i);
NEXT i
Если данных всего 4, то можно и без циклов сделать, всего 6 условий проверить
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
INPUT "a"; a
INPUT "b"; b
INPUT "c"; c
INPUT "d"; d
 
IF a < b THEN SWAP a, b
IF a < c THEN SWAP a, c
IF a < d THEN SWAP a, d
IF b < c THEN SWAP b, c
IF b < d THEN SWAP b, d
IF c < d THEN SWAP c, d
PRINT a; b; c; d
2
Pollywog
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 48
20.03.2013, 19:09  [ТС] #6
ну блин ребят, я как догадался так и сделал, да и потом, как ко 2-ому решению рисовать схему я не знаю( если дадите схему, то естественно ваш вариант решения и покажу преподу)
0
Quiet Snow
4404 / 1288 / 375
Регистрация: 25.04.2010
Сообщений: 3,293
21.03.2013, 15:11 #7
Если данных всего 4, то можно и без циклов сделать, всего 6 условий проверить
Я ждал этого ответа. Конечно...
0
IUMag
21.03.2013, 18:54
  #8

Не по теме:

Можно, но главное, чтоб ему самому было понятно, как решать.

0
Pollywog
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 48
22.03.2013, 10:29  [ТС] #9
я то понял твой ход решения и могу его объяснить, тока вот как схему к этому решению нарисовать ?
0
22.03.2013, 10:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2013, 10:29

Упорядочить массив Y по убыванию значений его элементов
Упорядочить массив Y по убыванию значений его элементов.

Упорядочить строки матрицы по убыванию элементов главной диагонали
В массивe R(5, 5) упорядочить строки по убыванию элементов главной диагонали. ...

Строки матрицы содержащие отрицательные упорядочить по возрастанию, остальные по убыванию
Дана матрица М размерностью 6х6. Строки матрицы содержащие отрицательные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru