прога для создания блок-схем по программе на Visual Basic 6 - Страница 2

Страница 2 из 2
«
1
2

прога для создания блок-схем по программе на Visual Basic 6 (нужна ссылка на эту прогу)

прога для создания блок-схем по программе на Visual Basic 6

мурад

Дата: Воскресенье, 28 Марта 2010, 19:51 | Сообщение # 31

Новый участник

Группа: Пользователи

Сообщений: 25

Репутация: 0

Награды: 0

Статус: Offline

Quote (Alex3A)

Alex3A

Quote (Alex3A)

Alex3A

это не кажому дается

YURIY

Дата: Воскресенье, 28 Марта 2010, 19:52 | Сообщение # 32

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Quote (мурад)

я это еле как сделал, у меня мышка замыкает, а ты не мог бы подправить?

Там и не нужна крутая мышка. Выбираешь "соединительная линия" и останется клацать в один угол первого блока, а потом во второй угол второго и стрелка сама нарисуется.

И блоки сделай одного размера.

Вечная память Андрею Сергееву!

мурад

Дата: Воскресенье, 28 Марта 2010, 19:56 | Сообщение # 33

Новый участник

Группа: Пользователи

Сообщений: 25

Репутация: 0

Награды: 0

Статус: Offline

я понял что крутая мышка не нужна, она моросит(плохо работает)

Alex3A

Дата: Воскресенье, 28 Марта 2010, 20:04 | Сообщение # 34

Друг клуба ММВ

Группа: Проверенные

Сообщений: 2646

Репутация: 39

Награды: 11

Статус: Offline

Quote (мурад)

это не кажому дается

Вот по этому то и програмисты первого толка, в настоящее время почти перевелись, за ненадобностью, остались только второго вида. И не даром программа приравнивается
к литературному произведению даже законодательно. Так что тут тусуются писатели второго рода

А что бы что то далось, прежде всего надо иметь желание, а остальное
прийдет.

мурад

Дата: Понедельник, 29 Марта 2010, 13:37 | Сообщение # 35

Новый участник

Группа: Пользователи

Сообщений: 25

Репутация: 0

Награды: 0

Статус: Offline

желание всегда найдется Alex3A,

Добавлено (29 Март 2010, 13:37)
---------------------------------------------
нужна помощь по программному коду на VB 6
Дана последовательность из М чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение таких чисел.
вот код

Code

Private Sub Command1_Click ()
N = Val (N.Text)
K = Val (K.Text)
Print "Числа от"; N,"до"; K
s = 1
For i = N To K
Print i;
s = s * i
Next i
Print
Print "Произведение="; s
End Sub

у меня не получается посчитать количество чисел больше 7 и меньше 20

Сообщение отредактировал мурад - Понедельник, 29 Марта 2010, 13:39

YURIY

Дата: Понедельник, 29 Марта 2010, 19:12 | Сообщение # 36

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Просьба заключать код в теги code.

Quote (мурад)

Сколько из этих чисел больше 7, но меньше 20

Ну? И что ты написал?

Quote (мурад)

For i = N To K
Print i;
s = s * i
Next i

Где же ты тут проверяешь, входит ли число i в диапазон 7 < i < 20? Для этого существует условный оператор If. Вот и используй его. Если с его помощью узнаёшь, что число удовлетворяет условию, то тогда считаешь произведение s = s * i.

Quote (мурад)

Сколько из этих чисел

Соответственно заводишь переменную, например k, и опять же при выполнении того условия помимо произведения прибавляешь к k единицу.

Вечная память Андрею Сергееву!

мурад

Дата: Понедельник, 29 Марта 2010, 20:56 | Сообщение # 37

Новый участник

Группа: Пользователи

Сообщений: 25

Репутация: 0

Награды: 0

Статус: Offline

Quote (YURIY)

я тебя не понял

можешь выполнть в правильном виде, по-братски прошу)))

YURIY

Дата: Понедельник, 29 Марта 2010, 22:22 | Сообщение # 38

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Quote (мурад)

можешь выполнть в правильном виде

На нашем форуме ПОМОГАЮТ.

Делать ни за кого я ничего не буду. Я тебе объяснил алгоритм, то есть помог.

Если нужна не помощь, а сесть и сделать - пожалуйста, за $.

Вечная память Андрею Сергееву!

мурад

Дата: Понедельник, 29 Марта 2010, 23:15 | Сообщение # 39

Новый участник

Группа: Пользователи

Сообщений: 25

Репутация: 0

Награды: 0

Статус: Offline

и за сколько ты это сделаешь?

YURIY

Дата: Вторник, 30 Марта 2010, 02:07 | Сообщение # 40

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Отправил ЛС.

Вечная память Андрею Сергееву!

мурад

Дата: Вторник, 30 Марта 2010, 15:44 | Сообщение # 41

Новый участник

Группа: Пользователи

Сообщений: 25

Репутация: 0

Награды: 0

Статус: Offline

Code

Private Sub Command1_Click ()
N = Val (N.Text)
K = Val (K.Text)
M = Val(Textbox1.Text) 'размерность массива
Dim a(1 to M) 'массив
for i = 1 to M
a(i) = 9 * RND; ' заполнение массива случайными числами от 0 до 9
Next i
Print "Числа от"; N,"до"; K
s = 1
h = 0
for i = 1 to M
if a(i) >= 7 and a(i) <= 20 then
s = s * a(j)
h = h + 1
end if
Next i

Print
Print "Количество чисел="; h
Print "Произведение="; s
End Sub

я исправил код, но все равно выдает ошибку(((

mishem

Дата: Вторник, 30 Марта 2010, 23:06 | Сообщение # 42