Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
 Аватар для DjonyDep
2 / 2 / 1
Регистрация: 25.11.2009
Сообщений: 121

Сумма ряда

24.02.2010, 09:19. Показов 1382. Ответов 13
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вычислить сумму или произведение ряда согласно варианту. Значение переменной n вводится с клавиатуры. Значения членов ряда вывести на экран в строку.

https://www.cyberforum.ru/cgi-bin/latex.cgi?S=-1+\frac{1}{2}-\frac{1}{4}+\frac{1}{8}-\dots+\frac{\left(-1 \right)^n}{2^{n-1}}
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.02.2010, 09:19
Ответы с готовыми решениями:

Найти R=(Х+Y)/Z,где Х-сумма всех элементов массива А(14), Y-сумма всех элементов массива В(9),Z-сумма всех элементов массива С(11)
Заданы три массива:А(5),В(8) и С(12). Найти R=(Х+Y)/Z,где Х-сумма всех элементов массива А(14),...

Найти сумму ряда до члена ряда с заданным номером, и найти сумму ряда с заданной точностью
№1. Дано натуральное число n. Вычислить \sum_{i=1}^n\frac{1+i}{i!} №2. Вычислить формулу...

Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых строго мень
Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить...

13
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
24.02.2010, 11:14
DjonyDep, Ага, а где условия прекращения цикла? Ну то есть, до какого времени, точности узнавать сумму ряда?
0
 Аватар для DjonyDep
2 / 2 / 1
Регистрация: 25.11.2009
Сообщений: 121
24.02.2010, 11:17  [ТС]
щас примеро напишу!
0
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
24.02.2010, 11:22
DjonyDep, что значит примерно? Обычно такие условия задаются в задании, ну например:
Пока очередной член ряда не станет меньше E (E задаётся с клавиатуры)
Или
Посчитать первые 100 членов ряда
Что-то в таком духе.
0
 Аватар для DjonyDep
