Помогите написать блок-схему

[icewind]

Помогите написать блок-схему

Добрый день, у меня проблема, нужна блок схема к курсовой, а я не знаю как сделать.... Помогите пожалуйста...
Вот код...
Program Mediana;
Type
New_Mas=Array[1..20001] of Integer;
Var
i,n:LongInt;
a,b:^New_Mas;
Procedure Sort(L,r:Integer);
var i,j,x,y:integer;
begin
i:=L; j:=r; x:=a^[ (l+r) div 2];
repeat
while a^<x do inc(i);
while x<a^[j] do dec(j);
if i<=j then
begin
y:=a^; a^:=a^[j]; a^[j]:=y;
y:=b^; b^:=b^[j]; b^[j]:=y;
i:=i+1; j:=j-1;
inc(i); dec(j);
end;
Until i>j;
if L<j then Sort(L,j);
if i<r then sort(i,r);
end;
begin
assign(Input,'Median.dat');
reset(input);
assign(output,'Median.sol');
rewrite(output);
New(a);
new(b);
readln;
for i:=1 to 2*n+1 do
begin
read(a^);
b^:=i;
end;
sort(1,2*n+1);
writeln(b^[n+1]);
dispose(a);
dispose(b);
end.

 

[Léon1]

Добрый день, у меня проблема, нужна блок схема к курсовой, а я не знаю как сделать.... Помогите пожалуйста...

Здравствуйте! Да, видно сразу что курсовая. :tired: Вот блок-схема: