Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 22

Вычислить сумму ряда

17.02.2015, 14:36. Показов 1142. Ответов 14
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
S = 2 - 4 + 6 - 8 + ... + (-1)n *

ЗАРАНЕЕ СПАСИБО
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.02.2015, 14:36
Ответы с готовыми решениями:

Вычислить сумму ряда с точностью до числа ряда меньшего экспонентой
Вычислить сумму данного ряда с точностью до числа ряда меньшего экспонентой,для каждого значения Х из указанного диапазона.диапазона. Х...

Вычислить сумму ряда
Вроде несложная задачка по оператору go to (или операторы цикла), но я совсем застрял. По условию нужно просто составить программу для...

Вычислить сумму ряда
1-Дано натуральное число N. Вычислить: S=1+2+3+....+N

14
4 / 4 / 2
Регистрация: 03.11.2013
Сообщений: 59
17.02.2015, 16:13
Лучший ответ Сообщение было отмечено SergeyG как решение

Решение

а самому подумать маленько и написать код(с ошибкой), чтобы здесь исправили. Вечно всё готовенькое хотите.
1
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 22
17.02.2015, 16:15  [ТС]
если бы знал не писал бы
0
Модератор
10428 / 5715 / 3404
Регистрация: 17.08.2012
Сообщений: 17,380
17.02.2015, 18:13
Лучший ответ Сообщение было отмечено SergeyG как решение

Решение

Не по теме:

Задание, и то толком написать не можете...

S = 2 - 4 + 6 - 8 + ... + (-1)n+1 * 2 * n

Так? Тогда вот так:
Pascal
1
2
3
4
5
6
7
var n: integer;
begin
  write('n = ');
  readln(n);
  writeln('S = ', -2 * n);
  readln
end.
Эту задачку может решить школьник 3 класса. Скажите мне, я что, отстал от жизни, и программирование преподают уже с первого класса?

Добавлено через 49 секунд
Да, проверку ввода, если нужно, сами сделайте...
1
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 22
17.02.2015, 18:16  [ТС]
программирование я проходил 1992 году

Добавлено через 55 секунд
компьютерный класс занимал 3 кабинета в школе и рекриацию 10 компов стояло
0
17.02.2015, 18:22

Не по теме:

Ну и что? для того, чтобы уметь писать подобные программы, достаточно прочитать с полсотни страниц любой книжки по любому паскалю. Вы пишете сообщения на форум, следовательно, чтение Вы проходили, и полсотни страниц, полагаю, осилите без особенного труда. Или лень вперёд Вас родилась, Вы в пелёнках, а она уже с телёнка?

0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 22
17.02.2015, 18:23  [ТС]
точно
0
17.02.2015, 18:34

Не по теме:

Нет, я серьёзно... На самом деле, для написания простых программ достаточно знать лишь основы паскаля. Обычно люди полагают, что раз уж не знаешь, то дело это сложное, и наверняка нужно горы фолиантов перелопатить, чтобы что-то узнать... С паскалем проще, его основы и вправду вполне умещаются в полсотню страниц. Ну, в сотню, максимум. Так, между делом почитать...

0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 22
17.02.2015, 18:50  [ТС]
я понял но мне в 40 лет надо просто контрольную сдать и зачёт автомат так что изучать паскаль смысла нет я работаю совершенно в другой сфере так что извините братья программисты нас непрошаренных пользователей
0
17.02.2015, 19:00

Не по теме:

Ясно. Вполне стандартная жизненная ситуация. В данном случае, да, сдал - и забыл. Согласен. Мне за 50, почти ровесники...

0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 22
17.02.2015, 19:05  [ТС]
0
Модератор
10428 / 5715 / 3404
Регистрация: 17.08.2012
Сообщений: 17,380
17.02.2015, 19:21
Лучший ответ Сообщение было отмечено SergeyG как решение

Решение

Индусское решение через цикл, вдруг лучше для сдачи подойдёт:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var i, n, z, s: integer;
begin
  write('n = '); {ввод n}
  readln(n);
  z := 2; {множитель для очередного члена суммы, пока +2}
  s := 0; {сумма, пока 0}
  for i := 1 to 2 * n do {цикл для суммирования}
    begin
      s := s + z * i; {к сумме добавляем множитель * счётчик}
      z := -z {меняем знак множителя}
    end;
  writeln('S = ', s); {выводим сумму}
  readln {программа ждёт нажатия <Enter> перед выходом}
end.
1
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 22
17.02.2015, 19:25  [ТС]
Спасибо возьму оба варианта
0
Модератор
10428 / 5715 / 3404
Регистрация: 17.08.2012
Сообщений: 17,380
17.02.2015, 19:30
Ох, да, а формулу-то я правильно понял?
0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 22
17.02.2015, 19:34  [ТС]
ничего страшного на месте договоримся
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.02.2015, 19:34
Помогаю со студенческими работами здесь

Вычислить сумму ряда

Вычислить сумму ряда
Помогите пожалуйста с написанием программы на pascal Вычислить сумму ряда с точностью eps=10-6

Вычислить сумму ряда
Дано действительное число а. Вычислить (а+2)/9+(а+3)12+(а+4)/15+(а+5)/18+...+(а+10)/33

Вычислить сумму ряда
Вычислить сумму элементов бесконечного ряда с заданной точностью e = 0,00001. Условием окончания вычислений считать |Sn| &lt;= e. Значение...

Вычислить сумму ряда
Дано действительное число a и натуральное число n. Вычислить: 1/a +1/(a*(a+1)) + ...+ 1/(a*(a+1)*...*(a+n))


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

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru