Уменьшить частоту дискретизации

[chebureker]

Имеем сигнал виброускорения, заданный таблично, точками X и Y, в экселе.
Порядка 10000 значений.
Необходимо сделать программку, которая будет брать значения a1 и a2, считать среднее между ними и записывать в новый файл, далее a3 и a4, снова среднее и т.д, простейший цикл. Грубо говоря тем самым уменьшить частоту дискретизации измерений, сгладить график.

P.S. Пытался на паскале реализовать, но то-ли сам дурак, то-ли лыжи не едут, ошибку по типу данных файла пишет при чтении, пробовал разные типы данных. С числами (1,2,3,4) работает, а с дробными - нет.

[alexcoder]

chebureker, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1

[Pvt]

пишите pvt.marat@yandex.ru

[Larboss]

ТЗ, срок, бюджет: larbossfreelance@yandex.ru Метка: freelance Указывайте ссылку на тему форума.

[Скрипт]

Могу сделать с помощью макроса на языке VBA. Пользователю надо будет щёлкать кнопку в программе Excel.
почта: vba.script@yandex.ru

[chebureker]

uses crt;
var  x,z,c: real;
 p: integer;
    f,y: text; 
begin
assign(f, 'test.txt');
assign(y, 'out.txt');
reset(f);
rewrite(y);
p := 0;
while not eof(f) do
  begin
  readln(f,x); 
  p:=p+1;
  writeln(p);
  if p mod 2 = 0 then begin
  c:=(x+z)/2;
  writeln(y, c);
  z:=0;
  end else z:=x;
end;
close(f);   
close(y);
end.

[digitalis]

Во Фрилансе - халявное решение?! Побьют .

[Larboss]

Сообщение от digitalis

Во Фрилансе - халявное решение?! Побьют .

Это автор темы отписал...

[digitalis]

А, не обратил внимания... "Помоги себе сам" - спроси, сам найди ответ и обнародуй.