Найти сумму ряда

23.11.2008, 23:36. **Показов** 2036. **Ответов** 2

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

Привет всем. Проверьте пожалуйста правельность блок-схем и кодов следующий задач:

1) Условие:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{n=1}^{40} \left(n+2 \right)n\, x^n\\Y=\frac{x(3-x)}{(1-x)^3}$

при 0.6<=x<=3.6 с шагом 0.6

Решение:
Блок-схема - [404]

КОД:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
color 1,15
CLS
k=0
FOR x=0.6 TO 3.6 STEP 0.6
FOR n=1 TO 40
s=s+(n+2)*n*x^n
NEXT n
LOCATE 6+k, 30
PRINT "S="; S
Y=x*(3-x)/(1-x)^3
PRINT "Y="; Y
k=k+1
NEXT x
END

2)Условие:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}\prod_{k=1}^{10} \frac{x^2}{k+1} & \text{ , } x \lt 2 \\ 0 & \text{ , } x = 2 \\ \prod_{k=1}^{10} \frac{x}{k} & \text{ if } x \gt 2\end{cases}$

Х - произвольное

Решение:
Блок-схема - [404]

КОД:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
color 1,15
CLS
INPUT "Введите x"; x
IF x<2 THEN
FOR k=1 TO 10
Y=Y+x^2/(k+1)
NEXT k
PRINT "Y="; Y
IF x=2 THEN PRINT "Y=0"
ELSE FOR k=1 TO 10
Y=Y*x/k
NEXT k
PRINT "Y="; Y
END

Заранее благодарен.

@Михайло · 25.11.2008, 01:05

К сожалению, ГОСТ 19.003-80 "Схемы алгоритмов и программ. Обозначение условные графические" не предусматривает такого обозначения циклов. Не буду, однако, настаивать - см. приложенный рисунок.
II программа:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
color 1,15
CLS
y=1
INPUT "Введите x"; x
IF x<2 THEN
  FOR k=1 TO 10
    Y=Y*x^2/(k+1)
  NEXT k
END IF
IF x=2 THEN 
  Y=0
ELSE 
  FOR k=1 TO 10
    Y=Y*x/k
  NEXT k
END IF
PRINT "Y="; Y

25.11.2008, 22:57

Спасибо за помощь

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

RIO87
	25.11.2008, 22:57
	Спасибо за помощь