Дан файл вещественных чисел

[bbs-serega]

Дан файл вещественных чисел.Заменить в файле каждый элемент,кроме начального и конечного,на его среднее арифметическое с предыдущим и последующим элементом.

[Leo08]

Напишите на Leo08@xaker.ru

[rrrFer]

ICQ 395-546-218
Напишу на С++ или Prolog

[flance]

C++, Pascal. Сделаю быстро, с комментариями. Недорого. flancejob@ya.ru

[ibarinov]

100 р, пишите ibarinov@krista.ru

[sheka]

Сделаю в лучшем виде!
255507394

[Loveb]

Могу даже за 50р, как раз сегодня делать нечего.
vano_loveb@mail.ru

[Leo08]

Опять начинается...
Господа "Начинающие себя уважать" программисты. Зачем в погоне за заработком занижать цены???

[sheka]

Leo08, никто не занижает, почему же?
Булочка (а именно столько стоит кекс с изюмом, сверху пудра, а также его вес аж 500грамм) это достойное вознаграждение.
Обидно что чай к ней уже не купишь.

[Rififi]

bbs-serega

Дан файл вещественных чисел.Заменить в файле каждый элемент,кроме начального и конечного,на его среднее арифметическое с предыдущим и последующим элементом.

Программа на Rus-C++

#включить <ввструя>
#включить <фструя>
#включить <повторитель>

#включить <алгоритм>
#включить <функционал>
#включить <вектор>

типопр стд::вектор<плавающий> В;

пусто прочитать(В& в)
{
	типопр стд::вхструя_повторитель<плавающий> И;

	стд::вхфструя ифс("числа.txt");
	стд::копировать(И(ифс), И(), стд::взад_вставлятель(в));
}

пусто записать(нетрогать В& в)
{
	типопр стд::вызструя_повторитель<плавающий> О;

	стд::выхфструя офс("числа.txt");
	стд::копировать(в.начало(), в.конец(), О(офс, " "));
}

целый главный()
{
	В в;

	прочитать(в);
	if (в.размер() < 3)
		вернуть 0;

	В н;
	н.толкнуть_взад(в.фронт());

	для (размер_т ой=1; ой<в.размер() - 1; ой++)
	{
		нетрогать плавающий сумма = в[ой-1] + в[ой] + в[ой + 1];
		н.толкнуть_взад(сумма / 3.п);
	}

	н.толкнуть_взад(в.взад());
	записать(н);

	вернуть 0;
}