Mishqa
16-12-2009, 18:32
у меня есть программа и задание(указаны ниже) в результате программа должна выдать результат Zns =-0.0097958 но увы у меня не получается достичь такого результата,прошу проверьте программу и помогите с правильным написанием,помогите пожалуйста
Задание: вычислить двойную сумму ряда с заданным количеством повторов,формула во Вложениях
Программа:
uses crt;
var Vns,Zns,y,zn,fact,x:real;
i,j:integer;
begin
clrscr;
writeln('vvedite x=0.72 ');
readln(x);
writeln('Rezyltat vuchislenij : ');
writeln(' j ',' Zns ',' Vns');
Zns:=0;
j:=6;
Repeat
Vns:=0;
zn:=-1;
fact:=2;
for i:=1 to 10 do
begin
y:=zn*(exp((i+x)*ln(x))+i)/(fact+j*j);
Vns:=Vns+y;
zn:=-zn;
fact:=fact*(i+1);
end;
Zns:=Zns+Vns;
writeln(j:3,Zns:15:6,Vns:15:6);
j:=j+1;
until j>16 ;
writeln('Zns=',Zns:15:6);
readkey;
end.
Задание: вычислить двойную сумму ряда с заданным количеством повторов,формула во Вложениях
Программа:
uses crt;
var Vns,Zns,y,zn,fact,x:real;
i,j:integer;
begin
clrscr;
writeln('vvedite x=0.72 ');
readln(x);
writeln('Rezyltat vuchislenij : ');
writeln(' j ',' Zns ',' Vns');
Zns:=0;
j:=6;
Repeat
Vns:=0;
zn:=-1;
fact:=2;
for i:=1 to 10 do
begin
y:=zn*(exp((i+x)*ln(x))+i)/(fact+j*j);
Vns:=Vns+y;
zn:=-zn;
fact:=fact*(i+1);
end;
Zns:=Zns+Vns;
writeln(j:3,Zns:15:6,Vns:15:6);
j:=j+1;
until j>16 ;
writeln('Zns=',Zns:15:6);
readkey;
end.