помогите перевести из с++ на Делфи вот это
Код:
#include <iostream.h>
#include <memory.h>
#include <stdio.h>
#include <conio.h>
char* rus (char* st)//функция подключения вывода символов на кириллице
{
unsigned char* p = st;
while (*p)
{
if (*p >= 192)
if (*p<=239)
*p -= 64;
else
*p -= 16;
p++;
}
return st;
}
const int MAX_VERTICES = 40;
int NUM_VERTICES; // число вершин в графе
const int INFINITY = 10000; // условное число обозначающее бесконечность
// f - массив, содержащий текущее значение потока
// f[i][j] - поток, текущий от вершины i к j
int f[MAX_VERTICES][MAX_VERTICES];
// с - массив содержащий вместимости ребер,
// т.е. c[i][j] - максимальная величину потока способная течь по ребру (i,j)
int c[MAX_VERTICES][MAX_VERTICES];
// набор вспомогательных переменных используемых функцией FindPath - обхода в ширину
// Flow - значение потока через данную вершину на данном шаге поиска
int Flow[MAX_VERTICES];
// Link используется для нахождения собственно пути
// Link[i] хранит номер предыдущей вершины на пути i -> исток
int Link[MAX_VERTICES];
int Queue[MAX_VERTICES]; // очередь
int QP, QC; // QP - указатель начала очереди и QC - число эл-тов в очереди
// поиск пути, по которому возможно пустить поток алгоритмом обхода графа в ширину
// функция ищет путь из истока в сток, по которому еще можно пустить поток,
// считая вместимость ребра (i,j) равной c[i][j] - f[i][j],
// т.е. после каждой итерации (одна итерация - один поиск пути) уменьшаем вместимости ребер,
// на величину пущеного потока
int FindPath(int source, int target) // source - исток, target - сток
{
QP = 0; QC = 1; Queue[0] = source;
Link[target] = -1; // особая метка для стока
int i;
int CurVertex;
memset(Flow, 0, sizeof(int)*NUM_VERTICES); // в начале из всех вершин кроме истока течет 0
Flow[source] = INFINITY; // а из истока может вытечь сколько угодно
while (Link[target] == -1 && QP < QC)
{
// смотрим, какие вершины могут быть достигнуты из начала очереди
CurVertex = Queue[QP];
for (i=0; i<NUM_VERTICES; i++)
// проверяем, можем ли мы пустить поток по ребру (CurVertex,i):
if ((c[CurVertex][i] - f[CurVertex][i])>0 && Flow[i] == 0)
{
// если можем, то добавляем i в конец очереди
Queue[QC] = i; QC++;
Link[i] = CurVertex; // указываем, что в i добрались из CurVertex
// и находим значение потока текущее через вершину i
if (c[CurVertex][i]-f[CurVertex][i] < Flow[CurVertex])
Flow[i] = c[CurVertex][i];
else
Flow[i] = Flow[CurVertex];
}
QP++;// прерходим к следующей в очереди вершине
}
// закончив поиск пути
if (Link[target] == -1) return 0; // мы или не находим путь и выходим
// или находим:
// тогда Flow[target] будет равен потоку, который "дотек" по данному пути из истока в сток
// тогда изменяем значения массива f для данного пути на величину Flow[target]
CurVertex = target;
while (CurVertex != source) // путь из стока в исток мы восстанавливаем с помощью массива Link
{
f[Link[CurVertex]][CurVertex] +=Flow[target];
CurVertex = Link[CurVertex];
}
return Flow[target]; // Возвращаем значение потока которое мы еще смогли "пустить" по графу
}
// основная функция поиска максимального потока
int MaxFlow(int source, int target) // source - исток, target - сток
{
// инициализируем переменные:
memset(f, 0, sizeof(int)*MAX_VERTICES*MAX_VERTICES); // по графу ничего не течет
int MaxFlow = 0; // начальное значение потока
int AddFlow;
do
{
// каждую итерацию ищем какй-либо простой путь из истока в сток
// и какой еще поток мажет быть пущен по этому пути
AddFlow = FindPath(source, target);
MaxFlow += AddFlow;
} while (AddFlow >0);// повторяем цикл пока поток увеличивается
return MaxFlow;
}
int main()
{
printf(rus("\n НАХОЖДЕНИЕ МАКСИМАЛЬНОГО ПОТОКА \n"));