Помогите с одной задачкой на Паскале

zhenia60 · 08.01.2011, 22:03

Вычислить сумму 1/3-5/7+7/9-9/11+... Число слагаемых задаётся с клавиатуры.

kreol · 08.01.2011, 22:17

или вы пропустили один член ряда или я чего-то не пойму... по идее должно быть
1/3-3/5+5/7-7/9+9/11+...+(-1)^2n*(2n-1)/(2n+1)

zhenia60 · 08.01.2011, 22:55

так и есть... я пропустил члены ряда! грешен!

AlexZir · 09.01.2011, 07:48

Формулу в общем виде вам почти дали, используя её и цикл "пока" - пишите программу, там ничего особо сложного нет.

Vladimir_S · 09.01.2011, 08:07

Цитата:

Сообщение от AlexZir

Формулу в общем виде вам дали, используя её и цикл "пока" - пишите программу, там ничего особо сложного нет.

Ну, положим, формулу дали не то, чтобы правильную, ибо (-1)^2n никакой знакопеременности не обеспечит, поскольку (-1), будучи в четную степень возведенной, завсегда единицею будет. Я бы предложил вариант [(-1)^(n-1)]*(2n-1)/(2n+1).

AlexZir · 09.01.2011, 09:07

это мелочи по сравнению с мировой революцией

Как я уже писал - предлагайте свой вариант, а тут вас поправят, за вас вашу работу никто делать не будет, халява тут не очень приветствуется.

zhenia60 · 09.01.2011, 23:10

Program Vika;
var N, i, S: real;
begin
write('Введите число слагаемых N=');
readln(N);
S:=0;
i:=1;
while i<=N do
begin
S:=S+exp(n-1*ln(-1))*(2*n-1)/(2*n+1);
end;
write('Сумма S=', S);
end.

простите, но я лошара в программировании. Уж исправьте, что неправильно! грешна! так или не так? Но программа не работает...

zhenia60 · 09.01.2011, 23:13

Скажите, как представить Ln(-1)? И, вообще, он существует ли?

Vladimir_S · 10.01.2011, 09:28

Цитата:

Сообщение от zhenia60

Скажите, как представить Ln(-1)? И, вообще, он существует ли?

Нет, не существует. Функция логарифм (не зависимо от основания) определена в диапазоне 0<x<=∞, а потому такой способ изменения знака не годится. Кроме того, у Вас абсолютно неправильно построен цикл: вместо того, чтобы в каждое слагаемое подставлять свое значение переменной цикла i, Вы все их считаете с постоянной величиной n. И уж если Вы используете цикл while - do, то не забывайте в его теле принудительно увеличивать значение переменной цикла i, т.е. нужно написать что-то вроде i:=i+1.
Всех этих неприятностей и проблем можно избежать, если:
1. Ввести пользовательскую функцию Sign (знак), возвращающую +1 для нечетных слагаемых и -1 для четных.
2. Задать формат переменных N и i целочисленным, а не вещественным - тогда можно обойтись обычным циклом for i:=1 to N do.
Итого:

Код:

Program Vika;
 var
  N,i:Integer;
  S: real;

Function Sign(m:Integer):Integer;
 begin
  if (m mod 2)=0 then Sign:=-1 else Sign:=1;
 end;

begin
 write('Введите число слагаемых N= ');
 readln(N);
 S:=0;
 for i:=1 to N do
  S:=S+(2*i-1)/(2*i+1)*Sign(i);
 writeln('Сумма S= ', S);
 readln;
end.

Ну или другой вариант - без функции. Например, так:

Код:

Program Vika;
 var
  N,i:Integer;
  a,S: real;

begin
 write('Введите число слагаемых N= ');
 readln(N);
 S:=0;
 for i:=1 to N do
  begin
   a:=(2*i-1)/(2*i+1);
   if (i mod 2)=0 then a:=-a;
   S:=S+a;
  end;
 writeln('Сумма S= ', S);
 readln;
end.

08.01.2011, 22:03	#1 (permalink)
zhenia60 Новичок Регистрация: 08.01.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с одной задачкой на Паскале Вычислить сумму 1/3-5/7+7/9-9/11+... Число слагаемых задаётся с клавиатуры.

09.01.2011, 07:48	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Формулу в общем виде вам почти дали, используя её и цикл "пока" - пишите программу, там ничего особо сложного нет. __________________ Убить всех человеков! Последний раз редактировалось AlexZir; 09.01.2011 в 09:07 Причина: ;)

09.01.2011, 09:07	#6 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	это мелочи по сравнению с мировой революцией Как я уже писал - предлагайте свой вариант, а тут вас поправят, за вас вашу работу никто делать не будет, халява тут не очень приветствуется. __________________ Убить всех человеков!

08.01.2011, 22:17	#2 (permalink)
kreol Member Регистрация: 27.02.2010 Сообщений: 659 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1312	или вы пропустили один член ряда или я чего-то не пойму... по идее должно быть 1/3-3/5+5/7-7/9+9/11+...+(-1)^2n*(2n-1)/(2n+1)

08.01.2011, 22:55	#3 (permalink)
zhenia60 Новичок Регистрация: 08.01.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	так и есть... я пропустил члены ряда! грешен!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

09.01.2011, 23:10	#7 (permalink)
zhenia60 Новичок Регистрация: 08.01.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Program Vika; var N, i, S: real; begin write('Введите число слагаемых N='); readln(N); S:=0; i:=1; while i<=N do begin S:=S+exp(n-1ln(-1))(2n-1)/(2n+1); end; write('Сумма S=', S); end. простите, но я лошара в программировании. Уж исправьте, что неправильно! грешна! так или не так? Но программа не работает...

09.01.2011, 23:13	#8 (permalink)
zhenia60 Новичок Регистрация: 08.01.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Скажите, как представить Ln(-1)? И, вообще, он существует ли?