Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Проверить упорядочены ли элементы столбцов матрицы. Если нет, то упорядочить их в порядке убывания методом стандартного https://www.cyberforum.ru/ turbo-pascal/ thread2448817.html
Дана действительная матрица размерности (nхn) Проверить упорядочены ли элементы столбцов матрицы. Если нет, то упорядочить их впорядке убывания методом стандартного обмена.
Найти минимальное из чисел, встречающихся в матрице более двух раз Turbo Pascal
Дана действительная матрица размерности (nхn). Найти минимальное из чисел, встречающихся в матрице более двух раза.
Turbo Pascal Заменить все отрицательные элементы матрицы их квадратами, положительные - их кубами, нулевые элементы заменить на -1 https://www.cyberforum.ru/ turbo-pascal/ thread2448813.html
Дана действительная матрица размерности (nхn). Заменить все отрицательные элементы массива их квадратами, положительные - их кубами, нулевые элементы заменить на -1.
Turbo Pascal Если среднее арифметическое элементов стоящих над главной диагональю больше суммы элементов стоящих под побочной диагона Дана действительная матрица размерности (nхn). Если среднее арифметическое элементов стоящих над главной диагональю больше суммы элементов стоящих под побочной диагонали, то транспонировать матрицу и к элементам, стоящим на главной диагонали добавить минимальный элемент матрицы. В противном случае матрицу оставить без изменения. https://www.cyberforum.ru/ turbo-pascal/ thread2448812.html
Дан текст. Удалить все слова, которые начинаются на одну и ту же букву Turbo Pascal
Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.
Turbo Pascal Дан текст. Создать новый текст, который содержит предложения исходного текста, не содержащие слов нечетной длины https://www.cyberforum.ru/ turbo-pascal/ thread2448805.html
Дан текст. Создать новый текст, который содержит предложения исходного текста, не содержащие слов нечетной длины.
Turbo Pascal Дан текст. Удалить повторяющиеся слова https://www.cyberforum.ru/ turbo-pascal/ thread2448803.html
Дан текст. Удалить повторяющиеся слова.
Turbo Pascal Создать текст, из слов исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины
Создать новый текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины.
Turbo Pascal Найти самое короткое симметричное слово в тексте https://www.cyberforum.ru/ turbo-pascal/ thread2448801.html
SOS Найти самое короткое симметричное слово в тексте.
Turbo Pascal Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора https://www.cyberforum.ru/ turbo-pascal/ thread2448799.html
Помогите Дан целочисленный вектор А(п). Отсортировать его элементы методом линейного выбора.
Turbo Pascal Если у целочисленного вектора А(п) как минимум 2 элемента больше, чем 2, то все отрицательные компоненты заменить
Помогите плиз Если у целочисленного вектора А(п) как минимум 2 элемента больше, чем 2, то все отрицательные компоненты заменить их кубами, оставив все остальные без изменения. В противном случае вектор А умножить на -3. На печать выдавать исходный и полученный вектора.
Turbo Pascal Дан целочисленный вектор А(N). Все нечетные числа, стоящие за максимальным элементом, умножить на первый четный элемент https://www.cyberforum.ru/ turbo-pascal/ thread2448795.html
Помогите плиз Дан целочисленный вектор А(N). Все нечетные числа, стоящие за максимальным элементом, умножить на первый четный элемент. На печать выдавать исходный, полученный вектора, максимальный элемент и его индекс, первый нечетный элемент.
0 / 0 / 0
Регистрация: 05.05.2019
Сообщений: 74
11.05.2019, 18:32  [ТС] 0

Перевод с Pascal на C++ - Turbo Pascal - Ответ 13561335

11.05.2019, 18:32. Показов 477. Ответов 2
Метки (Все метки)

Ответ

C++
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#include <iostream>
#include <ctime>
#include <vector>
#include <conio.h>
 
using namespace std;
 
const int n = 5;
int i, j;
//матрица смежности графа
int GM[n][n] =
{
    { 0,1,0,0,1 },
{ 1,0,1,0,0 },
{ 0,1,0,1,0 },
{ 0,0,1,0,1 },
{ 1,0,0,1,0 }
};
vector < vector <int> > g(n);
vector <int> used(n); //массив меток. в начале его нужно заполнить 0.
vector <int> tin, tout; //время входа и выхода для каждой вершины.
 
