Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 18.11.2018
Сообщений: 1
1

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

18.11.2018, 15:27. Показов 1672. Ответов 2
Метки нет (Все метки)

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

Код программы для задания 1: (Visual Basic):
Private Sub Command1_Click()
X = Val(Text1)
Y = Val(Text2)
If Y <= X + 1 Then
If Y <= -X + 3 Then
If Y >= -X / 5 - 1 Then
End If
Picture1.Print "("; Format(X, ""); ";"; Format(Y, ""); ")"; " Принадлежит"
Else
Picture1.Print "("; Format(X, ""); ";"; Format(Y, ""); ")"; " "; " Не принадлежит "
End If
End If
End Sub

Задание 2: Определить будут ли прямые A1x+B1y+C1 и A2x+B2y+C2 перпендикулярны. Если нет, то найти угол между ними.
Код программы для задания 2 (Visual Basic):
Private Sub Command1_Click()
pi = 3.14
1:
a1 = Val(Text1)
b1 = Val(Text2)
C1 = Val(Text3)
If (a1 = 0 And b1 = 0) Then
Picture1.Print ("Введите повторно, a1 и b1 не должны равняться нулю одновременно")
GoTo 1
End If
2:
a2 = Val(Text4)
b2 = Val(Text5)
C2 = Val(Text6)
If (a2 = 0 And b2 = 0) Then
Picture1.Print ("Введите повторно, a2 и b2 не должны равняться нулю одновременно")
GoTo 2
End If
If a1 * a2 + b1 * b2 = 0 Then
Picture1.Print ("Прямые перпендикулярны, угол между ними = 90 ")
Else
ugl = Abs((Atn((a1 * b2 - a2 * b1) / (a1 * a2 + b1 * b2))) * 180 / pi)
Picture1.Print "Угол между ними =", ugl
End If
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2018, 15:27
Ответы с готовыми решениями:

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

созданик блок-схемы
У меня есть программы, а для них нужно сделать &quot;блок-схему&quot; кто нить сможет сделать?совершенно не...

Создание блок схемы по коду
Собственно имеется код: Sub Ket() Dim a () n=Cells (4,2).Vallue Redim a(n) For i=1 To n...

Создание блок схемы по коду
Помогите пожалуйста составить блок-схему по коду программы! Заранее спасибо Добавлено через 1...

2
SoftIce
18.11.2018, 18:30
  #2

Не по теме:

Цитата Сообщение от Alexxo Посмотреть сообщение
Не дружу с блок-схемами ещё со школы
Начинайте дружить.

0
15038 / 6362 / 1726
Регистрация: 24.09.2011
Сообщений: 9,971
18.11.2018, 19:53 3
Цитата Сообщение от Alexxo Посмотреть сообщение
Код программы для задания 1
- неверный, один End If не на месте стоит.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2018, 19:53

Блок-схемы в visual basic
Ищу помощь в построении блок-схемы в visual basic, с ними не дружу, но желаю разобраться.

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

Построение блок-схемы по готовому коду
Dim a As String, i As Integer, j As Integer Private Sub Form_Load() a = InputBox(&quot;введите...

Составить программу из блок схемы в Basic
Всем привет. У меня просьба к вам. Помогите пожалуйста составить код из блок схемы на basik , я в...


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

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

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