Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Liana2703
0 / 0 / 1
Регистрация: 22.12.2013
Сообщений: 17
#1

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

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

Помогите пожалуйста составить блок-схему алгоритма для этой программы:
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)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2014, 08:25
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Блок-схема алгоритма для программы (VB):

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

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

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

Составить блок-схему алгоритма
Public Sub Задача() Dim R1 As Double Dim R2 As Double Dim X1 As Double Dim...

Блок-схема
Помогите составить блок-схему для кода.. Dim x(5) As Integer, y(5) As...

!Блок-схема!
Кто умеет составлять блок-схему?.......... Dim x As Integer, y As Integer...

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
Liana2703
0 / 0 / 1
Регистрация: 22.12.2013
Сообщений: 17
11.06.2014, 18:49  [ТС] #3
спасибо конечно....но мне была нужна блок-схема...
0
OldFedor
7452 / 4119 / 471
Регистрация: 25.08.2012
Сообщений: 11,482
Записей в блоге: 11
11.06.2014, 19:20 #4
Лучший ответ Сообщение было отмечено The trick как решение

Решение

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

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

Не по теме:

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

0
Антихакер32
Заблокирован
11.06.2014, 22:55 #7
собственно там фигуры, в виде отдельных компонентов стрелочки квадратики и тп,
затем идет пересчет координат в основной программе
и при выполнении все должно красиво отобразиться

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

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

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

Не по теме:

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

0
11.06.2014, 22:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 22:55
Привет! Вот еще темы с ответами:

блок схема
дорый день, если кто разбирается в б\с помогите (В произвольно заданном...

Блок-схема
Фруктовый магазин продаёт яблоки по А руб.за кг., груши по В руб. за кг.,...

Блок-схема
Как же всё-таки правильно обозначить цикл?? Как требуют преподы и чем...

Программа и блок схема
Составить блок-схему и программу алгоритма для решения задачи, включающей ввод...


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

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

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