bool *visited = new bool[n];
//поиск в ширину(Breadth - first search, BFS)
void BFS(bool *passed, int unit)
{
    //очередь
    int *queue = new int[n];
    //указатели очереди
    int count, head;
    for (i = 0; i<n; i++) queue[i] = 0;
    count = 0; head = 0;
    queue[count++] = unit;
    passed[unit] = true; //помечаем исходную вершину
    while (head<count) //пока очередь не пуста
    {
        unit = queue[head++]; //извлекаем текущую вершину
        cout << unit + 1 << " ";
        for (i = 0; i<n; i++) //перебираем вершины
            if (GM[unit][i] && !passed[i]) //если i не помечена и смежна с i
            {
                queue[count++] = i; //и добавляем в очередь
                passed[i] = true; //помечаем ее
            }
    }
    delete[]queue;
}
 
//поиск в глубину (Depth-first search, DFS) 
void DFS(int st)
{
    int r; //вершины графа
    cout << st + 1 << " ";
    visited[st] = true; //помечаем вершину
    for (r = 0; r <= n; r++) //перебираем вершины
        if ((GM[st][r] != 0) && (!visited[r])) //если вершина не помечена, и смежна с текущей
            DFS(r); //рекурсивно запускаем от нее DFS
}
 
////функция принимает граф с количеством вершин n и выполняет обход во всем графе
int main()
{
    setlocale(LC_ALL, "Rus");
    int start;
    //массив посещенных вершин
    bool *vis = new bool[n];
    cout << "Матрица смежности графа: " << endl;
    int l, k;
    l = k = 0;
    for (i = 0; i<n; i++)
    {
        used[i] = 0;
        visited[i] = false;
        vis[i] = false;
        for (j = 0; j<n; j++)
        {
 
            cout << " " << GM[i][j];
        }
        cout << endl;
    }
    for (i = 0; i < n; ++i)
    {
        for (j = 0; j<n; j++)
            if (GM[i][j] == 1) k++;
        g[i].resize(k);
        for (j = 0; j<n; j++)
            if (GM[i][j] == 1)
            {
                g[i][l] = j + 1;
                l++;
            }
        l = 0; k = 0;
    }
    for (i = 0; i<n; i++)
    {
        for (j = 0; j<(int)g[i].size(); j++)
        {
 
            cout << " " << g[i][j];
        }
        cout << endl;
    }
    cout << "Стартовая вершина >> "; cin >> start;
    //массив посещенных вершин
    cout << "Порядок обхода в ширину: ";
    BFS(vis, start - 1);
    cout << "\n" << "Порядок обхода в глубину: ";
    DFS(start - 1);
    delete[]visited;
    delete[]vis;
    system("pause>>void");
}


Вернуться к обсуждению:
Перевод с Pascal на C++ Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2019, 18:32
Готовые ответы и решения:

Перевод с Pascal на СИ++
Ребят помогите найти ошибку вот код с паскаля норм рабочий Program prim; uses Crt; var...

Перевод с Pascal на C
Помогите пожалуйста перевести с Pascal на C, пытался но ничего стоящего не выходит Заранее...

Перевод из C++ в Pascal
Поможет кто перевести сей код из С++ в Pascal(любой)? Общий объем памяти на диске 360 Кбайт....

Перевод из c++ на pascal
Помогите перевести с c++ на Паскаль. #include &quot;stdafx.h&quot; #include&lt;iostream&gt; #include&lt;math.h&gt;...

2
11.05.2019, 18:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2019, 18:32
Помогаю со студенческими работами здесь

Перевод C++ в Pascal
Помогите пожалуйста перевести с++ в pascal #include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include...

Перевод с С++ на Pascal
Всех приветствую, просьба перевести код, всю голову сломал. С уважением, Владислав! #include...

Перевод из С ++ в Pascal
Здравсвуйте, помогите перевести код из С++ в Pascal. Пожалуйста!! #include&lt;stdio.h&gt;...

Перевод с Pascal на Си
Доброго времени суток, помогите пожалуйста перевести с Pascal на Си или может есть что нибудь...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru