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

@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

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа 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 Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

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

	Программный код по блок-схеме, цикл в цикле ? 30.11.2014, 13:29. Показов 2052. Ответов 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

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

Решение