Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Pollywog
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 48
#1

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

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

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

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

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

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

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

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

Упорядочить столбцы матрицы по убыванию произведений их элементов - QBasic
Помогите решить задачу Дана матрица целых чисел 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 / 13
Регистрация: 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
5234 / 781 / 213
Регистрация: 25.02.2011
Сообщений: 1,070
Записей в блоге: 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
4379 / 1260 / 209
Регистрация: 25.04.2010
Сообщений: 3,073
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
Привет! Вот еще темы с ответами:

Даны четыре действительных числа - Turbo Pascal
Даны четыре действительных числа a,b,c,d. Если сумма максимального и минимального равна сумме двух других, то все числа заменить этой...

Ввести и упорядочить по убыванию четыре массивы, которые содержат N целых чисел - Pascal
Ввести и упорядочить по убыванию четыре массивы, которые содержат соответственно 5,4,6,7 целых чисел.

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

Задали массив действительных чисел х1, х2, ..., хn. Упорядочить элементы этого массива по убыванию. - C++
Всем привет ! Прошу помощи в задании. Учить С++ только начал, поэтому прошу помощи у Вас. Вот условие: Задали массив действительных чисел...


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

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

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