Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2011, 17:02   #1
idmessage
Новичок
Джуниор
 
Регистрация: 10.01.2011
Сообщений: 4
По умолчанию Не понимаю две строчки в коде по сумме ряда.

Код:
program summa;
function fact(n:integer):longint;
var 
   i:integer;
   ff:longint;
begin
  ff:=1;
  for i:=2 to n do
   ff:=ff*i;
  fact:=ff;
end;
var
  i,j,zn:integer;
  y,x,zovn,vnutr:real;
begin
x:=0.64;
zovn:=0;
for j:=6 to 16 do
begin
 vnutr:=0;
 i:=1;
 zn:=-1;
 while i <= 10 do
 begin
  y:=zn*(exp((i+x)*ln(x))+i)/(fact(3*i)+sqr(j));;
  vnutr:=vnutr+y;
  zn:=-zn;
  i:=i+1;
 end;
 zovn:=zovn + vnutr;
end;
writeln(zovn);
end.
У меня 13 числа екзамен по Паскалю. Прогу по сумме ряда я написать смогу. И все обьясеить смогу, только я незнаю зачем и что значет zn:=-1; и zn:=-zn;. Помогите плиз.
idmessage вне форума Ответить с цитированием
Старый 10.01.2011, 17:16   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Это для того чтобы знак поменять! То есть допустим у вас ряд
1-2+3-4+5 и тд;
И вы берёте поочерёдно то + то -
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 10.01.2011, 17:25   #3
idmessage
Новичок
Джуниор
 
Регистрация: 10.01.2011
Сообщений: 4
По умолчанию

А зачем менять знак?
idmessage вне форума Ответить с цитированием
Старый 10.01.2011, 17:36   #4
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Ну вот на ряд смотрите!
1-2+3-4+5
Вы не можете каждый член ряда просуммировать! Вам надо отнять потом сложить и тд
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 10.01.2011, 18:24   #5
idmessage
Новичок
Джуниор
 
Регистрация: 10.01.2011
Сообщений: 4
По умолчанию

Вот задания http://s002.radikal.ru/i200/1101/4b/27e5fdc0da23.jpg
idmessage вне форума Ответить с цитированием
Старый 10.01.2011, 18:28   #6
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

занимательно)только я ничего не понел!
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Читаю книгу (С++ без страха) и не понимаю разницу в коде shahist Общие вопросы C/C++ 10 13.08.2010 01:12
Турбо паскаль:программа находящая сумму ряда(необходимо найти ошибку в коде) Galchonok Помощь студентам 5 12.06.2010 15:10
Необычная степень числа в сумме ряда Cкулаб Общие вопросы Delphi 4 08.06.2009 20:27
Найти сумму ряда с точностью e, если дан общий член этого ряда JiLiYa Общие вопросы C/C++ 2 18.02.2009 11:11
Две задачки на матрицы и одна на сумму бесконечного сходящегося ряда... Кто сможет помочь? GorNikSar Паскаль, Turbo Pascal, PascalABC.NET 10 13.01.2009 04:59