Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
197 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 644
1

Является ли последовательность чисел возрастающей

17.05.2020, 10:59. Просмотров 152. Ответов 4
Метки нет (Все метки)

С клавиатуры вводятся числа. Определить, является ли последовательность чисел возрастающей или нет.
Было множество ответов на эту тему: и с WHILE, и с repeat, и с loop until, и с флажком, и без него, и длинные, и не очень.
А вот такие простые программы с циклом FOR:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
    FOR I = TO 2
    INPUT “ Ввести число: “, a
              INPUT “ Ввести число: “, b
            INPUT “ Ввести число: “, c
            INPUT “ Ввести число: “, d
IF a < b AND b < c AND c < d THEN
   PRINT “ Числа возрастают”
      ELSE
   PRINT “ Числа в беспорядке”
       END IF:  PRINT
   NEXT i
На выходе имеем:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
Ввести число:  11
Ввести число:  5
Ввести число:  9
Ввести число:  7
Числа в беспорядке
 
Ввести число:  5
Ввести число:  7
Ввести число:  9
Ввести число:  11
Числа в возрастают
Программа простейшая и работает при любом вводе чисел.
А вот вариант программы:
QBasic/QuickBASIC
1
2
3
4
5
6
7
CLS
   FOR I = 1 TO 4
INPUT “ Ввести число: “, a(i)
IF a(i) < a(I + 1) THEN
    END IF
   NEXT i
PRINT “ Числа возрастают”
На выходе имеем:
QBasic/QuickBASIC
1
2
3
4
5
Ввести число:  5
          Ввести число:  7
Ввести число:  9
Ввести число:  11
Числа в возрастают
А добавив к ней строки:
QBasic/QuickBASIC
1
2
3
ELSE
                                         PRINT “ Числа в беспорядке” 
                                             END IF
получаем отказ: то ELSE без IF, то NEXT без FOR.
Как же сделать эту программу работающей?
Ещё вариант программы:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
CLS
   FOR I = 1 TO 4
INPUT “ Ввести число: “, A
   NEXT i
IF  A < (A + 1) THEN
PRINT “ Числа возрастают”
   ELSE
PRINT “ Числа в беспорядке”
   END IF
Почему при вводе любых чисел (5, 7, 9, 11 и 11, 5, 9, 7) на выходе печатается только строка:
«Числа возрастают»?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2020, 10:59
Ответы с готовыми решениями:

Проверить, является ли последовательность чисел строго возрастающей
С клавиатуры вводятся числа до первого отрицательного. Определить, является ли последовательность...

Определить, является ли последовательность чисел строго возрастающей
С клавиатуры вводятся числа до первого отрицательного. Определить, является ли последовательность...

Проверить, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей
Составить программу , проверяющую, является ли последовательность из 10 целых чисел, вводимых с...

Определить, является ли последовательность чисел строго возрастающей или беспорядочной
С клавиатуры вводятся числа до первого отрицательного. Определить, является ли последовательность...

4
33 / 26 / 6
Регистрация: 09.05.2020
Сообщений: 88
Записей в блоге: 7
17.05.2020, 19:55 2
Ответ № 2 на вопрос Petro29,
Является ли последовательность чисел возрастающей
В предыдущей задачке Вы чётко написали ОШИБКУ, поэтому легко было Вам ответить.
Здесь же Вы не показываете -куда вставляете ELSE, поэтому тяжело ответить.

Но попробую....


QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
   FOR I = 1 TO 4
 
INPUT “ Ввести число: “, a(i)
 
IF a(i) < a(I + 1) THEN
    
      PRINT “ Числа возрастают”
 
ELSE
  PRINT “ Числа в беспорядке”
END IF
   NEXT i
Обратите внимание на строки 10-11 - здесь должно исполняться ваше желание...

И последняя задачка
Здесь вообще грубая ошибка

(ВАШ ВАРИАНТ)

QBasic/QuickBASICВыделить код
CLS
FOR I = 1 TO 4
INPUT “ Ввести число: “, A
NEXT i
IF A < (A + 1) THEN
PRINT “ Числа возрастают”
ELSE
PRINT “ Числа в беспорядке”
END IF

Вы тут, как понимаю, желаете сразу ввести 4 числа "А",
но вы не придумали-как их накапливать, поэтому оно принимает в конце только последнее значение, да еще проверяете на его самое +1 .... очень грубая ошибка

А надо применить или массив или просто 4 переменные.
но судя по вашим пробам-вы не пока не потянете ни то и ни то
но смотря на ваш пример-короткий код сделать через массив.
итак:

(А ТАК НАДО)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
CLS
DIM A(4)
   FOR I = 1 TO 4
     INPUT “ Ввести число: “, A(I)
     IF  A(I-1) < A(I) THEN
       PRINT “ Числа возрастают”
     ELSE
       PRINT “ Числа в беспорядке”
     END IF
   NEXT i

Мой совет: сначала расписывайте математическую модель на бумаге, то есть просто пишите на бумаге строго по шагам -
что идет сначал, а что потом...
прямо так:
1. очистить экран
2. взять число
3. проверить его на что-то
4.если условие выполнилось, то перейти к п.5
5. напечатать ответ
6. проверить, сколько раз ввели число
7. если достаточно то перейти на конец программы
8. если нет, перейти к п.2
9. если п.4 не выполнился, то перейти к 10.
10. напечатать ответ
11. перейти к п.6



и все это с калькулятором и записью ответов на бумаге

Можно и блок-схему рисовать, если знаете как это делается.
Лично я блок-схемы рисую-поверьте, помогает.

А потому уже переходите конкретно к программированию.

Добавлено через 5 минут
ух ты.... сейчас пересматриваю предыдущие задачки, и оказалось, что их и в2017 году спрашивали ???????????

НЕ понимаю............. Теряю время....

Добавлено через 6 минут
Кое-что стало известно, и, возможно, и дальше буду помогать Petro29.

А если я ошибаюсь, то ничего страшного - с меня не убудет.


Petro29, если моё поведение оказалось грубоватым, прошу меня извинить...
0
197 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 644
24.05.2020, 08:40  [ТС] 3
vedunasv, спасибо в любом случае)
0
33 / 26 / 6
Регистрация: 09.05.2020
Сообщений: 88
Записей в блоге: 7
24.05.2020, 09:16 4
Petro29, спрашивайте, без ответа не оставлю.
0
4500 / 1356 / 378
Регистрация: 25.04.2010
Сообщений: 3,582
24.05.2020, 15:26 5
Как же вы задолбали уже засирать интернет своими потоками сознания. Сраные говноблогеры...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2020, 15:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана последовательность N целых чисел,заканчивающихся 0. Определить является ли она возрастающей
Дана последовательность N целых чисел,заканчивающихся 0. Определить является ли она возрастающей....

Цикл с параметром: определить, является ли заданная последовательность чисел возрастающей
Помогите написать программу. Дана последовательность n целых чисел. Определить, является ли она...

Является ли последовательность возрастающей
Вводится последовательность ненулевых чисел, 0 - конец последовательности. Определить, является ли...

Определить, является ли последовательность возрастающей
Дана последовательность n целых чисел, заканчивающихся 0. Определить, является ли она...

Выяснить, является ли последовательность возрастающей
Дана последовательность действительных чисел a1,a2,a3,..,an. Выяснить, будет ли она возрастающей......

Определить, является ли последовательность возрастающей
Помогите,пожалуйста,решить задачу...СРОЧНО! на VBA Дана последовательность n целых чисел,...


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

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

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