2 / 2 / 1
Регистрация: 25.11.2009
Сообщений: 121
24.02.2010, 11:27  [ТС]
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var i, n: integer;
s,e,sum:real;
begin
clrser;
write ('n=');
read (n);
for i:= 1  to  n  do 
 begin 
   e:=exp(0.1*i);
   sum:=sum+e;
   write('e^',0.1*i:1:1,e:'2:2,',');
end;
writeln ;
writeln ('-----------------------');
writeln ('summa=', sum:2:3);
end.
Вот одна из задачь которую взял у одногрупника, могу картинку выслать!!!

Добавлено через 1 минуту
наверное n вводиться с клавиатуры!!!

Добавлено через 55 секунд
Вот у него же написано
Pascal
1
write ('n=');
0
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
24.02.2010, 11:28
DjonyDep, Вы поймите на то, как я решу эту задачу влияет условие задачи. Условие должно быть чётким, если оно не такое, то и решать я не буду такую задачу. Если Вам что-либо не понятно в задании (а в нашем случае это именно так), то Вам следует обратиться к преподавателю с уточняющим вопросом или спросить у одногруппников, а вдруг они слышали про условия которые оговаривал преподаватель.
0
 Аватар для DjonyDep
2 / 2 / 1
Регистрация: 25.11.2009
Сообщений: 121
24.02.2010, 14:56  [ТС]
Кто нибудь посмотрите, помогите!!!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var i, n: integer;
e,sum:real;
begin
clrscr;
write ('n=');
read (n);
sum:=0;
for i:= 1  to  n  do 
 begin 
   e:=(exp(ln(1)*n))/(exp(ln(2)*(n-1)));
   sum:=sum+e;
   write(тут надо написать чтоб все значения выводились по порядку!!! вот ка это сделать не знаю!);
end;
writeln ;
writeln ('-----------------------');
writeln ('summa= ', sum:2:3);
end.
Добавлено через 1 час 27 минут
Ошибочка
Pascal
1
e:=(exp(ln(-1)*n))/(exp(ln(2)*(n-1)));
А как возводить отрецательную степень???

Добавлено через 26 минут
Буду ждать ответа!!!
0
 Аватар для DjonyDep
2 / 2 / 1
Регистрация: 25.11.2009
Сообщений: 121
28.02.2010, 14:40  [ТС]
Как мне доделать эту задачу кто нибудь знает?

Добавлено через 2 минуты
lexus_ilia, на картинки правельное условие, сумма ряда - это ж с математики, когда я у неё спросил у "учительницы" она меня пос**ла мне бы хоть чтоб работала - эта задача, а там всё равно!!!...
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
28.02.2010, 22:06
На картинке ошибка, судя по формуле общего члена должно быть
-1+1/2-1/4+1/8-1/16.........
Решается так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n,i:integer;
    s,t:real;
begin
clrscr;
write('n=');
readln(n);
s:=-1;
t:=-1;
write(t:10:6);
for i:=2 to n do
 begin
  t:=-t/i;
  write(t:10:6);
  s:=s+t;
 end;
writeln;
write('S=',s:0:10);
readln
end.
1
 Аватар для DjonyDep
2 / 2 / 1
Регистрация: 25.11.2009
Сообщений: 121
01.03.2010, 15:59  [ТС]
Цитата Сообщение от Puporev Посмотреть сообщение
На картинке ошибка, судя по формуле общего члена должно быть
-1+1/2-1/4+1/8-1/16.........
Решается так.
Вы правы так и должно быть, запустил вашу программу в паскаль, ввел n=5 он выдал члены ряда : -1 0.5 -0.17 0.04 -0.01 (- это не так должно, должно быть -1+1/2-1/4+1/8-1/16.........)

S = -0.63
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.03.2010, 17:45
Цитата Сообщение от DjonyDep Посмотреть сообщение
это не так должно, должно быть -1+1/2-1/4+1/8-1/16......
Я понимаю что ты это от большого ума написал, но должен же быть предел....
0
 Аватар для DjonyDep
2 / 2 / 1
Регистрация: 25.11.2009
Сообщений: 121
01.03.2010, 20:12  [ТС]
Цитата Сообщение от Puporev Посмотреть сообщение
Я понимаю что ты это от большого ума написал, но должен же быть предел....
Я всё понимаю, но может сделать как нибудь так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n,i:integer;
    s,t:real;
begin
clrscr;
write('n=');
readln(n);
s:=-1;
t:=-1;
write(t:10:6);
for i:=2 to n do
 begin
  t:=(exp(ln(-1)*i))/(exp(ln(2)*(i-1)));
  write(t:10:6);
  s:=s+t;
 end;
writeln;
write('S=',s:0:10);
readln
end.
В условии задачи ведь стоит формула (exp(ln(-1)*n))/(exp(ln(2)*(n-1)))
она же должна быть!

Вывод должен быть следующий...
-1 0.5 -0.25 0.125 -0.0625 <Это если n=5>
S=-0.6875
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.03.2010, 22:25
А ты если вообще ничего не знаешь, то попробуй на калькуляторе посчитать ln(-1).
0
 Аватар для DjonyDep
2 / 2 / 1
Регистрация: 25.11.2009
Сообщений: 121
02.03.2010, 00:38  [ТС]
Цитата Сообщение от Puporev Посмотреть сообщение
А ты если вообще ничего не знаешь, то попробуй на калькуляторе посчитать ln(-1).


Знаю знаю ... "Недопустимый аргумент функции" ну должен же быть выход, если умеешь ошибки находить МОЛОДЕЦ =)


Надо что то с этим минусом сделать! мож -1 прописать в присваивании???
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
02.03.2010, 00:38
Помогаю со студенческими работами здесь

Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля
Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P...

Контрольная сумма(сумма цифр)
Помогите пожалуйста с такой задачей Акела постарел, стал слабее, и теперь хромой тигр Шерхан...

Вычислить разность между S1 и S2, где S1-сумма четных чисел от I1 до I2, S2-сумма четных чисел от J1 до J2.
Помогите пожалуйста написать вот такую программу: Вычислить разность между S1 и S2, где S1-сумма...

Является ли сумма элементов левой части последовательности больше, чем сумма элементов правой части
Вводиться последовательность из N целых чисел. Является ли сумма элементов левой части...

для массивов А и В определить y[i] = a[i]^2 / (сумма элементов массива В) и k[i] = b[i] / (сумма элементов массива А)
всем мир помогите с задачкой братишки


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru