Создание блок-схем

[dvss]

Существует ли прога чтобы она сама по исходнику составляла блок-схему?

[Sh0Ck_filE]

А под какой язык?
Если С++, то посмотри в сторону Visio или Rose, там вроде мона... Подробнее на rsdn.ru

[dvss]

<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->А под какой язык?<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Под паскаль

[Shelix]

2dvss
Не совсем понятно, чего ты хочешь. Вообще, как я понимаю, блок-схемы это более высокий уровень абстракции, это все равно, что из бинарного кода восстановить код на языке высокого уровня. Или я тебя неправильно понял?

[dvss]

2Shelix
Мне надо чтобы прога из исходника сделала блок-схему...вроде всё понятно.
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Вообще, как я понимаю, блок-схемы это более высокий уровень абстракции<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Вроде так и есть.

Вообще я нашел такую прогу...но она работает тока с VB =(

[С_д]

Попробуй вот эту прогу:

<a href='http://dmitriyo.narod.ru/Proga/Avtoshema.zip' target='_blank'> Avtoshema </a>

Хотя тупит она, надо признать, сильно. Что-то сложное построить с её помощью лучше даже и не пытаться - ошибок будет море.

[dvss]

2С_д
Мдя...Тупит нехило... Ни одну из 10 прог нормально не сделала =( Все время какие-то ошибки...

[Spike]

2dvss
Ну у тебя и требования
Чтобы программа автоматом делала схемы на более-менее сложный проект, то имхо ее разработкой должен заняца нехилый разработчик. Я имею ввиду полностью раскрытую структуру, а не "налево да, направо нет". Тем более мне непонятно, как человеческие описания давать таким схемам...
А вообще, судя по твоему запросу, тебе сабж нужен для заданий по учебе.. Так там проги простые, можешь и сам.

[Shelix]

2dvss
Дай пример работы, то бишь исходник и примерную бл.-сх., которую хочешь получить. Из исходника никогда нельзя определить однозначно б.-с.

[dvss]

<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->"налево да, направо нет"<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Мне как раз эот и надо =)

<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Тем более мне непонятно, как человеческие описания давать таким схемам...<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
А описания и ненужны.

Пример:

Код: выделить все

program Z12;
Uses crt;
var i,j,N,k1,k,e,m,z,q,max:byte;
   A,C:array[1..60]of string[100];
   B,B1,D:array[1..60]of integer;
   inp:text;S:array[1..60,1..60]of char;
BEGIN
 clrscr;
 N:=0;
 Assign(inp,'v1z4.in');reset(inp);
 while not(eof(inp)) do begin
                          N:=N+1;
                          readln(inp,A[N])
                        end;
 close(inp);
 m:=1;q:=0;
 for i:=1 to N do
   begin
     k1:=1;
     for j:=1 to length(A[i]) do
       if (ord(A[i,j])>31)and(ord(A[i,j])<64)or(j=length(A[i])) then
         begin
           if j=k1 then begin
                          k1:=k1+1;
                          continue
                        end;
           for z:=1 to m do
             begin
               for k:=k1 to j-1 do
                 if (A[i,k]<>C[z,k-k1+1])or((ord(C[z,j-k1+2])>64)and
                    (ord(C[z,j-k1+2])<91)or(ord(C[z,j-k1+2])>97)and
                    (ord(C[z,j-k1+2])<123)or(ord(C[z,j-k1+2])>127)) then
                   begin
                     e:=e+1;
                     q:=1;
                     break
                   end;
               if q=0 then B[z]:=B[z]+1;
               q:=0
             end;
           if e=m then begin
                         for k:=k1 to j-1 do
                           begin
                             C[m,k-k1+1]:=A[i,k];
                             write(C[m,k-k1+1])
                           end;
                         m:=m+1; writeln;
                       end;
           k1:=j+1;e:=0;
         end;
   end;
 m:=m-1;
 for i:=1 to m do B[i]:=B[i]+1;
 for i:=1 to m do B1[i]:=B[i];
 for i:=1 to m-1 do
   begin
     max:=B1[i];q:=i;
     for j:=i+1 to m do
       if B1[j]>max then begin
                           max:=B1[j];
                           q:=j
                         end;
      B1[q]:=B1[i];
      B1[i]:=max
    end;
 writeln;
 for i:=1 to m do
   begin
     D[i]:=0;
     if B[i]=1 then D[i]:=1
   end;
 for i:=1 to m do
   for j:=1 to m do
     if (B1[i]=B[j])and(D[j]=0) then
       begin
         for z:=1 to 20 do
           if ((ord(C[j,z])>64)and(ord(C[j,z])<91)or(ord(C[j,z])>97)
           and(ord(C[j,z])<123)or(ord(C[j,z])>127)) then write(C[j,z]);
         write(': ',B1[i]);writeln;
         D[j]:=1
       end;
 for j:=1 to m do
   if B1[j]>1 then
     begin
       i:=B1[1];
       for z:=1 to B1[j] do
         begin
           S[i,j]:=chr(178);
           i:=i-1
         end
     end;
 writeln;
 for i:=1 to B1[1] do
   begin
     for j:=1 to m do write(' ',S[i,j]);writeln
   end
END.


А блок схему я понятия не имею как делать =(

[Sh0Ck_filE]

Гм... тут же простейшие обороты... ни классов. ни ООП... Пиши сам! Легче будет...

[Shelix]

2dvss
Ты где учишься и много ли тебе исходников надо обработать?
Насколько я понимаю, можно написать лишь транслятор, то бишь переводчик, который из паскаля будет переводить в "человеческий" язык и брать разные строчки в разные прямоугольники, овалы и т.д., расставляя стрелочки.

2Sh0Ck_filE
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Гм... тут же простейшие обороты... ни классов. ни ООП...<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Хм. Объясни мне, как классы и ООП усложняют создание блок-схем?
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Пиши сам! Легче будет... <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Юморист. Человек не может из исходника блок-схему нарисовать, а ты ему пиши сам

[С_д]

2dvss
Пиши в блоке сразу несколько операций - так будет проще строить блок-схему. В этом же виде её и можно будет оставить, если это, конечно, допустимо.

Загрузил твою прогу в автосхему - результат был выдан без каких-либо видимых ошибок.
Здавать можно уже в таком виде, если смотреть на неё мельком будут.

Для чего конкретно эти блок-схемы нужны? Может, не стоит так париться?

[Sh0Ck_filE]

2Shelix
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Юморист. Человек не может из исходника блок-схему нарисовать, а ты ему пиши сам <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
знаешь, я бы заманался сам рисовать... Дешевле здоровью если прогу напишешь, простейший парсер...

[dvss]

<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Ты где учишься и много ли тебе исходников надо обработать?<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Учусь в МАИ (Московский Авиационный Институт). А обработать надо 10 исходников =(
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Здавать можно уже в таком виде, если смотреть на неё мельком будут. <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Дык эта автосхема ни одной стрелочки даже не поставила...
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Для чего конкретно эти блок-схемы нужны? Может, не стоит так париться? <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Стоит...Мне они нужны чтобы отчет по прогам оформить...а без этого сессию незакрывают...