Вниз
Скачать: 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
3-1136983239
Asail
2006-01-11 15:40
2006.03.05
Нужна помощь в написании запроса SQL (SELECT)


4-1134732879
Tapok
2005-12-16 14:34
2006.03.05
Не сохраняется иконка программы в файл


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


2-1140252679
Urvin
2006-02-18 11:51
2006.03.05
Поймать событие зезактивации формы


15-1139654316
s65
2006-02-11 13:38
2006.03.05
тест мини оперы




   Наверх