Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
...vamp
Форумчанин
6 / 6 / 0
Регистрация: 11.01.2012
Сообщений: 240
09.04.2012, 01:39     Составить блок-схему по коду
  #1
Код Visual Basic .NET
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
Public Class Form1
    'Функция ввода исходных данных из  TextBox
    Function vvod(ByVal T As TextBox) As String
        Return T.Text
    End Function
    'Процедура вывода строки в TextBox
    Sub vivod(ByVal Z As String, ByVal T As TextBox)
        T.Text = Z
    End Sub
 
    'Процедура ввода элементов массива типа String из текстового файла
    Sub FillListBox(ByVal FileName As String, ByVal List As ListBox)
        FileOpen(1, FileName, OpenMode.Input)
        Do While Not EOF(1)
            ListBox1.Items.AddRange(LineInput(1).Split)
        Loop
    End Sub
 
    'Процедура форматного вывода массива типа Single в ListBox
    Sub vivodSngMac17(ByRef a() As String, ByVal n As Single, ByVal L As ListBox)
        Dim i As Integer
        Dim m As String = ""
        For i = 0 To UBound(a)
            m = a(i) + Space(4)
            If m = "" Then m = "массив пуст"
            L.Items.Add(m)
        Next i
    End Sub
    'Процедура преобразования в массив и определения строки, содержащей максимальный элемент.
        Sub preobr(ByRef a() As String, ByVal m As String)
        Dim i, s, Maxs As Integer
        Dim numSTR As String
        Maxs = 0 'Приравниваем максимальное количество заданных элементов в массиве к нулю.
        For i = 0 To UBound(a) 'Цикл от 0-го элемента к конечному элементу массива.
            s = 0 'Приравниваем максимальное количество заданных элементов в строке к нулю.
            For j = 1 To Len(a(i)) 'Цикл от первого символа строки к последнему.
                If Mid(a(i), j, 1) = m Then 'Берем по 1-му символу и сравниваем каждый с заданным символом
                    s = s + 1 'Если символы совпадают, увеличиваем максимальное количество заданных символов в строке на 1.
                End If
            Next j
            If s > Maxs Then 'Если количество заданных символов в данной строке больше чем в предыдущих-приравниваем максимальное значение к текущему.
                Maxs = s
                numSTR = i
            End If
        Next i
        vivod(a(numSTR), TextBox3)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As String
        Dim k As String
        Dim a(), m As String
        n = vvod(TextBox1)
        FillListBox(n, ListBox1)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
End Class
Нужно составить блок схемы по каждой процедуре в один столбик.(Всмысле каждая блок-схема)
И блок схему алгоритма программы(Ну как она работает от процедуры к процедуре)
Помогите пожалуйста, можно просто от руки и сфоткать.
Сам уже не успеваю ничего..
AdAgent
Объявления
09.04.2012, 01:39
Yandex
Объявления
09.04.2012, 01:39
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal Составить блок-схему по коду
1) program zadanie 2; uses crt; const m=10; var a:arry of real; i,j,c: integer; b:real; begin; clrscr; randomize; for i:=1 to m do begin
Pascal (Паскаль) Ollaner 08.07.2014 19:50
Visual Basic .NET Составить программный код для метода сортировки Хоара (по блок-схеме)
никак не могу составить программный код для метода сортировки Хоара.
Visual Basic .NET Manlook 28.04.2014 10:13
C++ Составить блок-схему по коду
#include "stdafx.h" #include <iostream> using namespace std; #define DELAY 303000000 struct my_time { int hours; int minutes; int seconds;
С++ для начинающих Giroskop 06.09.2013 09:42
Visual Basic .NET DirectXInput. Подскажите по коду ниже
Есть код с одного иностранного форума: Public Class Form1 Private Const COOPLEVELKB As Microsoft.DirectX.DirectInput.CooperativeLevelFlags =...
Visual Basic .NET Nikita_Nikita 13.08.2013 18:13
Pascal ABC Составить блок-схему по коду
const eps = 1e-4; x1 = -5; x2 = 5; function Y1(x: double): double; begin Y1 := (1 / (1 + x * x)) - x; end; {1-е уравнение} function Y2(x: double): double;
Pascal ABC all_fire 24.05.2012 19:37
Visual Basic .NET Есть ли в Visual Studio инструмент для составления блок схем по коду программы
Есть ли в Visual Studio инструмент для составления блок схем по коду программы? Добавлено через 2 часа 8 минут Спасибо за проявленное внимание к теме, придется пойти другим путем...
Visual Basic .NET _Лёша_ 22.04.2012 13:49
Visual Basic .NET Вопросы по коду
Доброго времени суток. Ситуация такая что дали разбираться с чужим кодом на Visual Basic .NET который чёрт пойми кем и когда был написан(документации конечно же нету). В Visual Basic .NET я никогда...
Visual Basic .NET konstantin04 13.04.2011 11:52
Visual Basic .NET Создать блок-схему(цикл while)
Найти суму всех чисел, которые делятся на 7 на отрезке от 100 до 200 (блок-схема)
Visual Basic .NET Н@стюшк@ 20.09.2010 01:37
Опции темы

Текущее время: 01:01. Часовой пояс GMT +4.

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