Вычислить значение выражения

@LennieDiaz · Регистрация: 25.06.2018

Студворк — интернет-сервис помощи студентам

Составить блок-схему и написать программу

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\sum_{i=1}^{3}(2i+1)^3+2\sum_{i=3}^{6}(i-1)^3<br />$

@AndrewBeletskiy · 26.06.2018, 15:43

Вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program series_sum;
 
var i, y: integer;
 
BEGIN
 y := 0;
 for i := 1 to 3 do
   y := y +  2 * i + 1;
 
 for i := 3 to 6 do
   y := y + 2 * sqr(i-1)*(i-1);
 
 writeln('Y = ',y);
END.

@LennieDiaz · 26.06.2018, 16:57 **[ТС]**

спасибо Вам огромное!! как всегда спасаете!!))

@AndreiUshakov · 26.06.2018, 18:25

Вообще такие вещи лучше решать через вызов процедур по ссылке(указателю). Такой прием применяется, если у вас много функций, каждая из которых вызывается где и как-то, и тогда нужен общий механизм подобного счета.
Изменится немного блок схема. Либо проще, вызывать сразу 2 функции и проссумировать

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program series_sum;
 
function Sum1(idx, maxRange: Integer): Integer;
var
    value: Integer;
begin
    if(idx > maxRange) Sum1 = 0;
    else 
    begin
      value = 2 * idx + 1;
      Sum1 = value * value * value + Sum1(idx + 1, maxRange);
    end;
end;
 
function Sum2(idx, maxRange: Integer): Integer;
var
    value: Integer;
begin
    if(idx > maxRange) Sum2 = 0;
    else 
    begin
      value = idx - 1;
      Sum2 = value * value * value + Sum2(idx + 1, maxRange);
    end;
end;
 
writeln('Y = ',Sum1(1,3) + 2 * Sum2(3,6));
 
end;

@AndrewBeletskiy · 26.06.2018, 19:11

LennieDiaz, Я там пропустил возведение в куб в первой сумме, исправленная версия выглядит так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program series_sum;
 
var i, y: integer;
 
BEGIN
 y := 0;
 for i := 1 to 3 do
   y := y +  sqr(2 * i + 1)*(2 * i + 1);
 
 for i := 3 to 6 do
   y := y + 2 * sqr(i-1)*(i-1);
 
 writeln('Y = ',y);
END.

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program series_sum;
 
type elemFunc = function(ind: integer): integer;
 
function getSum(minIndex, maxIndex: integer; var f: elemFunc): integer;
var i: integer;
begin
    getSum := 0;
 
  if minIndex > maxIndex then exit;
 
  for i := minIndex to maxIndex do
  begin
    inc(getSum, f(i));
  end;
end;
 
function elem1(i: integer): integer;
begin
  elem1 := sqr(2 * i + 1)*(2 * i + 1);
end;
function elem2(i: integer): integer;
begin
  elem2 := sqr(i-1)*(i-1);
end;
 
var tempF: elemFunc;
    sum1, sum2: integer;
BEGIN
  tempF := @elem1;
  sum1 := getSum(1,3,tempF);
  tempF := @elem2;
  sum2 := getSum(3,6,tempF);
 
  writeln('Y =', sum1+2*sum2);
END.

@AndreiUshakov · 26.06.2018, 19:23

Согласен. Но я привел пример, не для того, чтобы сказать, что так лучше (в данном случае хуже), а именно как пример, чтобы человек понял, что задачу можно решать не только лоб, особенно если таких участков много и обобщение в этом случае является очень и очень нужным

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@LennieDiaz 0 / 0 / 0 Регистрация: 25.06.2018 Сообщений: 8

	Вычислить значение выражения 26.06.2018, 13:16. Показов 1293. Ответов 5 Метки нет (Все метки) Составить блок-схему и написать программу $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\sum_{i=1}^{3}(2i+1)^3+2\sum_{i=3}^{6}(i-1)^3<br />$ 0

@LennieDiaz 0 / 0 / 0 Регистрация: 25.06.2018 Сообщений: 8
	26.06.2018, 16:57 [ТС]
	спасибо Вам огромное!! как всегда спасаете!!)) 0

@AndreiUshakov 26 / 23 / 12 Регистрация: 25.06.2018 Сообщений: 91
	26.06.2018, 19:23
	Согласен. Но я привел пример, не для того, чтобы сказать, что так лучше (в данном случае хуже), а именно как пример, чтобы человек понял, что задачу можно решать не только лоб, особенно если таких участков много и обобщение в этом случае является очень и очень нужным 1

Вычислить значение выражения

Решение