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

поиск в ширину(Рекурсивный) - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ рекурсивные классы http://www.cyberforum.ru/cpp-beginners/thread362432.html
Доброго времени суток. Скажите пожалуйста, можно ли при написании класса объявить в нём поле того же типа что и сам класс? Компилятор ругается на такое, но может это возможно по другому? class car { ... car lada; ... };
C++ Помогите с задачками 16. В заданный текст входят только цифры и буквы. Определить, яв-ляется ли текст десятичной, шестнадцатеричной или двоичной записью целого либо вещественного числа (указать при выводе какого). 16. В файле Y1 задана матрица вещественных чисел. Сформировать файл Y2, в котором строки матрицы упорядочены по убыванию элементов первого столбца. 16. Дан список студентов группы. Заполнить его... http://www.cyberforum.ru/cpp-beginners/thread362411.html
Сформировать массив из элементов матрицы C++
Из заданного массива А получить массив В попарно переставив первый и последний столбец, второй и предпоследней и т.д.
Ошибка в куске кода C++
Почему в массив не добавляется вводимое число??? include "stdafx.h" #include <time.h> #include <conio.h> #include "iostream" #include<stdlib.h>
C++ Написать программу шифрования текста на C++ и параллельно на Паскале http://www.cyberforum.ru/cpp-beginners/thread362384.html
1)зашифровывать текст следующим образом:записать его в матрицу по строкам, а затем переписать по спирали от центра по часовой стрелки,Прочесть зашифрованный текст. 2)написать и протестировать функцию , которая "переворачивает" все пары символов строки, передаваемой ей в качестве параметра.(привет друг->рпвитед ург) 3)дан текст, содержащий слова на латинице, разделенные...
C++ Добавить "xxx" перед последним словом строки #include <iostream> #include <stdio.h> #include <string.h> int main(void) { char s; char sr; printf("BBeduTe CTpoky"); gets(s); подробнее

Показать сообщение отдельно
proger2030
 Аватар для proger2030
11 / 11 / 2
Регистрация: 15.11.2010
Сообщений: 256
07.10.2011, 00:30  [ТС]     поиск в ширину(Рекурсивный)
Цитата Сообщение от ValeryS Посмотреть сообщение
уже лет 20 не пишу
просто у меня эта программа работает нормально в бэйсике! Может посмотришь ?
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(1000, 1000) As String
Dim ArrMax(1000) 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
 
Текущее время: 20:57. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru