0 / 0 / 1
Регистрация: 22.12.2013
Сообщений: 17
1

Блок-схема алгоритма для программы

11.06.2014, 08:25. Показов 1614. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста составить блок-схему алгоритма для этой программы:
Visual Basic
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
Dim A(1 To 10, 1 To 10) As Integer
Dim B(100, 100) As Integer
Dim S(100, 100) As Integer
Private Sub Command1_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
ff = Val(Text4)
Open File For Input As #1
For i = 1 To 10
For j = 1 To 10
Input #1, A(i, j)
Next j
Next i
Close #1
For i = 1 To n
For j = 1 To m
B(i, j) = A(i, j)
Next j
Next i
MSFlexGrid1.Rows = n + 1
MSFlexGrid1.Cols = m + 1
MSFlexGrid1.Row = 0
For j = 1 To m
MSFlexGrid1.Col = j
MSFlexGrid1.ColWidth(j) = 700
MSFlexGrid1.Text = j
Next j
MSFlexGrid1.Col = 0
MSFlexGrid1.ColWidth(0) = 300
For i = 1 To n
MSFlexGrid1.Row = i
MSFlexGrid1.Text = i
Next i
For i = 1 To n
MSFlexGrid1.Row = i
For j = 1 To m
MSFlexGrid1.Col = j
MSFlexGrid1.Text = B(i, j)
Next j
Next i
End Sub
Private Sub Command2_Click()
n = Val(Text2)
m = Val(Text3)
ff = Val(Text4)
File = Text1
schet = 0
For i = 1 To n
For j = 1 To m
If B(i, j) Mod ff <> 0 Then schet = schet + B(i, j)
Next j
Next i
Label9.Caption = schet
End Sub
Private Sub Command3_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
w = m
For j = 1 To m
h = 0
For i = 1 To n
If A(i, j) = 0 Then h = h + 1
Next i
If h <> 0 Then
w = w - 1
For g = j To m - 1
For i = 1 To n
A(i, g) = A(i, g + 1)
Next i
Next g
For i = 1 To n
A(i, m) = 0
Next i
End If
Next j
t = w
For j = 1 To w
h = 0
For i = 1 To n
If A(i, j) = 0 Then h = h + 1
Next i
If h <> 0 Then
t = t - 1
For g = j To m - 1
For i = 1 To n
A(i, g) = A(i, g + 1)
Next i
Next g
For i = 1 To n
A(i, m) = 0
Next i
End If
Next j
For i = 1 To n
For j = 1 To t
Picture1.Print A(i, j);
Next j
Picture1.Print vbNewLine
Next i
End Sub
Private Sub Command4_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
l = Val(Text5)
k = Val(Text6)
For i = 1 To n
For j = 1 To m
S(i, j) = B(i, j)
Next j
Next i
Max = S(1, 1)
For i = 1 To n
For j = 1 To m
If S(i, j) > Max Then Max = S(i, j)
Next j
Next i
proizv = Max * S(l, k)
Label8.Caption = proizv
End Sub
Заранее спасибо...

Добавлено через 18 часов 47 минут
Пожалуйста помогите кто-нибудь... Срочно надо...

Добавлено через 45 секунд
Нужно отдельно для каждой кнопки...
0
Лучшие ответы (1)
11.06.2014, 08:25
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.06.2014, 08:25
Ответы с готовыми решениями:

Блок схема программы
Помогите составить блок-схему программы пожалуйста: Dim nam(1 To 10) As String Dim noma(1 To 10) As String Dim n As Integer Private...

