Технический форум

Технический форум (http://www.tehnari.ru/)
-   Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)
-   -   Одномерный массив (http://www.tehnari.ru/f43/t58867/)

Alexxxxxxx 23.10.2011 19:57

Переменной X присвоить 1 , если элементы массивы B(40) образуют возрастающую последовательность и значение 0 в противном случае . Помогите плз !!!
В паскале надо решить)))

AlexZir 24.10.2011 06:03

Примерный алгоритм решения:
заполняете исходный массив, обнуляете переменную X, в цикле анализируем текущий и следующий элементы, причем цикл от 0 до 39, а не до 40 (чтобы не было ошибки). Анализ следующий: если текущий элемент меньше следующего, то X:=1, иначе X:=0. По окончании цикла выводите текущее значение переменной X.

Rossomaxa 24.10.2011 09:30

Я бы задал значение переменной до начвла цикла как 1, а в цикле в случае, если очередное значение несоответствует, менял его на 0 и выходил из цикла

AlexZir 24.10.2011 10:01

А кто мешает при 0 прервать выполнение цикла? Вообще, сколько программистов - столько и решений, и каждое будет с точки зрения автора единственно верным :))

Rossomaxa 24.10.2011 10:15

Не зря же програмный код приравнивается к творческому произведению :tehnari_ru_203:


Часовой пояс GMT +4, время: 21:53.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.