Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Прочее";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.208 c
15-1139682940
alexdid
2006-02-11 21:35
2006.03.05
VMWARE windows xp prof sp2


2-1140072645
Bratskiy
2006-02-16 09:50
2006.03.05
TTreeView вставка объекта


2-1139870282
Alsan
2006-02-14 01:38
2006.03.05
Как скопировать папку с файлами в Delphi ???


2-1140251499
Vandet
2006-02-18 11:31
2006.03.05
Здравствуйте помогите пожалуйста


2-1140010954
micky_
2006-02-15 16:42
2006.03.05
Плавающие связи





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский