icewind

Всем привет у меня сдача курсовой, пожалуйста помогите написать блок схему к это программе((( вот код...
Program Sudna;
Type New_type=Record
numb,time:integer;
end;
Arr=Array[1..10000] of New_type;
Var A:Arr;
i,n:integer;
Procedure Read_Data;
begin
Assign(Input,'dock.dat');
Reset(Input);
Readln(Input,n);
for i:=1 to n do
Readln(A[i].numb,A[i].time);
Close(Input);
end;
Procedure Quicksort (var a:Arr; Lo,Hi:integer);
Procedure Sort (L,r:integer);
Var i,j,x:integer;
Y:New_type;
begin
i:=L;
j:=r;
x:=A [(L+r) div 2].time;
Repeat
While A[i]. time<x do inc (i);
While x<A[j]. time do dec (j);
if i<=j
then begin
Y:=A[i];
A[i]:=A[j];
A[j]:=Y;
Inc(i);
dec(i);
end;
Until i>j;
if L<j then Sort (L,j);
if i<r then Sort (i,r);
end;
begin {quicksort};
Sort(Lo,Hi);
end;
Procedure Write_Data;
begin
Assign(Output,'Doc.sol');
Rewrite(Output);
for i:=1 to n do
Write (A[i].numb,' ');
Writeln;
Close(Output);
end;
beginQuickSort(A,1,n);
Write_Data;
End.

Léon

Ну вроде уже все блок-схемы нарисовала к вашей курсовой.
Вот:

Миниатюры

 

Léon

Вот теория, чтобы разобраться: Блок-схемы.