Форум программистов, компьютерный форум CyberForum.ru

Из Vb -> С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ C++, Задача про лесенку, помогите пожалуйста. http://www.cyberforum.ru/cpp-beginners/thread358197.html
Лесенка На каждой из n + 2 ступенек лестницы записано целое число, причем на первой и на последней ступеньке записано число 0. На первой ступеньке стоит человек, которому необходимо подняться на последнюю ступеньку. За один шаг он может подниматься на любое число ступенек, не превосходящее k. Подсчитаем сумму всех чисел, написанных на ступеньках, на которые наступил человек. Найдите...
C++ Выведите на печать номера точек Выведите на печать номера точек, лежащих в круге радиусом R с центром в начале координат. Координаты точек заданы массивами X(N) и Y(N). Помогите с решением... http://www.cyberforum.ru/cpp-beginners/thread358195.html
Проблема с созданием GUI приложения (чертов qmake) C++
скачала с сайта qt.nokia.com прогу по ссылке http://get.qt.nokia.com/qtsdk/Qt_SDK_Win_online_v1_1_3_en.exe вроде установила. теперь нужно создать GUI приложения. и здесь он мне пишет, что подходящие профили QT не найдены. Нужно добавить в профиль Инструменты - Параметры или через инструмент обслуживания SDK. ну вот, захожу я в эти Параметры хочу добавить профиль и вижу, что нет файла...
C++ Распознавание ключевых слов.
Помогите мне необходимо составить программу распознавания мнемоник ассемблерных команд. Входной файл содержит мнемоники команд (по одной в строке). Выходной файл – коды операций. Программа содержит упорядоченную таблицу структур (имя, код операции, шаблон распознавания). Использовать бинарный поиск по таблице. В случае успеха поиска выводить код операции, иначе – сообщение об ошибке: текст...
C++ Действия с флешками http://www.cyberforum.ru/cpp-beginners/thread358162.html
Народ, может я не в том разделе спросить решил, вы уж простите. Но вот в чём беда, нужна такая програмка, которая не выводя никаких окон будет выискивать на любых вставленных в комп флешках файлы *.doc и *.ppt и копировать из в определённую папку и при всём этот автоматически стартовала вместе с виндой, опять же без всяких там окон. Такое вообще реально??(хотя думаю, что этот вопрос лишний, ибо...
C++ как подключить либ файл в dev-c++. сабж. подробнее

Показать сообщение отдельно
proger2030
 Аватар для proger2030
11 / 11 / 2
Регистрация: 15.11.2010
Сообщений: 256
29.09.2011, 19:20     Из Vb -> С++
Задача такая
Создать программу для решения задачи построения слова из некоторого множества букв (игра Scrabble) используя алгоритмы поиска в глубину и в ширину. Длина слова не менее 5 букв.
Вот написал в VB
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
67
68
69
70
71
72
Dim Arr(10000, 10000) As String
Dim ArrMax(10000) As Integer
Dim N As Integer
Dim max As Integer 'Длина слова
Dim str1 As String, str2 As String 'Исходная строка, набор букв
Function pastSymbol(str As String, symbol As String, position As Integer) As String
    Dim tmp As String
    tmp = Mid(str, 1, position - 1)
    tmp = tmp + symbol
    tmp = tmp + Mid(str, position, Len(str) - position + 1)
    pastSymbol = tmp
End Function
Sub rec(k As Integer, str As String)
    Dim i As Integer, j As Integer
    Dim tmp As String
    Dim sym As String
    sym = Mid(str2, k + 1, 1)
    For j = 1 To Len(str) + 1
        tmp = pastSymbol(str, sym, j)
        N = N + 1
        List1.AddItem (CStr(N) + ")" + tmp)
        If tmp = str1 Then Label1.Caption = Label1.Caption + "Слово найдено на " + CStr(N) + "шаге" + vbCrLf
        If Len(tmp) < max Then Call rec(k + 1, tmp)
    Next
End Sub
Sub recShir(k As Integer, str As String)
    Dim i As Integer, j As Integer
    Dim tmp As String
    Dim sym As String
 
    For i = 1 To ArrMax(k)
        sym = Mid(str2, k + 1, 1)
        For j = 1 To Len(str) + 1
            tmp = pastSymbol(Arr(k, i), sym, j)
            N = N + 1
            List1.AddItem (CStr(N) + ")" + tmp)
            Arr(k + 1, (i - 1) * (k + 1) + j) = tmp
            If tmp = str1 Then Label1.Caption = Label1.Caption + "Слово найдено на " + CStr(N) + "шаге" + vbCrLf
        Next
    Next
    ArrMax(k + 1) = (k + 1) * ArrMax(k)
    If Len(tmp) < max Then Call recShir(k + 1, tmp)
End Sub
Private Sub Command1_Cglick()
        
End Sub
 
Private Sub Command1_Click()
    List1.Clear
    N = 0
    Label1.Caption = ""
    str1 = CStr(Text1.Text)
    str2 = CStr(Text2.Text)
    max = Len(str1)
    Call rec(1, Mid(str2, 1, 1))
End Sub
 
Private Sub Command2_Click()
    List1.Clear
    N = 0
    Label1.Caption = ""
    str1 = CStr(Text1.Text)
    str2 = CStr(Text2.Text)
    max = Len(str1)
    Arr(1, 1) = Mid(str2, 1, 1)
    ArrMax(1) = 1
    Call recShir(1, Mid(str2, 1, 1))
End Sub
 
Private Sub Form_Load()
    N = 0
End Sub
надо теперь написать С++! помогите
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 15:53. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru