Разное - Pascal

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Разное - Pascal

Mishqa

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

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

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

Изменения

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

Вложения


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

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