ряд фурье

@belka777 · Регистрация: 26.11.2009

Author24 — интернет-сервис помощи студентам

помогите пожалуйста создать функцию для вычисления значения f=a0+ai*sin(x*i)+bi*cos(i*x) в паскале abc bi, ai- одномерный массив

@Puporev · 27.11.2009, 11:31

belka777, А у вас все верно написано в формуле? Может все же f=a0/2+.....

Добавлено через 35 минут
Я суть происходящего не знаю, но судя по условию и уточнению из Википедии код должен выглядеть так.

Pascal

uses crt;
type mas=array[1..100] of real;
function F(x:real;a0:real;a,b:mas;n:integer):real;
var i:integer;
    s:real;
begin
s:=a0/2;
for i:=1 to n do
s:=s+a[i]*sin(i*x)+b[i]*cos(i*x);
F:=s;
end;
 
var n,i:integer;
    a,b:mas;
    x,a0,s:real;
begin
clrscr;
randomize;
write('x=');readln(x);
write('a0=');readln(a0);
write('Размер массивов А, В n=');
readln(n);
writeln('Масив А:');
for i:=1 to n do
 begin
  a[i]:=8*random+1;
  write(a[i]:4:1);
 end;
writeln;
writeln;
writeln('Масив B:');
for i:=1 to n do
 begin
  b[i]:=8*random+1;
  write(b[i]:4:1);
 end;
writeln;
writeln;
write('F(x)=',F(x,a0,a,b,n):0:3);
readln
end.

@belka777 · 27.11.2009, 17:48 **[ТС]**

спасибо большое!!!

@Шутка · 27.11.2009, 17:55

Не по теме:

Ну, Puporev!:jokingly:

@belka777 0 / 0 / 0 Регистрация: 26.11.2009 Сообщений: 13
		1
	ряд фурье 26.11.2009, 23:33. Показов 1104. Ответов 3 Метки нет (Все метки) помогите пожалуйста создать функцию для вычисления значения f=a0+aisin(xi)+bicos(ix) в паскале abc bi, ai- одномерный массив 0

@belka777 0 / 0 / 0 Регистрация: 26.11.2009 Сообщений: 13
	27.11.2009, 17:48 [ТС]	3
	спасибо большое!!! 0

@Шутка
	27.11.2009, 17:55 ряд фурье #4
	Не по теме: Ну, Puporev!:jokingly: 1

Опции темы