Разное - Pascal

Разное - Pascal

Mishqa

Новый участник

Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения

Автор: Drongo
Дата: 16-12-2009
Описание: [code]...[/code] Тег код - #

Вложения


	формула(6).doc
(17.5 Kb, 5 просмотров)

у меня есть программа и задание(указаны ниже) в результате программа должна выдать результат 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.

Отправлено: 18:32, 16-12-2009

vanecki

Старожил

Сообщения: 157
Благодарности: 8

Профиль | Отправить PM | Цитировать

Mishqa, Вам себя не жалко? Тогда пожалейте других! Я понимаю, что у каждого свой стиль программирования, но постарайтесь делать код с отступами и добавлять коментарии.

Отправлено: 20:37, 16-12-2009 | #2