Блок-схемы для алгоритма
Привет, друзья! Помогите, пожалуйста, оформить блок-схемы для двух задач, буду признателен! Не дружу с блок-схемами ещё со школы :( ...

Блок-схема для вычисления функции
задача в бейсике Перепечатайте задание в пост

7
 Аватар для Otwet
2 / 2 / 3
Регистрация: 13.05.2014
Сообщений: 29
11.06.2014, 11:18 2
Декларируем масивы.

Command1:
||
Сто раз читаем файл, результаты в массив
||
Копируем (val(text2)*Val(text3) раз) в масив b из массива a
||

Первая ошибка в коде:

Visual Basic
1
2
MSFlexGrid1.Rows = n + 1
MSFlexGrid1.Cols = m + 1
А поскольку m и n не обьявлены, тип у них variant.

Сложение в таких случаях надо производить принудительно:

Visual Basic
1
2
MSFlexGrid1.Rows = n - -1
MSFlexGrid1.Cols = m - -1
Если только вы не хотите обьеденять эти значения.
Дальше:

Задается свойства элемента MSFlexGrid1(таблица?) столько раз, скольким равняется n и m.

Добавлено через 6 минут
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command2_Click() 
n = Val(Text2)
m = Val(Text3)
ff = Val(Text4)
File = Text1   'Задаем значения переменным
schet = 0
For i = 1 To n
For j = 1 To m 'Копируем (val(text2)*Val(text3) раз) И если без остатка то результат дописывается после schet
If B(i, j) Mod ff <> 0 Then schet = schet + B(i, j)
Next j
Next i
Label9.Caption = schet ' Выводим результат
End Sub
Добавлено через 58 секунд
Цитата Сообщение от Otwet Посмотреть сообщение
И если без остатка то результат дописывается после schet
А может складывается... Тут надо уточнить

Добавлено через 12 минут
Visual Basic
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
37
38
39
40
41
42
43
44
45
46
47
Private Sub Command3_Click()
File = Text1
n = Val(Text2)
m = Val(Text3) ' Задаем значения переменным
w = m
For j = 1 To m 
h = 0
For i = 1 To n ' Делаем столько раз, колько равно ( Val(Text2)* Val(Text3) )
If A(i, j) = 0 Then h = h + 1 'Если значение массива пусто то к h прибавляется (Или дописывается !!!) еденица
Next i
If h <> 0 Then ' А тут мы выполняем столько, сколько равняется Val(Text3)
w = w - 1 'Отнимаем еденицу
For g = j To m - 1' Делай (j - g) раз
For i = 1 To n     ' Да еще n раз
A(i, g) = A(i, g + 1) 'В массив прибавляется следом стоящее значение по g
Next i
Next g
For i = 1 To n 'делай n раз
A(i, m) = 0 ' Обнуляем значение массива
Next i
End If
Next j
t = w
For j = 1 To w
h = 0
For i = 1 To n 'Делай n * w раз
If A(i, j) = 0 Then h = h + 1 ' Если значение массива пусто, то к h прибавляется (Или дописывается !!!) еденица
Next i
If h <> 0 Then ' Смотри ранее
t = t - 1
For g = j To m - 1
For i = 1 To n
A(i, g) = A(i, g + 1)
Next i
Next g
For i = 1 To n ' Смотри ранее
A(i, m) = 0
Next i
End If
Next j
For i = 1 To n
For j = 1 To t Делай I*J раз:
Picture1.Print A(i, j); Выводим Все значения массива в picture
Next j
Picture1.Print vbNewLine ' Каждый J'ный элемент с новой строки
Next i
End Sub
Добавлено через 8 минут
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command4_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
l = Val(Text5)
k = Val(Text6) 'Задаем переменным значение
For i = 1 To n
For j = 1 To m 'делай n*m раз
S(i, j) = B(i, j) ' Копируем массив b в массив s
Next j
Next i
Max = S(1, 1) 'задаем max
For i = 1 To n 
For j = 1 To m 'Снова делаем n*m раз
If S(i, j) > Max Then Max = S(i, j) ' Короче тут мы ищем максимальное значение, перебирая все элементы массива
Next j
Next i
proizv = Max * S(l, k) ' Множим max на последний элемент массива
Label8.Caption = proizv 'И выводим его
End Sub
Вроде все.
1
0 / 0 / 1
Регистрация: 22.12.2013
Сообщений: 17
11.06.2014, 18:49  [ТС] 3
спасибо конечно....но мне была нужна блок-схема...
0
 Аватар для OldFedor
7485 / 4149 / 474
Регистрация: 25.08.2012
Сообщений: 11,530
Записей в блоге: 11
11.06.2014, 19:20 4
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Дорисуйте сами, мне лень.

Блок-схема алгоритма для программы
1
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
11.06.2014, 22:20 5
Скорей бы уже доделать, свою прогу *Генератор блок схем* ...
0
OldFedor
11.06.2014, 22:32
  #6

Не по теме:

Цитата Сообщение от Антихакер32 Посмотреть сообщение
Скорей бы уже доделать, свою прогу *Генератор блок схем* ...
Весьма интересно.

0
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
11.06.2014, 22:55 7
собственно там фигуры, в виде отдельных компонентов стрелочки квадратики и тп,
затем идет пересчет координат в основной программе
и при выполнении все должно красиво отобразиться

Добавлено через 5 минут
тоесть анализ кода, между прочим я неоднократно выкладывал
разного рода программы анализирующие код, и расставляющие табуляцию

..в зависимости от операторов, выводятся фигуры

Добавлено через 6 минут
пока, что буду с бейсиком работать, позже
я буду пробовать дисасемблировать коды, и переводить в бейсик
..затем переводить в блок схему, согласитесь программа станет прозрачной
1
OldFedor
11.06.2014, 22:55     Блок-схема алгоритма для программы
  #8

Не по теме:

Цитата Сообщение от Антихакер32 Посмотреть сообщение
зависимости от операторов, выводятся фигуры
Понял.

0
11.06.2014, 22:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2014, 22:55
Помогаю со студенческими работами здесь

Блок-схема алгоритма работы программы
Нужна блок-схема алгоритма работы программы.#include &lt;iostream.h&gt; #include &lt;math.h&gt; void PSort(double *Arr,int n) { double...

Блок-схема алгоритма работы программы
#include &lt;iostream&gt; #include &lt;conio.h&gt; #define LENGTH 20 int main() { int array = {1, 5, 6, 3, 12, 36, 87, 91, 34,...

Блок-схема алгоритма для числа Пи
//--------------------------------------------------------------------------- #include &lt;vcl.h&gt; #include &lt;math.h&gt; #pragma hdrstop ...

Блок-схема для алгоритма циклической структуры
1 с операторами while-do 2 - until-repeat

Блок схема для алгоритма: Оптимизация маршрута для перевозки товаров
Кто-нибудь может составить примерно хотя бы блок схему для следующего алгоритма? оптимизация маршрута для перевозки товаров. Алгоритм: ...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ошибка "Cleartext HTTP traffic not permitted" в Android
hw_wired 13.02.2025
При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .
Изменение версии по умолчанию в NVM
hw_wired 13.02.2025
Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .
Переименование коммита в Git (локального и удаленного)
hw_wired 13.02.2025
Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .
Отличия Promise и Observable в Angular
hw_wired 13.02.2025
В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .
Сравнение NPM, Gulp, Webpack, Bower, Grunt и Browserify
hw_wired 13.02.2025
В современной веб-разработке существует множество средств сборки и управления зависимостями проектов, каждое из которых решает определенные задачи и имеет свои особенности. Когда я начинаю новый. . .
Отличия AddTransient, AddScoped и AddSingleton в ASP.Net Core DI
hw_wired 13.02.2025
В современной разработке веб-приложений на платформе ASP. NET Core правильное управление зависимостями играет ключевую роль в создании надежного и производительного кода. Фреймворк предоставляет три. . .
Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapp­­er, poetry и другими в Python
hw_wired 13.02.2025
В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .
Навигация с помощью React Router
hw_wired 13.02.2025
React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .
Ошибка "error:0308010C­­:dig­ital envelope routines::unsup­­ported"
hw_wired 13.02.2025
Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru