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

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

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

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

$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

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

Новые блоги и статьи Все статьи Все блоги /
Согласованность транзакций в MongoDB Codd 30.04.2025 MongoDB, начинавшая свой путь как классическая NoSQL система с акцентом на гибкость и масштабируемость, сильно спрогрессировала, включив в свой арсенал поддержку транзакционной согласованности. Это. . .	Продвинутый ввод-вывод в Java: NIO, NIO.2 и асинхронный I/O Javaican 30.04.2025 Когда речь заходит о вводе-выводе в Java, классический пакет java. io долгие годы был единственным вариантом для разработчиков, но его ограничения становились всё очевиднее с ростом требований к. . .	Обнаружение объектов в реальном времени на Python с YOLO и OpenCV AI_Generated 29.04.2025 Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .	Эффективные парсеры и токенизаторы строк на C# UnmanagedCoder 29.04.2025 Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .	C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа bytestream 29.04.2025 C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .
Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов golander 29.04.2025 Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .	Разработка кастомных расширений для компилятора C++ NullReferenced 29.04.2025 Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .	Гайд по обработке исключений в C# stackOverflow 29.04.2025 Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .	Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .

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

	Вычислить значение выражения 26.06.2018, 13:16. Показов 1233. Ответов 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

Опции темы

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

Решение