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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.03.2016, 17:45   #1
santafer
Пользователь
 
Регистрация: 28.11.2015
Сообщений: 23
По умолчанию локальные максимумы

Дан массив размера NN. Обнулить все его локальные максимумы (то есть числа, большие своих соседей);
выводит одни нули почему ?
Помогите пожалуйста

Код:
var
a:array[1..7] of integer;
i,n:integer;
 
begin
    stringGrid1.rows[2].clear;
    stringGrid1.rows[1].clear;
    randomize;
    n:=StrToInt(Edit1.Text);
    for i:=1 to n do
       begin
         StringGrid1.Cells[i,1]:=IntToStr(random(100));
       end;
         for i:=1 to N do
       if (a[i-1]<a[i]) and (a[i]>a[i+1])
           then a[i]:=0;
       if a[1] > a[2]
           then a[1]:=0;
       if a[N] > a[N-1]
           then a[N]:=0;
           for i:=1 to N do
         StringGrid1.Cells[i,2]:=intToStr(a[i]);
         end;
santafer вне форума Ответить с цитированием
Старый 04.03.2016, 17:55   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Их сначала нужно найти все, и только после этого обнулить.
Код:
for i:=1 to N do
       if (a[i-1]<a[i]) and (a[i]>a[i+1])
           then a[i]:=0;
Здесь индекс вылезет за пределы массива
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Посчитать максимумы Маша906 Помощь студентам 1 14.07.2014 10:59
Minmax-минимумы и максимумы. L01 Помощь студентам 9 14.04.2012 09:30
Минимумы и максимумы Абай Паскаль, Turbo Pascal, PascalABC.NET 3 13.06.2011 22:55
минимумы и максимумы Delphin-666 Общие вопросы Delphi 9 15.06.2010 09:07
Найти максимумы Alisa19 Помощь студентам 0 28.04.2010 19:08