Форум программистов, компьютерный форум, киберфорум
Наши страницы
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Екатерина влад
1 / 1 / 0
Регистрация: 24.03.2010
Сообщений: 10
1

нужно составить блок-схему этой программы.

25.05.2010, 17:44. Просмотров 722. Ответов 4
Метки нет (Все метки)

Это то, почему моя курсовая еще нег отова. Я понятия не имею как это делать.
Защита курсовой уже в четверг.
Помогите пожалуйста




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
Private Sub Command1_Click()
Dim nachalo As Long, konec As Single, a As Long, b As Long, C() As Integer, konecHexNew As String
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
 
 
 
dec = Val(Text1.Text)
l = Len(Text1.Text)
For i = 1 To l
    If Mid(Text1.Text, i, 1) = "." Then
    razd = i
  End If
Next
nachalo = Left(Text1.Text, (razd - 1))
konec = dec - nachalo
nachaloBin = nachalo
nachaloHex = nachalo
nachaloOct = nachalo
konecBin = konec
konecHex = konec
konecOct = konec
 
 
 
 
i = 0
a = nachalo Mod 2
b = nachalo \ 2
ReDim C(0) As Integer
C(0) = a
Do While b <> 0
i = i + 1
ReDim Preserve C(i) As Integer
a = b Mod 2
b = b \ 2
C(i) = a
Loop
For x = i To 0 Step -1
Text2.Text = Text2.Text + Str(C(x))
Next
 
 
 
 
n = Val(Text5.Text)
konecBin = konecBin * 2
 For i = 1 To n
 j = 1
  If Fix(konecBin) <> 0 Then
   Do While Mid(konecBin, j, 1) <> ","
    konecBinNew = konecBinNew + Mid(konecBin, j, 1)
    j = j + 1
   Loop
    konecBin = Val("0." + Right(konecBin, (Len(konecBin) - (j))))
    konecBin = konecBin * 2
  Else
  konecBinNew = konecBinNew + "0"
  konecBin = konecBin * 2
  End If
  Next
Text2.Text = Text2.Text & "." & konecBinNew
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2010, 17:44
Ответы с готовыми решениями:

Нужно составить блок-схему
Помогите построить блок схем к этой координатной прямой

Нужно создать блок схему алгоритма программы C++
Не знаю как нарисовать блок-схему данной программы, хотя бы алгоритм обхода дерева #include...

Нужно составить блок схему и алгоритм на алгоритмическом языке
В линейной таблице из трех элементов определить количество положительныех, отрицательных и нулевых...

Составить блок-схему
Помогите пожалуйста составить блок-схему решения. Заранее огромное спасибо !!!! Условие: ...

Составить блок-схему
Найти сумму S=2/3+4/5+6/7+...+n/n+1

4
insideone
Модератор
Автор FAQ
3669 / 946 / 114
Регистрация: 10.01.2010
Сообщений: 2,538
25.05.2010, 18:03 2
Цитата Сообщение от Екатерина влад Посмотреть сообщение
Я понятия не имею как это делать.
Это очень просто, в этом разделе есть даже соответствующая закрепленная тема
Правила составления блок-схем для программ [C/C++;Pascal;Basic]
а так же тема про программу и описание как что делать в ней чтобы построить блок схему
Легкий путь к созданию блок-схем: Diagram Designer
0
WolfCF
3293 / 1353 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
25.05.2010, 18:05 3
Екатерина влад, а эта разве не подходит?
0
Екатерина влад
1 / 1 / 0
Регистрация: 24.03.2010
Сообщений: 10
25.05.2010, 18:10  [ТС] 4
Да вот я сижу пытаюсь сделать ее более подробной. Не знаю что получится....Такое чувство что ничего....
0
insideone
Модератор
Автор FAQ
3669 / 946 / 114
Регистрация: 10.01.2010
Сообщений: 2,538
25.05.2010, 18:39 5
Изображение
нужно составить блок-схему этой программы.

Исходник Diagram Designer
temp2.rar
1
25.05.2010, 18:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2010, 18:39

Составить блок схему
Помогите составить блок схему: Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый...

составить блок-схему
блок-схема №1 Program Lab1; Uses Crt; Var X,Y,A,B,F:Real; Begin ClrScr; WriteLn (' Ввод...

составить блок схему. С+
1.---------------------- #include &lt;stdlib.h&gt; #include &lt;stdio.h&gt; #include &lt;string.h&gt;


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

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

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