VPF::[VB6] помогите нарисовать графический алгоритм

sawasawa

Дата 5.1.2008, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.1.2008

Репутация: нет
Всего: нет

вот`коды:

Код


Option Explicit
'дана последовательность от 1 до  30 слов
'в каждом из которых от 1 до 5 строчных латинских букв
'между соседними словами-запятая,за последним словом точка.
'напечатать все слова в алфавитном порядке
Public Function Compare(ByVal first As String, ByVal second As String) As Byte
        Dim temp As Byte
        temp = 0
        Do
            If (Len(first) - 1 < temp And Len(second) - 1 < temp) Then
                Compare = 0
                Exit Function
            ElseIf (Len(first) - 1 < temp) Then
                Compare = 1
                Exit Function
            ElseIf (Len(second) - 1 < temp) Then
                Compare = 2
                Exit Function
            ElseIf first < second Then
                Compare = 1
                Exit Function
            ElseIf first > second Then
                Compare = 2
                Exit Function
            End If
            temp = temp + 1
        Loop While (True)
    End Function
Private Sub CmdProcess_Click()
        Dim arrayOfStrings() As String
        Dim str1 As String
        Dim temp As Integer
        temp = 1
        Dim numberOfWords As Integer
        numberOfWords = -1
        Dim counterWordStart As Integer
        counterWordStart = 1
        str1 = FrmABC.TxtInput
        If Len(str1) > 0 Then
          Do While Not (Mid(str1, temp, 1) = ".")
            If (Mid(str1, temp, 1) > "A") Then
                numberOfWords = numberOfWords + 1
                counterWordStart = temp
                    While (Not (Mid(str1, temp, 1) = " " Or Mid(str1, temp, 1) = "," Or Mid(str1, temp, 1) = "."))
                        temp = temp + 1
                    Wend
                ReDim Preserve arrayOfStrings(numberOfWords)
                arrayOfStrings(numberOfWords) = Mid(str1, counterWordStart, temp - counterWordStart)
            Else
            temp = temp + 1
            End If
          Loop
        End If

        Dim i As Byte
        Dim j As Byte
        Dim min As Byte
        min = 0
        For i = 0 To numberOfWords
            min = i
            For j = i To numberOfWords
                If (Compare(arrayOfStrings(min), arrayOfStrings(j)) = 2) Then
                    min = j
                End If
            Next
            str1 = arrayOfStrings(min)
            arrayOfStrings(min) = arrayOfStrings(i)
            arrayOfStrings(i) = str1
        Next
        str1 = ""
        For i = 0 To numberOfWords
          If i <> numberOfWords Then
            str1 = str1 + arrayOfStrings(i) + ","
          Else
            str1 = str1 + arrayOfStrings(i) + "."
          End If
        Next
    FrmABC.TxtOutput = str1
    End Sub

Private Sub CmdExit_Click()
End
End Sub"

а вот второй

Код


'Разработать приложение на Visual Basic для решения указанной задачи: 
'Вычислить, сколькими  способами  можно обеспечить снабжение потребителей судна 
'электрической энергией,  если  из n имеющихся источников могут быть использованы  только  
 'm  (n>m).   Количество потребителей 
                                         m           n!
                                       C    =  -----------
                                         n        m!(n-m)!

Function fact(n)
    If n = 1 Then
       fact = 1
    Else
        fact = n * fact(n - 1)
    End If
End Function

Private Sub Command1_Click()
n = Text1.Text
m = Text2.Text
c = fact(n) / (fact(m) * fact(n - m))
Label3.Caption = "рузультат: " & c

End Sub

Private Sub Command2_Click()
End
End`Sub "

буду должен как земля колхозу!!! smile

в прикреплённом файле эти обе задачи решённые на бейсике,заранее благодарен!!!
PS:,если что не правильно в написании кода,поправте,я новичок в этом деле.

Это сообщение отредактировал(а) sawasawa - 5.1.2008, 23:25

Присоединённый файл ( Кол-во скачиваний: 1 )

___________.rar 83,91 Kb

Akina

Дата 5.1.2008, 20:59 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »