Форум программистов, компьютерный форум, киберфорум
Наши страницы
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
ArtemPl
0 / 0 / 0
Регистрация: 16.05.2013
Сообщений: 16
1

Построение блок-схем

23.05.2013, 19:38. Просмотров 1747. Ответов 2
Метки нет (Все метки)

не могу разобраться,как построить блок-схему. А точнее,то,что писать в теле цикла...
вот сама задача: Дана последовательность из М чисел, среди которых имеется один ноль. Вычислить сумму чисел и их количество до ноля и после ноля.
вот код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Form_Load()
Dim A, n1 As Integer, n2 As Integer, i As Integer
     Dim sumBeforeZero As Double, sumAfterZero As Double
     
     A = Array(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 0, 9, 9, 9, 9, 8)
     
     Do Until A(i) = 0
          sumBeforeZero = sumBeforeZero + A(i)
          i = i + 1
     Loop
     
     n1 = i
     
     For i = i + 1 To UBound(A)
          sumAfterZero = sumAfterZero + A(i)
          n2 = n2 + 1
     Next i
     
     MsgBox "Количество элементов до 0 -  " & n1 & "" & "  Сумма = " & sumBeforeZero
     MsgBox "Количество элементов после 0 -  " & n2 & "" & "  Сумма = " & sumAfterZero
End Sub
буду очень признателен помощи.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2013, 19:38
Ответы с готовыми решениями:

Анализ блок-схем
Помогите пожалуйста: 1. На рисунках представлены блок-схемы алгоритмов. Определите, какую задачу...

Постройка блок схем
Доброго времени суток друзья. Помогите построить блок схему алгоритма для расчета суммы всех...

Составление блок-схем
Народ, крайне сложная ситуация: есть программки, достаточно легкие (лабораторные по С++ - первый...

Составление блок-схем, спасите
Уважаемые форумчане! Умоляю помогите составить блок-схемы приведенных ниже задач! В четверг...

Составление блок-схем, спасите
Уважаемые форумчане! Умоляю помогите составить блок-схемы приведенных ниже задач! В четверг...

2
OldFedor
7457 / 4124 / 471
Регистрация: 25.08.2012
Сообщений: 11,503
Записей в блоге: 11
23.05.2013, 20:13 2
Цитата Сообщение от ArtemPl Посмотреть сообщение
не могу разобраться,как построить блок-схему
Как то так

Построение блок-схем


Удачи.
1
ArtemPl
0 / 0 / 0
Регистрация: 16.05.2013
Сообщений: 16
23.05.2013, 22:10  [ТС] 3
Спасибо за помощь!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2013, 22:10

Составление алгоритмов и блок-схем
Прошу помочь с решением задач. 1) Даны 10 целых положительных чисел. Определить какое из них...

Составление блок-схем, спасите
Уважаемые форумчане! Умоляю помогите составить блок-схемы приведенных ниже задач! В четверг...

Составление блок схем к двум кодам
Помогите пожалуйста нарисовать блок схему! Первый код #include <stdio.h> #include <conio.h>...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru