комментарии к коду

[Mishka2039]

Прошу пожалуйста помочь с кодом программы на Паскале
Пожалуйста отпишите комментарий к каждой строчке в данной программе (что именно описывается в них)
очень нужна помощь

const
maxn = 1000;
infinity = maxlongint;
var
n,m,vin,vout,i,u,v,w,head,tail,ans:longint;
ne,p,flow:array[1..maxn]of longint;
e,c,f:array[1..maxn,1..maxn]of longint;
q:array[0..maxn]of longint;
begin
read(n,m,vin,vout);
for i:=1 to m do begin
read(u,v,w);
if c[v,u]=0 then begin
inc(ne[u]); e[u,ne[u]]:=v;
inc(ne[v]); e[v,ne[v]]:=u;
end;
c[u,v]:=w;
end;
repeat
p[vout]:=-1;
fillchar(flow,sizeof(flow),0);
flow[vin]:=infinity;
head:=0; tail:=1; Q[0]:=vin;
while head<tail do begin
u:=Q[head]; inc(head);
for i:=1 to ne[u] do begin
v:=e[u,i];
if (c[u,v]-f[u,v]>0)and(flow[v]=0) then begin
Q[tail]:=v; inc(tail);
p[v]:=u;
if c[u,v]-f[u,v]<flow[u] then flow[v]:=c[u,v]-f[u,v]
else flow[v]:=flow[u];
if v=vout then break;
end;
end;
end;
if p[vout]=-1 then break;
u:=vout;
while u<>vin do begin
f[p[u],u]:=f[p[u],u]+flow[vout];
u:=p[u];
end;
ans:=ans+flow[vout];
until false;
write(ans);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[s-andriano]

Сообщение от Mishka2039

Прошу пожалуйста помочь с кодом программы на Паскале
Пожалуйста отпишите комментарий к каждой строчке в данной программе (что именно описывается в них)

Сразу Видно, что Вы не знаете, что именно должно содержаться в комментариях.
Расскажу, как они появляются и откуда берутся.
Сначала алгоритм решения задачи записывается по-русски.
Затем лн переводится с русского на любой доступеый язык программирования, например, как в Вашем случае - на Паскаль.
При этом алгоритм, записанный по-русски, не удаляется, а превращается в комментарии.
Собственно, комментарии должны описывать не что делает программа - это должно быть видно из самого кода, а зачем она это делает.
Таким образом, комментарии пишутся по времени до кода, а не после него.
Сам же код рекомендуется:
- писать с отступами, соответствующими вложенности конструкций,
- давать переменным осмысленные имена.
К сожалению, при написании этого кода пренебрегли всеми тремя правилами.
Это никуда не годный код. Использовать его нельзя, лучше переписать с нуля по правилам.

[Rififi]

s-andriano

Сразу Видно, что Вы не знаете, что именно должно содержаться в комментариях.
Расскажу, как они появляются и откуда берутся.
...

Это всё, конечно, замечательно, и так и должно быть в правильно написанной проге.
Однако, в данном случае мы имеем дело с т.н. "бюджетным" вариантом для студней :D
это когда студень надыбал где-то в инете примерно похожий исходник, но так как знаний 0, программа представляется ему как-то так:



отсюда дальнейшие действия очевидны - попросить чтобы ему сделали подстрочный перевод (с подстрочником есть шанс что препод не запалит), к тому же это бесплатно, а заказ программы денег стоит.

[s-andriano]

Вряд ли следует путать "бюджетный" вариант с "кривым".
Этот исходник явно не стоит сил, затраченных на его разбор.
Ничему полезному по этому исходнику научиться все равно не выйдет.

[whatever]

Сообщение от s-andriano

Ничему полезному по этому исходнику научиться все равно не выйдет.

Научиться? Не, не слышал.

А исходник действительно кривой. Сильно не всматривался, но на такое количичество строк очень уж много переменных.