Создать блок-схему по коду PascalABC

[Екатерина65]

Помогите,пожалуйста создать блок-схему по коду.
Uses Crt;
Type mat=array[1..20,1..20] of real;
Var a:mat; n:integer; det:real;
Procedure wwod(n:integer; Var a:mat);
Var i,j:integer;
Begin
Writeln('Введите элементы матрицы по строкам');
For i:=1 to n do
For j:=1 to n do
Read (a[i,j]);
End;
Function Gauss(n:integer; a:mat):Real;
Var i,j,k:integer;
c,p,m,s:Real;
Begin p:=1;
For k:=1 to n-1 do Begin
s:=a[k,k]; j:=k;
For i:=k+1 to n do Begin
m:=a[i,k];
if abs(m)>abs(s)
then Begin s:=m; j:=i End;
End;
if j<>k then Begin p:=p-1;
For i:=k to n do; Begin
m:=a[k,i]; a[k,i]:=a[j,i]; a[j,i]:=m
End;
End;
For i:=k+1 to n do Begin
c:=a[i,k]/a[k,k];
For j:=k+1 to n do
a[i,j]:=a[i,j]-c*a[k,j];
End;
p:=p*s; End;
Gauss:=p*a[n,n]; End;
Begin (* Основная программа*)
Clrscr;
Write('Введите размер матрицы n=');
Readln(n);
Wwod(n,a);det:=Gauss(n,a);
Writeln('Определитель равен',det:8:4);
End.
Заранее спасибо.

[min@y™]

Могу дать прекрасную прогу для рисования блок-схем. В 2001 году я сам в ней блок-схемы к своему дипломному проекту рисовал.

Копия до сих пор осталась и она РАБОТАЕТ!
З.Ы. Конечно, потом microsoft захавала этот продукт вместе с разработчиками, но...

[Екатерина65]

Ссылку можно.

[min@y™]

Сообщение от Екатерина65

Ссылку можно.

Ща поищу. Давно валяется где-то на яндыкс-диске...
---------

О, нашёл!
Скачать. (~23 Мб)

[Alex11223]

Visio?

[min@y™]

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

Visio?

Ога!

53.jpg

[digitalis]

Жаль, что оно по коду не умеет схему намалюкать