🏠 ⇢ Вопросы и ответы ⇢ Компьютеры, Связь
ИФ
Ирина Филимонова

Перевод из C++ в pascal \ delphi Ребят помогите пожалуйста, вычислительная практика пылает просто.Не смог найти реализацию алгоритма Диница на pascal \ delphi, только на C++ Кто скиловый перевидите плз.За ранее благодарю.Реализация над графами в виде матриц смежности:const int MAXN = ...; // число вершинconst int INF = 1000000000; // константа-бесконечность int n, c[MAXN][MAXN], f[MAXN][MAXN], s, t, d[MAXN], ptr[MAXN], q[MAXN]; bool bfs() {int qh=0, qt=0;q[qt++] = s;memset (d, -1, n * sizeof d[0]);d[s] = 0;while (qh < qt) {int v = q[qh++];for (int to=0; to

Ви
Виталя

Благодарность реальная или виртуальная? Если первое - пиши в личку, сделаю.

Похожие вопросы
реализовать один вариант модуля подсчета количества инверсий без процедуры inv_all. Исходники программ:1. Метод выбора[ссылка появится после проверки модератором] int main (){int m[100];int i=0, n=0, k, j, t, o, p, f, inv=0;FILE*in;FILE*out;in=fopen("input.txt", "r");out=fopen("output_select.txt", "w");while(!feof(in)){int ret=fscanf(in, "%d",&m[n]);if(ret==1){n++;}while(i
Прошу помощи с Паскаль! program z2;Var c,d,k,t,P1,P2 : integer;R : real;Procedure PRO (n, a : integer; Var P: real);Var i:integer;BeginP:=1;For i:=1 to 10 doP:=P*(i-a);End;BeginWriteln ('vv 2 cgisla');Readln (c,d);Writeln ('вв 2 ч >= 2');Readln (k,t);PRO(k,c,P1);Pro(t,d,P2);R:=2*(P1/P2);Writeln (R);End.1) Восстановить условие, постановку и алгоитм.2) Переписать программу заменив процедуру функцией
В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца (Паскаль) Программа работает неправильно, подскажите как исправитьProgram matr;const N=10;const M=10;var D:array [1..N,1..M] of real;i,j,k:integer;l:real;beginfor i:=1 to n do begin for j:=1 to m do begin D[i,j]:=random(5); if d[i,j]=0 then for k:=i-1 downto 1 do begin l:=d[k+1,j]; d[k,j]:=d[k+1,j]; d[k,j]:=l; end;end;end; for i:=1 to n do begin for j:=1 to m do begin write(D[i,j]:5:2);end; writeln;end; readln;end.
Переведите код, пожалуйста на Паскаль ! int main(){ int i, w, hun, sat; char r[16];#ifndef ONLINE_JUDGE freopen("input.txt", "rt", stdin);#endif scanf("%d", &N); hun = 2; sat = 10; for (i = 0; i < N; i++) { scanf("%d %s\n", &w, &r); if (r[0] == 'h') { if (w > hun) hun = w; if (hun >= sat) { printf("Inconsistent\n"); return 0; } } else if (r[0] == 's') { if (w < sat) sat = w; if (sat