Вычислить сумму - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.60/5:

@dimasv2904 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 3

	Вычислить сумму 25.09.2013, 21:35. Показов 1009. Ответов 3 Метки нет (Все метки) Необходимо составить программу, которая высчитывает сумму: n Ʃ (-1)^i/2i i=1 Изображения 0

Лучшие ответы (2)

Сообщение: #5100422 Сообщение: #5100459

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

25.09.2013, 21:35

Ответы с готовыми решениями:

Вычислить сумму и найти число слагаемых, которые вошли в сумму
Помогите пожалуйста в решении задачи. Вычислить сумму и найти число слагаемых, которые вошли в сумму (см. таблицу 4). Процесс вычислений...

Массив: Вычислить сумму положительных, четных элементов, > 5 и сумму отрицательных членов последовательности
Дана последовательность, состоящая из n чисел, вводимых пользователем с клавиатуры. Вычислить сумму положительных, четных элементов,...

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

Turbal

94 / 94 / 32

Регистрация: 29.06.2013

Сообщений: 252

25.09.2013, 22:37

Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Program summ;
var i,n: Integer;
    sum: Real;
begin
Write('n = ');
ReadLn(n);
for i:=1 to n do sum:=sum+exp(-1*ln(i))/(2*i);
WriteLn(sum:2:3);
end.

erl27

908 / 756 / 833

Регистрация: 06.09.2013

Сообщений: 1,561

25.09.2013, 22:47

Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  i, N, k: integer;
  S: real;
  
begin
  write(' N = ');
  readln(N);
  k := 1;
  S := 0;
  for i := 1 to N do
  begin 
    k := -k; 
    S := S + k /(2 * i) 
  end;
  writeln;
  write(' S = ', S)
end.

@dimasv2904 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 3
	25.09.2013, 23:22 [ТС]
	Спасибо! 0

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

25.09.2013, 23:22

Помогаю со студенческими работами здесь

Вычислить сумму первых 3 цифр и сумму последних 3 цифр числа и сравнить их
help!

Вычислить сумму
напишите две программы и если несложно алгоритм

Вычислить сумму
Нужно сделать со сложным циклом S\ =\ \sum_{1}^{n}\ n!

Вычислить сумму
не подскажите как это решить? буду очень благодарен

Вычислить сумму
Вычислите ( сумма(сигма) -ограниченная с низу i,j=1 ,сверху 10) Сигма i^2/j^3

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программный отбор элементов справочника Номенклатура по группе 1С Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор элементов справочника Сотрудники по перечислениям 1С Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

Наверх