Вниз
Скачать: 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.027 c
1-1138612731
yaroslav
2006-01-30 12:18
2006.03.05
вопрос о ToolBar


1-1138383597
guitarist
2006-01-27 20:39
2006.03.05
Компонент за пределами формы


1-1138959745
-=Fes=-
2006-02-03 12:42
2006.03.05
FileExists в Delphi 2005


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


2-1139900998
r.o.o.t
2006-02-14 10:09
2006.03.05
Непонятки в трехзвенке




   Наверх