одномерные массивы в delphi 7

[Студентос]

Ребят помогите с задачкой. Нужно на delphi 7 составить программу, отыскивающую среди пар элементов одномерного массива M те, разность между которыми есть величина, наибольшая для элементов данного массива.

[Mad_Cat]

max:=abs(a[2]-a[1]);
for i:=3 to n do
if abs(a[i]-a[i-1])>max then max:=abs(a[i]-a[i-1]);
Showmessage(FloatToStr(max));

[Студентос]

Сообщение от Mad_Cat

max:=abs(a[2]-a[1]);
for i:=3 to n do
if abs(a[i]-a[i-1])>max then max:=abs(a[i]-a[i-1]);
Showmessage(FloatToStr(max));

а можете скриншот программы прислать, я просто не знаю как она должна выглядеть. За код спасибо!

[Mad_Cat]

а можете скриншот программы прислать

в асю стукни - я и ехе пришлю и исходники(после оплаты разумеется)

[Serge_Bliznykov]

На мой взгляд, в примере Mad_Cat решается ДРУГАЯ задача: поиск расположенных рядом элементов с заданным свойством.

Где в условии задачи сказано, что пара элементов - это элементы расположенные непосредственно один за другим... Думаю, что нужно проверять каждый элемент массива со всеми оставшимися элементами массива на предмет поиска максимальной разности.

впрочем, переделать это не составит большого труда - два цикла (один вложенный в другой) и задача решена.

Сообщение от Mad_Cat

и исходники(после оплаты разумеется)

Mad_Cat, вымогаете деньги у бедных студентов?

[Mad_Cat]

в примере Mad_Cat решается ДРУГАЯ задача

Делов то

i1=1;
i2=2;
for j:=1 to n do
for i:=1 to n do
if abs(a[i]-a[j])>abs(a[i1]-a[i2])>  then begin i1:=i;i2:=j;end;
Showmessage(IntToStr(i1)+';'+IntToStr(i2));

вымогаете деньги у бедных студентов

я бы перефразировал
Предлагаю удаленно свои руки и голову "бедным" студентам

[Serge_Bliznykov]

продолжаем разговор...

а модуль Вы для чего берёте? я в задании про модуль ничего не увидел..

Предлагаю удаленно свои руки и голову "бедным" студентам

Кому руки и голова программиста?! Недорого!

[Mad_Cat]

а модуль Вы для чего берёте?

Руки вперед головы бегут)

{.......}
uses Math;
begin
{.......}
i1=1;
i2=2;
for j:=1 to n-1 do
for i:=j+1 to n do
if abs(a[i]-a[j])>abs(a[i1]-a[i2])>  then begin i1:=i;i2:=j;end;
Showmessage(FloatToStr(max(a[i1],a[i2]))+';'+FloatToStr(min(a[i1],a[i2]));
{........}
end;

Кому руки и голова программиста?!

Ну программистом я себя не считаю( маловато знаний, да и не в той области я работаю) , скорее сочувствующий

[Serge_Bliznykov]

Сообщение от Serge_Bliznykov

а модуль Вы для чего берёте? я в задании про модуль ничего не увидел..

вчера форум у меня не открывался. ровно через пять секунд после того я отослал своё сообщение и понял, что можно и так, как Вы делать... иначе я бы стёр свой пост. Нормальное у Вас решение!

просто я бы написал вот так:

  for i:=1 to n do
     for j:=1 to n do
       if i<>j then 
          if (a[i]-a[j])>(a[i1]-a[i2])  then begin i1:=i;i2:=j;end;

 Showmessage('максимальная разность равна '+FloatToStr(a[i1]-a[i2])+' при '+
                      ' A['+IntToStr(i1)+'] ='+FloatToStr(a[i1])+
                      ' A['+IntToStr(i2)+'] ='+FloatToStr(a[i2]));

хотя, конечно, у Вас решение более оптимальное, т.к. меньше элементов в цикле будет перебираться..


p.s. а что это за знак ">" перед then ?! следы того, что Вы код набираете прямо в браузере?

[Mad_Cat]

модуль он еще и от

if i<>j then

избавляет
Но тема скорее интересна нам с вами чем ТС