Вниз
Скачать: CL | DM;

Подкинули задачку...   Найти похожие ветки 

← →
unknown ©   (2006-02-10 02:20) [0]

уже часа 3 бъюсь, не могу решить. В сети посмотрел - эта задача сплошь и рядом в заданиях контрольных работ, а решения нигде нет :/
И выглядит с виду просто :
{-------------------------------------------------------------------------------}
{В массиве из Х чисел каждый третий элемент заменить полусуммой двух предыдущих,}
{а стоящий перед ним — полусуммой соседних с ним элементов.                     }
{дополнительный массив не использовать.                                         }
{-------------------------------------------------------------------------------}

Может быть поможете?


← →
Рамиль ©   (2006-02-10 09:08) [1]


 i := 2;
 while i <= X do
 begin
   a := m[i - 1];
   m[i - 1] := (m[i - 2] + m[i]) / 2;
   m[i] := (m[i - 2] + a) / 2;
   inc(i, 3);
 end;

Или дополнительную переменную тоже нельзя использовать?..


← →
MBo ©   (2006-02-10 09:24) [2]

без временной переменной:
даны a,b,c
c = c - b
b = a +b +c  //a+c исходные
c = b - c      //a+c-c+b=a+b  исходные
b = b/2
c = c/2


← →
SergP.   (2006-02-10 10:49) [3]


> Или дополнительную переменную тоже нельзя использовать?.
> .


Одну переменную (индекс массива) все равно придется использовать... Да и в условии ничего не сказано про дополнительные переменные, только про то что нельзя использовать доп. массивы...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c
1-1138950001
Комбинатор
2006-02-03 10:00
2006.03.05
Ошибка памяти в Win98


1-1138621521
DelphiLexx
2006-01-30 14:45
2006.03.05
DBGridEh работа с checkboxes


15-1139317557
Progger
2006-02-07 16:05
2006.03.05
чем Delphi 5 хуже более поздних версий? Или лучше?


2-1139849540
Rodelim
2006-02-13 19:52
2006.03.05
Проблемма в ADO с переносом кода


2-1140011652
VanDet
2006-02-15 16:54
2006.03.05
Здравствуйте помогите пожалуйста




   Наверх