программирование бесик задачка
Дана последовательность n целых чисел, заканчивающихся 0. Определить,
является ли она возрастающей
составьте программу пожалуйста в basic
Дана последовательность n целых чисел, заканчивающихся 0. Определить,
является ли она возрастающей
составьте программу пожалуйста в basic
> Дана последовательность n целых чисел, заканчивающихся 0.
Как такое возможно? Или чисел ровно n, или последовательность оканчивается нулём и кол-во чисел заранее неизвестно.
Какой Basic? Знающие люди говорят, что их 260 разных диалектов.
DIM x AS INTEGER, Prev AS INTEGER
DIM f AS INTEGER, n AS INTEGER
f = -1
n = 0
PRINT "Вводите числа последовательности (0 - конец ввода): "
INPUT "", Prev
DO WHILE Prev <> 0
n = n + 1
INPUT "", x
IF x <> 0 THEN
f = f AND (x > Prev)
END IF
Prev = x
LOOP
IF n = 0 THEN
PRINT "Последовательность не вводилась. "
ELSEIF n = 1 THEN
PRINT "По одному элементу невозможно определить, "
PRINT "является ли последовательность возрастающей"
ELSE
PRINT "Введена последовательность длиной"; n
PRINT "Последовательность ";
IF NOT f THEN
PRINT "не";
END IF
PRINT "возрастающая"
END IF
END
Вы в слове бесит одну ошибку допустили.
А про задачу - проверяете соседние элементы на возрастание. Если где-то не возрастает - значит разрыв.