Программный код по блок-схеме, цикл в цикле ?

@blancos · Регистрация: 12.09.2014

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

Помогите пожалуйста написать программный код по блок-схеме .

Программный код по блок-схеме, цикл в цикле ?

@taras atavin · 30.11.2014, 13:31

А в чём проблема?

@blancos · 30.11.2014, 13:45 **[ТС]**

taras atavin,не знаю

у меня не получается .

@taras atavin · 30.11.2014, 14:52

Что не получается то?

@blancos · 30.11.2014, 15:03 **[ТС]**

taras atavin, не получается написать программный код )
Можете помочь пожалуйста ?

@taras atavin · 30.11.2014, 15:12

Так не пойдёт. Раздел "сделайте всё за меня" находится в другом месте. А здесь излагай, что пытался сделать, какая кривулина у тебя получилась и что с ней не так.

@blancos · 30.11.2014, 15:26 **[ТС]**

taras atavin, хорошо , тогда задам вопрос о другой задачи .

вот код :
что я сделал не так ?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim a() As Integer
Dim s As Integer
Dim sa As Single
txta.Text = ""
n = InputBox("n=")
ReDim a(n) As Integer
For i = 1 To n
a(i) = InputBox("a=" & CStr(i))
txta.Text = txta.Text & CStr(a(i)) & ", "
Next i
p = 1
For i = 1 To n
p = p * (a(i) - b * (n - i + 1))
Next i
txtp.Text = CStr(p)
 
End Sub

Добавлено через 4 минуты
taras atavin,вот
Где ошибка в блок-схеме

@taras atavin · 30.11.2014, 15:59

Сообщение от blancos

Dim a() As Integer

А сколько элементов то? Массив димится после того, как стал известен его размер и размер этот указывается в скобках. Предпоследний блок ошибочен. Вместо прямоугольника надо со скошенными сторонами.

@wanted1996 · 30.11.2014, 16:00

blancos, на каком языке? PASCAL? С#?

@taras atavin · 30.11.2014, 16:02

Сообщение от wanted1996

blancos, на каком языке? PASCAL? С#?

Раздел смотри.

@blancos · 30.11.2014, 16:30 **[ТС]**

taras atavin, зачем со скошеными ?
Там же формула?

@taras atavin · 30.11.2014, 16:34

Вывод рисуется со скошенными.

@blancos · 30.11.2014, 16:40 **[ТС]**

taras atavin, там в той задачи надо вводить массив а и b . у меня там только a ,как вставить b ?

@taras atavin · 30.11.2014, 18:08

Сообщение от blancos

там в той задачи надо вводить массив а и b . у меня там только a ,как вставить b ?

Также. И на блок-схеме нет ввода b.

@blancos · 30.11.2014, 20:42 **[ТС]**

taras atavin, ну у меня в условии там а и б , как добавить его ..

@taras atavin · 01.12.2014, 06:29

Сообщение от blancos

taras atavin, ну у меня в условии там а и б , как добавить его ..

На блок-схеме вообще нет b.

@blancos · 01.12.2014, 09:02 **[ТС]**

taras atavinГде ошибка в блок-схеме
Есть

@Alex77755 · 01.12.2014, 14:48

что я сделал не так

Ну вообще-то глобальная ошибка овучена в вопросе: цикл в цикле!
В коде организовано 2 отдельных цикла.
Должно быть что-то такое:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 To n
        For l = 1 To n
                For k = 1 To n
                    If i <> l And l <> k And k <> i Then
                        If A(i) + A(l) + A(k) = m Then
                            Debug.Print i, l, k
                            p = 1 ' вот это не понятно зачем. По идее должен быть типа счётчик? p=p+1
                        End If
                    End If
                Next k
        Next l
Next i

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@blancos 2 / 2 / 1 Регистрация: 12.09.2014 Сообщений: 92

	Программный код по блок-схеме, цикл в цикле ? 30.11.2014, 13:29. Показов 2023. Ответов 17 Метки нет (Все метки) Помогите пожалуйста написать программный код по блок-схеме . 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	30.11.2014, 13:31
	А в чём проблема? 0

@blancos 2 / 2 / 1 Регистрация: 12.09.2014 Сообщений: 92
	30.11.2014, 13:45 [ТС]
	taras atavin,не знаю у меня не получается . 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	30.11.2014, 14:52
	Что не получается то? 0

@blancos 2 / 2 / 1 Регистрация: 12.09.2014 Сообщений: 92
	30.11.2014, 15:03 [ТС]
	taras atavin, не получается написать программный код ) Можете помочь пожалуйста ? 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	30.11.2014, 15:12
	Так не пойдёт. Раздел "сделайте всё за меня" находится в другом месте. А здесь излагай, что пытался сделать, какая кривулина у тебя получилась и что с ней не так. 0

@wanted1996 1 / 1 / 1 Регистрация: 15.11.2014 Сообщений: 34
	30.11.2014, 16:00
	blancos, на каком языке? PASCAL? С#? 0

@blancos 2 / 2 / 1 Регистрация: 12.09.2014 Сообщений: 92
	30.11.2014, 16:30 [ТС]
	taras atavin, зачем со скошеными ? Там же формула? 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	30.11.2014, 16:34
	Вывод рисуется со скошенными. 0

@blancos 2 / 2 / 1 Регистрация: 12.09.2014 Сообщений: 92
	30.11.2014, 16:40 [ТС]
	taras atavin, там в той задачи надо вводить массив а и b . у меня там только a ,как вставить b ? 0

@blancos 2 / 2 / 1 Регистрация: 12.09.2014 Сообщений: 92
	30.11.2014, 20:42 [ТС]
	taras atavin, ну у меня в условии там а и б , как добавить его .. 0

@blancos 2 / 2 / 1 Регистрация: 12.09.2014 Сообщений: 92
	01.12.2014, 09:02 [ТС]
	taras atavinГде ошибка в блок-схеме Есть 0

Программный код по блок-схеме, цикл в цикле ?

Решение