Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.05.2013, 15:16   #1
Mariolka
Пользователь
 
Регистрация: 14.12.2012
Сообщений: 25
По умолчанию запись массива

Подскажите как записать на языке паскаль выражение, что в массиве элемент больше рядомстоящих. в си записывается так:
c=str[0];
for(i=1; i<n; i=i+1)
{
if(str[i]>c && str[i+1]>str[i])
вот не могу понять как сделать это же выражение в паскаль.
Mariolka вне форума Ответить с цитированием
Старый 09.05.2013, 15:22   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,289
По умолчанию

Код:
if (str[i] > str[i - 1]) and (str[i] > str[i + 1]) then
Точнее, эта запись обозначает, что str[i] больше своих "соседей". В Вашем же коде идет сравнение на то, что str[i - 1] < str[i] < str[i + 1], то есть составляют возрастающую последовательность.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 09.05.2013 в 15:24.
BDA вне форума Ответить с цитированием
Старый 09.05.2013, 15:33   #3
Mariolka
Пользователь
 
Регистрация: 14.12.2012
Сообщений: 25
По умолчанию

Спасибо болшьшое)) все работает))
Mariolka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запись массива в sql Eugene_M C# (си шарп) 0 04.03.2013 12:29
Запись массива в файл Стремящийся Общие вопросы по Java, Java SE, Kotlin 12 26.06.2012 16:19
запись массива в файл lel-lis Общие вопросы C/C++ 6 25.01.2010 17:46
запись массива в файл Владимир1988 Помощь студентам 3 19.01.2010 09:25
запись Массива в БД Chepa БД в Delphi 4 26.12.2006 18:58