Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ Выражение на Pascale

Автор: Ангел 9.3.2009, 15:51

x-x^3/3!+x^5/5!-x^7/7!+x^9/9!-x^11/11!+x^13/13!
Помогите пожалуйста!
В моей программе так же отсутствует смена знаком с + на -, если можно напишите как!



var p, n, h, x: integer;
s, f, g, s1: real;

procedure stepen(o,p: longint; var s: real);
var i: integer;
begin
s:= 1;
For i:= 1 to p do
s:= s*o;
end;

procedure fakt(n: longint; var f: real);
var i: longint;
begin
f:=1;
for i:=1 to n do
f:=f*i;
end;

begin
read(x);
s:=0;
p:=1;
n:=1;
s1:=0;
f:=1;

for h:= 1 to 7 do
begin
stepen(x,p,s);
p:= p+2;
fakt(n,f);
g:= s/n;
s1:= s1+g;
n:= n+2;
end;
writeln(s1);
end.

Автор: Ангел 9.3.2009, 16:23

Все уже сама все додумала. Кому надо смотрите

var p, n, h, x: integer;
s, f, g, s1: real;

procedure stepen(o,p: longint; var s: real);
var i: integer;
begin
s:= 1;
For i:= 1 to p do
s:= s*o;
end;

procedure fakt(n: longint; var f: real);
var i: longint;
begin
f:=1;
for i:=1 to n do
f:=f*i;
end;

begin
read(x);
s:=0;
p:=3;
n:=3;
s1:=0;

for h:= 1 to 6 do
begin
stepen(x,p,s);
p:= p+2;
fakt(n,f);
g:= s/f;
s1:= s1+g;
n:= n+2;
s1:=-s1;
end;
s1:= x-s1;
writeln(s1);
end.

Автор: tig81 9.3.2009, 16:45

Молодец! thumbsup.gif

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)